「お年賀 2022」の続報

 別blogにて、HP PrimeのPPLコードを挙げました。


ref.  お年賀 2022

https://akatuki-724.blogspot.com/2022/01/2022_02024079436.html


ここでは、データ部分を改変したコードを挙げておきます。


画像は、以下のTweetから拝借致しました。


ref. https://twitter.com/smile_smile_sy/status/1485721738105159680


リストだよん

 

// title : graphic example
// begin : 2022-01-04 04:10:54 
// ref.  : https://twitter.com/smile_smile_sy/status/1485721738105159680

EXPORT colour;
EXPORT gdata;

//  graphics print func
gprint(ii, jj, str) 
BEGIN
LOCAL c;

  FOR X FROM 1 TO SIZE(str) DO
      c := MID(str, X, 1) ;
      N := INSTRING("0123456789ABCDEF", c) ;
      L := colour(N) ;
      RECT_P(ii, jj, ii+D, jj+D, L) ;
      ii := ii+D ;
  END;
END;

//  
EXPORT gprt_syk()
BEGIN

RECT();

//  
D := 2 ;  //  pixel size
J := 10 ; //  height from top

//  palette
colour := {} ;
colour := CONCAT(colour, RGB (103, 88, 88) );
colour := CONCAT(colour, RGB (41, 36, 40) );
colour := CONCAT(colour, RGB (80, 56, 56) );
colour := CONCAT(colour, RGB (124, 132, 131) );
colour := CONCAT(colour, RGB (165, 151, 153) );
colour := CONCAT(colour, RGB (149, 111, 102) );
colour := CONCAT(colour, RGB (177, 146, 143) );
colour := CONCAT(colour, RGB (165, 134, 122) );
colour := CONCAT(colour, RGB (165, 79, 86) );
colour := CONCAT(colour, RGB (199, 166, 153) );
colour := CONCAT(colour, RGB (206, 182, 170) );
colour := CONCAT(colour, RGB (200, 178, 200) );
colour := CONCAT(colour, RGB (218, 197, 185) );
colour := CONCAT(colour, RGB (199, 138, 124) );
colour := CONCAT(colour, RGB (233, 223, 218) );
colour := CONCAT(colour, RGB (157, 116, 139) );

// ======== graphic print

