BMIプログラム: 数値入力


数値を与えて結果を返すプログラムを作ってみる。hp42sならINPUTで楽ちんだったけど、wp34sでは少々調べないと分からない。
とりあえずありがちなBMI計算プログラムを作ってみよう。身長さ：H、体重：Wを与えてBMI値を返すだけのもの。
以下のように、hp42sなら10行に満たないが…

【BMI計算 with hp42s】
LBL 'BMI'
INPUT 'H'
INPUT 'W'
RCL 'H'
100
/
x^2
/
END

とりあえず入力待ちループを用意して、A,B,C,Dキー押下をトリガーに値を引き取れそう。で、作ってみたが、なんだか大げさにw【30行くらい】


【BMI計算 with wp34s】
LBL 'BMI'
CL[alpha]
[alpha]'BMI'
[alpha]' H='
LBL 00
PROMPT
GTO 00
LBL A
ENTRY?
STO 00
GTO 11
LBL 11
CL[alpha]
[alpha]'W='
VIEW[alpha]
PROMPT
GTO 11
LBL B
ENTRY?
STO 01
RCL 01
RCL 00
1
0
0
/
x^2
/
END


他のコードをパクりながらなので、無駄なサブルーチン化とかGOTOとかありそうだが、hp42sほどのシンプルさはない。改めてhp42sの素晴らしさを思い知らされれる。
ちなみにhp42sはiPhoneのアプリのFree42sだが、よくできている。

コメント

コメントを投稿

このブログの人気の投稿

退役iPod ClassicとRockbox化による再生 ノ巻

イメージ
iPod 5.5Gを240GB SSD化したためClassicはクルマ用にしようと思っていた。しかしまだiPod 3Gで足りているので、急ぐ必要はない。ふとRockboxについて調べてみたら、Classicにも対応しているようなので試してみたくなった。それはwav+cueの再生に対応していることが分かったため。 CDはiTunesでそのまま取り込まず、EACでwav+cueにバックアップしてから、PowerISOで仮想CDとしてiTunesに取り込むようにしている。wav+cueはwavデータに対する曲情報をcueシートに持たせたもので、ロスレスに比べるとサイズが大きくなるが、変換の手間をかけずにiPodで再生できるなら、楽でいいと思った次第。ビデオの再生ができないとかはスマホが常識の時代には全く問題ないが、Classic向けはまだ安定板ではないのが気がかり。 早速インストールするが、Classic向けのインストールについて 丁寧な手順を公開されているサイト があるので大丈夫、と思ったがいきなり躓く。ブートローダでブートして、インストーラをコピーし起動させるところで進まなくなる。iPodを取り外すとインストーラが起動し始めるはずだが、何度試しても止まってしまう。最後の手段でPCをWindowsXPのものでやり直してみたら、あっさり起動した。Windows8.1だったが、まだXPは捨てられないな。 ようやく入ったRockboxだが、使い方がいまいちわからない。日本語フォントの入れ方はあるが、肝心の曲の入れ方がわからない。基本的にドラッグ＆ドロップな管理は嫌いなのでファイルは直接触らずタグ管理してくれたほうがありがたい。とりあえず/musicに曲を入れればよさそうなので、wav+cueのフォルダを入れてみる。最初は見えなかったりしたが、何度か再起動したら見えた。ファイルブラウザから再生させることができたが、曲間情報が取り込めていないらしくアルバム丸ごと１局になっている。これはふつうはデータベースからたどってアーティストやアルバムからたどっていけるはずだが、データベースの初期化をしなければならない。ようやく曲送りができるようになったが、問題が発覚。CDのイメージはiTunesで取り込むことを前提としていたので、その時に曲名などの情報がID3タグに入ればいいので
続きを読む

ジャンクなiPod miniをGetして、SDをCF変換アダプタ経由で換装してゼロスピンドル化　ノ巻

