モバイラな私ではありますが、やはり東日本に在住する身としては、何かと放射能とか気になるところはあります。いろいろ調べて、放射能とかに関する計算をいろいろやってみたりすると、やっぱりプログラムじゃないと計算し直しが面倒くさいので、久々にポケコンを引っ張り出してごくごく簡単なプログラムを作ってみました。
- 数値入力はINPUT文で簡単に書け、
- べき乗計算は 2.2 * 10^-5 とか特別なメソッドや関数を使う必要もなく、
- 電源ONしてパッと起動できる
とか考えると、こういうときはポケコンがいいですね。
Android端末持ってるからAndroidアプリで・・・などと妄想してもみたのですが、開発環境のインストールもしないといけないし、GUIのプログラミングとかもなんだか素人には難しそうだしで、ハードルが高いです。
で、作ってみた２つのプログラム。VX-4用です。
(1)放射線量計算
「マイクロシーベルト/時」の値を１年間で換算するとどれくらいになるのか計算します。
自分で許容量を決めて入力すれば、年間の許容限度を超えるものかどうかも判断します。
すごーく単純なプログラムです。
-----------------------------------------
1 CLS
10 PRINT "ﾎｳｼｬｾﾝﾘｮｳ(";CHR$(&H8D);"Gy/h or ";CHR$(&H8D);"Sv/h)=";
15 INPUT MGYH
20 INPUT "ﾈﾝｶﾝｷｮﾖｳｹﾞﾝﾄﾞ(mSv/ﾈﾝ)=";MX
60 R=MGYH/1000*24*365
70 D=MX/(MGYH/1000*24)
120 PRINT "----- ｹｲｻﾝｹｯｶ -----"
130 PRINT "ﾈﾝｶﾝ ";R;"mSv"
150 PRINT "ｷｮﾖｳｹﾞﾝﾄﾞ ﾆ ﾀｯｽﾙﾏﾃﾞ";:PRINT USING "#####.###";D;:PRINT "ﾆﾁ"
155 PRINT"ﾈﾝｶﾝｷｮﾖｳｹﾞﾝﾄﾞ ";
160 IF D>365 THEN PRINT "ｲｶﾃﾞｽ" ELSE PRINT "ｲｼﾞｮｳﾃﾞｽ"
-----------------------------------------
(2)ベクレル→シーベルト換算
水道水や野菜・魚から検出された放射線の「１キログラムあたりベクレル値」を「マイクロシーベルト/時」に変換するためのプログラムです。これも自分で許容値を決めて入力すれば、年間の許容限度を超えるものかどうかも判断します。
これまたすごーく単純なプログラムです。
-----------------------------------------
1 CLS
10 INPUT "ﾎｳｼｬｾｲﾌﾞﾌｯｼﾂ(Bq/Sv)=";B
20 INPUT "1ﾆﾁ ｱﾀﾘ ｾｯｼｭﾘｮｳ(g)=";G
30 INPUT "ｾｯｼｭｷｶﾝ(ﾆﾁ)=";D
40 INPUT "ｹｲｺｳ/ｷｭｳﾆｭｳ(0/1)=";KK
50 INPUT "I-131/Cs-137(0/1)=";IC
60 KI=KK*10+IC
70 IF KI=0 THEN K=2.2*10^-5
80 IF KI=1 THEN K=1.3*10^-5
90 IF KI=10 THEN K=7.4*10^-6
100 IF KI=11 THEN K=3.9*10^-5
110 R=K*B*G/1000*D*1*1
120 PRINT "----- ｹｲｻﾝｹｯｶ -----"
130 PRINT R;"mSv"
140 R2=1/(K*B*G/1000*1*1)
150 PRINT "1mSv ﾆ ﾀﾆｯｽﾙﾏﾃﾞ";:PRINT USING "#####.###";R2;:PRINT "ﾆﾁ"
160 IF R2>365 THEN PRINT "ﾈﾝｶﾝｹﾞﾝﾄﾞ ｲｶﾃﾞｽ" ELSE PRINT "ﾈﾝｶﾝｹﾞﾝﾄﾞ ｲｼﾞｮｳﾃﾞｽ"
-----------------------------------------
コメント
コメントを投稿