gdata := {
   "0000000000111122211111111111111111111111111111111112000033333333330" , 
   "0002000000211111222111111111111111111111111111111111000333333333303" , 
   "0000000000022111112211111111111111111111111111111111200033333333333" , 
   "0020000000202211111221111111111111111111111111111112220033333333333" , 
   "0020000000022221111122211111111111111111111111111112220003334433333" , 
   "0002000000002222111112021111111111111111111111111112000003334443333" , 
   "0002000000000022221111100211111111111111112222111122000003333344433" , 
   "0002000404000002222111112022211111111111111222222222000003333444443" , 
   "0000000455400000022211111200022211111112122222222222000333333333333" , 
   "0000000540445000000221111110000022222222111122222222000444443333333" , 
   "0000004044546700000002211122200050000500211112222220777444444433333" , 
   "0007007044446670000000222112220555555770021111112227757444444443333" , 
   "0004000454464667000000020211222007547747022111112125528744444444443" , 
   "0004400454474677650000002002120000646646502111122225752844444444433" , 
   "0554450745466467767000000020211050076666702111122205560074444343443" , 
   "0454440045496446677650005500021105005444650221122050076054444333443" , 
   "0454440044794494666764700055502110550799440022220575557554444444333" , 
   "0434444064649949999464446500057502276449947022220555005677444443333" , 
   "0444449054479A99AAAA94466550569970225666466502220002220776444433434" , 
   "544494A404444AA9AAAAA60002579A9946701064494700220000022056444433433" , 
   "444599AA549444AA9AA650005769999999665007699650222005000056444433443" , 
   "44444A4A4544469A996020569999999999996602076965020055508876444333343" , 
   "44444AAAA44446499522059A996669999999A946000767500055508574444343433" , 
   "44444AAAA44446670220569966776666699AAAA9A65005550550085554444433433" , 
   "A94444AAAA4666702207699655000055779AAAAAAAA65000005505557BBBB443333" , 
   "9A4444ACAA464602007669D502222220599AAAAAAAAA9655005005556CECB443333" , 
   "9AA444ACCAA4465007669700021100056999AAAAAAAA9667555555556CEECB44333" , 
   "AAA4499ACCA47666779965043012205D9AAAAAAAAAAA9966557755585BEECB44433" , 
   "ABAA449ACCCA47966699704EB21105699AAAAAAAAAAAA9667767755859CCCB44444" , 
   "9A44454ACCCAA66666A950BEE3257769AAAAAACAAAAAA96666677D5554BCCBB44BB" , 
   "002220549CCCAA996699526CC966699AACAAAACAAAAAA99666675555554CEBBBBAA" , 
   "020054749CCCCCA996797276AA9699AAAAAAAAAAAAAA9996666655558204BBB4F69" , 
   "444444449ACEEECA9679679999999AAAAACAAACAAAAA99999666555580106965556" , 
   "CA66666699AEEECC9966AA99AAAAAACCCCCAAAAAAAAA99999996555550125667585" , 
   "EC965000076CEEECA9969CCACCCCCCCCCCAAAAAAAAAAA9999996555558210F666F5" , 
   "EE900332115ACEEEC9999ACCCCCCCCCCCCCAAAAAAAAAA999999655555502256666F" , 
   "EE60BEB01116CEEECA9999ACCCCCCCCCCCCAAAAAAA9AA9999996557558022566666" , 
   "EEE0BEE01106CEEECAAAAA9ACCCCCCCCCCCAAAAAAAAAA99999965775555020F6666" , 
   "EEEEAEEB0579CEEEEAAAAAA9ACCCEEEECCCAAAAAAAAAAA999996558555502256666" , 
   "EEEEEAA99D6ACEEEEAAAAAAA9ACCEEEECCCAAAAAAAAAAA999996558555550256966" , 
   "EEEEEECA999ACEEEECAAAAA999CCEEEEECCCAAAAAAAAAAAAA99D777555555256666" , 
   "EEEEEEEEAAAACEEEECAAAAA999ACCEEECCCCAAAAAAAAAAAAA99D575555555006696" , 
   "EEEEEEEECCCACEEEECAA9999669ACEECCCCCAAAAAAAAAAAAA99D575555555006696" , 
   "EEEEEEEEECCCCCEEEECA99999779CCCCCCCCAAAAAAAAAAAA9997575555555505696" , 
   "EEEEEEEEECCCCCCEEECCA99AA979CCCCCCCAAAAAAAAAAAAA9965555555555505666" , 
   "EEEEEEEEEEECECCEEEECAAAAA979CCCCCCCAAAAAAAAAAA999975555555555505666" , 
   "EEEEEEEEEEEEECCEEEEA9975667ACCCCCCAAAAAAAAAAAA999955555555555555666" , 
   "EEEEEEEEEEEEECCEEEEA6500779ACCCCCCAAAAAAAAAAAA999D55555555555556666" , 
   "EEEEEEEEEEEEECCCEEC9D556769AAAAA9AAAAAAAAAAA99999755555555555006996" , 
   "EEEEEEEEEEEEECCCCECA999999AAAAA9975999AAAA999999D555555555555056996" , 
   "EEEEEEEEEEEEEECCCEEEECAAA9AAAAA9525999AA999999965555555555555256996" , 
   "EEEEEEEEEEEEEEECEEEEEEACCCCA965005999999999999675555555555550259996" , 
   "EEEEEEEEEECEEEEEEEEEEECCE9D5228859999AA9999996D55555555555502269966" , 
   "EEEECCCCCCCACCEEEEEEEEEE6882888599AA99AAA9A99D755555555555002069966" , 
   "CCCCAAAAAAAA99CCEECAEA588888D8899AAA99AA9AA96D555555555550022599666" , 
   "EECAA9999999999ACCCD565DDD9988D99AAA9AAAAA99D5855555555500220699666" , 
   "EEEEEEECA99996669AC95ACAA9DDDD99AAAAAAAAAA9678855555588002225666466" , 
   "EEEEEEEEEEECCA99D76A99CC9DDDD9AACCAAAAAAA99780005555800022256666449" , 
   "EEEEEEEEEEEEEEECA9666DACCCAAACCCCCCCAAAA996800000000002222576666469" , 
   "EEEEEEEEEEEEEEECCAA96759CCCCEEEECCCAAAA9665000000002222225766666449" , 
   "EEEEEEEEEEEEEEEECCCCA99559EEEEEECCAAAA966A658000222222125F666666499" , 
   "EEEEEEEEEEEEEEEEEEEEECCA659EEEEECAAA9966CEB9580222221125FF666666999" , 
   "EEEEEEEEEEEEEEEEEEEEEEECCA6AEECCAA99676EEEBA6F022211125FFF666669999" , 
   "EEEEEEEEEEEEEEEEEEEEEEECCCC999AA99D769BEEEBB96F5222205F5FF666669949" , 
   "EEEEEEEEEEEEEEEEEEEEEEEECCCCA675556ABBBEEEBB9664F55555555FF66666649" , 
   "EEEEEEEEEEEEEEEEEEEEEEEEECCCCAA656BBBBBBBBBBB66496F555555FFF6666494" , 
   "EEEEEEEEEEEEEEEEEEEEEEEEECCECCCCA969BBBBBBBBB466BB4F55555FFF6666446" , 
   "EEEEEEEEEEEEEEEEEEEEEEEEEEEEECCCCCA969BBBBB99B44BBB4FF555FFFF66666F" , 
   "CCCCCCCCCCCCEEEEEEEEEEEEEEEEEEEEECCCA969BBB94BB4BBB44FFF55FFF666FFF" , 
   "CCCCCAAAA9999AEEEEEEEEEEEEEEEEEEEECCCCA969BB49BB44BBB44FFFFFFFFFFFF" , 
   "CAAA9966655557AEEEEEEEEEEEEEEEEEEEECEEEC97664BBBA4BBBB444FFFFFFFFFF" , 
   "946655500055444CEEEEEEEEEEEEEEEEEECCCCCCA67669BBB444BBB444FFFFFFFFF" , 
   "4500022200055444EEEEEEEEEEEEEEEEEECCACCCA97666BBBBF44BBB444FFFFFFFF" , 
   "7000000000000574AEEEEEEEEEEEEEEEECCAAAACAA77676FF6FFF4BBB4444444444" , 
   "99AAACCACCCA9949AEEEEEEEEEECEEEEECAAAAACCA67756BF8FFFF4BBBBB4444444" , 
   "EEEEEECCEEECCCEEEEEEEEEEEEECCCCCCCCAAA9ACC96557CB8FFF5F4BBBBB444444" , 
   "EEEEECCCCCCCCCEEEEEEEEEEEEECCCACCCCAAA66CCA955559FF6F55F44BBBBBBBBB" , 
   "EEECCEEEBACCCEEEEEEA9EEEEEECCA99ACCCAA97CECA6567865FFFFFF44444BBBBB" , 
   "EEECEEEE69CEEEEEEEEC96CEEEEECAA66CEECAA59EECA656A665FFFFFFFF4444444" , 
   "EECCEECC99CCEEEEEEECCA9CEEEECCA65AEEECC67EECAA77AAA96FFFFFFFFFFFFFF" , 
   "EEEECCCCAAACCEEEEEEECCA6CEEEECC905CEECCA69EECA9579AA96503FF4F330000" , 
   "EEECAACEEECCCEEEECCCCCCA6EEEECCA509EEECA97CECA66569AA670003F4F30000" , 
   "EECCAACCCCCCCEEEEECCCCCCAAEEECCA625EEECA966ECA96556996650003F430002" , 
   "CCAAAAAACAAACCCCECCAAACCCAEEECAA902AEEEA965AECA67057699650000300221" , 
   "AAA99AAAAAAACCCCCCCAAACCCACEECAA9527CEEC6676CCA67520569960000021111" , 
   "96AA99AACAAACCCCCCCACCCCAAAEEEAA9700AEEC96659CA95512569A96000221111" , 
   "EEECCEEEEA9AA99ACCAAAAAA999CEEA667006CECA6655CA96701254A96500022111" , 
   "ECACCCCAA679AA9AAAAAAAA99AAAEEA6675009CCA6650AAA6750206496502022211" , 
   "CA9AAAA9677699999999A9AAAAAACEC9665505CCA96727CA9670025666650222221" 
};