イメージ
iPod 5.5GのSSD化によりメインの座を譲り、車載用として余生をを送っていたiPod Classicだったが、容量160GBに対して4GB以下しか使っておらず、物欲最適化の法則により代替のiPodを導入してしまった。 iPod miniは、以前からCFに換装して大容量化・ゼロスピンドル化できることはよく知られていた。しかしiPod miniを持っていなかったのと、大容量化の観点ではminiより5.5Gのほうが希望が持てたので、特に入手することはなかった。 しかし、AppleがiPhone6の発表と同時にiPod Classicの販売を終了したため、大容量のiPodを粗末に扱うのはよくないと思うことにした。そして大容量を無駄に使っていることもよくないとし、iPod miniを入手し、余ったmicro SDとSD-CFアダプタでゼロスピンドル化した上で車載用とすることにした。 iPod miniは初代Goldを、1000円でヤフオクで落札した。アルミボディにかなり凹みがあったが、味と思えばとあまり気にしなかったのが、後で痛い目に。。 iPod miniの分解はネット上にいろいろ出ているので特に問題はない。ただ、ボディの凹みがじわじわボディーブローのように効いてきた。アルミの凹みは上下の面のプラスチックにまで食い込んでいて、基板を抜き出そうとするが、引っかかって抜けなくなっている。余計にプラ部品をこじることになり、改造後に傷が目立ちそうだ。 底面のプラ部品を外す際に、細かい爪が結構折れてしまった。爪はDOCKコネクタの左右の脇だけなので、テレカで下手にこじると爪を切ってしまう。ただ、実際に引っかかりのある爪は大丈夫で、最終的には両面テープで固定されるのであまり問題にはならなかった。 基板を出してしまえば、バッテリーとマイクロドライブを外して、CFに差し替えるだけである。隙間ができると、CFが中でずれるかもしれないので、クッションのゴムをそのままCFアダプタにつけて入れている。 慎重に元に戻していけば改造は完了だが、iTunesで復元をしなければ使えない。無事iTunesに認識されて復元をするが、それが終わるとまた復元をしようとする。何かがおかしいと思い、よく見るとディスク容量が0になっている。どうやらCFアダプタが認識されていないようだ。
続きを読む

BOSE AW-1修理とラジオノイズ ノ巻

イメージ
しばらくLINEアウト端子から外部入力してスピーカーとして使っていたAW-1だったが、お盆休みを利用して修理を試みた。 修理方法は、症状から、ドルビーデコーダらしいＨＡ１２０４７の周りのコンデンサか、ミュート回路のコンデンサであるらしく、秋葉の千石で合う容量のものを調達してきた。あまり高いものを付けてもしょうがないので、1個10円のものとした。 本体の分解は、ネジが多く、嵌め合わせも多少あったが、メインの基板にたどり着き、目的のパーツを発見した。 部品をしらべたが、派手に液漏れしているわけでもないが、外すと足が錆びてる感じだった。はんだを剥がすのがうまく行くか心配だったが、半田はあまり深く入ってないようで吸い取り線で楽勝だった。買ってきたコンデンサは背がたかかったが、倒して付けた。 組み立て戻す途中で音出しをしてみたが、前は聞けなかったラジオのノイズが鳴った。ミュート回路が正常になったのかもしれない。ネジが多くて余るかと思ったら、１個足りなかった… ロッドアンテナのネジをチューナー基板のアースに、使ってしまい、頭がなめてしまったので、代わりのネジで取り付けた。 元に組み上げて、ラジオを聴いてみるが、ノイズが凄い… AMはなんとか聞こえるが、FMはサッパリだった。しかしこれはノイズ元(ハブかACアダプタ)のせいだったようで、コンセントの差し替え、改善した。Radikoに頼らずラジオもそこそか聞けるようになったが、番組がイマイチなので、AFN専用になりそう…(^^; α900 + Minolta AF24-85
続きを読む