//  g-print
FOR K FROM 1 TO SIZE(gdata) DO
  gprint(30, J, gdata[K]);
  J := J+D ;
END;

//  show screen and wait
FREEZE;

END;


コメント

コメントを投稿

このブログの人気の投稿

マニング公式の計算

HP50G のUser Manualに、MSLV機能の例題として、つぎの記述があります。 Page 7-5 Solution to simultaneous equations with MSLV Example 2 - Entrance from a lake into an open channel MSLV は、複数の方程式を元に、自動でNewton法を適用して数値解を得るという便利機能でありますが、今日の高機能電卓で、相当機能を持つものは、かなり少ないと思われます。おそらく、TI Nspire CAS くらいではないか ? 上記の例題では「Manning公式」の計算を行っております。では、Manning公式とはなんぞや ? ref. マニング公式 - Wikipedia https://ja.wikipedia.org/wiki/%E3%83%9E%E3%83%8B%E3%83%B3%E3%82%B0%E5%85%AC%E5%BC%8F 「ロバート・マニングによって考案された水の流れの速度（流速）に関する公式」とのことですが、公式自体は1本だけなので、このままならば、複数の式を扱うMSLVの出番はなさそう。 HP50G User Manual では、Manning formulaと、エネルギーに関する式を用意し、MSLVを適用する事で数値解を求めております。 この辺りの計算を、手持ちの fx-CG50 で出来ないもんか、と、色々とやってみたので、ここで開陳しておこうと思った次第。 但し、PDFにある通りの方程式をそのまま扱う機能(MSLVですネ)が、fx-CG50 にはありません。 そこで、問題を睨み、方程式を書き換えるという手段に訴える事とします。 まずは、例題の掲載しておきます。 基礎となる方程式 - $ H_0 = y + \frac {V^2} {2g} $ - $ Q = \frac { Cu} { n } \frac {A^{5/3}}{P^{2/3}} \sqrt {S_0} $ 補助となる計算式 - $ V = Q/A $ ... 流速 - $ A = (b+m y) y $ ... 「流積」 - $P=b+2 y \sqrt{1+m^2} $ ... 「潤辺」 定数 - $ Cu = 1.486 ...
続きを読む

名称、アドレス変更

 最近は、HP Prime 電卓も高値止まり (34,000円 ! ) で、手が出ません。 また、こちらの blog は、検索でしか訪問客がいないので、タイトルを思い切って変更いたしました。 旧名称 「HP電卓の活用を探る」 新名称 「Akatuki workbench」 また、アドレスも変更できるので、  旧アドレス  hpcalc-fun.blogspot.com 新アドレス  progcalc-fun.blogspot.com  の様に変更いたしました。 HP Prime 電卓を入手できず、ポツポツとsimulator の作業を置いておきましたが、今は fx-CG50 を入手して、キーを叩く毎日です。 fx-CG50 の情報については、 やす親分の所が充実しており、ここでは余り触れる事もありません。 では、何を書いたらいいものか ? 今まで、「高機能電卓の情報」がメインでしたが、最近は情報提供がままならぬ仕儀となっておりました。 スマートフォン全盛の今日、電卓、プロ電やポケコンの話題を書いても、見向きもされない情勢であります。 唯一、それら製品の子孫として細々と息を継いでいるグラフ電卓についても、その市場が教育分野に限局されており、プロツールとしての活用が覚束ない有様です。 プロツールと書きましたが、今日、関数電卓で賄えないような計算を必要とする場所では、プロ電の利用よりは、PCの導入が確実である状況であります。そうした事情に即した形で、手のひらに載る大きさのUMPCなどの製品も供給されております。そして、スマートフォン。 スマートフォンでは、関数電卓やグラフ電卓のシミュレータが提供される所となっておりますから、スマートフォンがあれば、大抵の計算についての「解」となってしまいます。 また、スマートフォン同様のOSを持つタブレットデバイスでは、PCで動作するアプリが提供される所となり、PCでの作業の代替も可能になりつつあります。 スマートフォン、タブレットも、プロセッサに64bit が使われつつありますから、計算のパワーという所でみると、一頃のPCを上回るものがあると言われております。 事程左様に、今日のIT社会では、多くの人々のPrimary Device がスマートフォンとなっており、その状況が IT, ICT...
続きを読む