basic 気体の体積の変化 プログラムどうやって動かせばいい？coding(154)

第1節　気体の体積の変化
http://www.keirinkan.com/kori/kori_chemistry/kori_chemistry_2_kaitei/contents/ch-2/1-bu/1-3-1.htm

basicのプログラムがある

10  CLS 3:SCREEN 3,0:CONSOLE 0,25,0,0
20  Input "Dater number";N
30  DIM X(N), Y(N)
40  FOR I=1 TO N
50    PRINT "No.";I;:INPUT " Temparature";X(I)
60    PRINT "No.";I;:INPUT " mass";Y(I)
70   NEXT I
80   FOR I=1 TO N
90     WX=Wy+X(I): WY=WY+Y(I):SX=SX+X(I)*X()):Q=Q+X(I)*Y(I)
100  NEXT I
110  A=(N*Q -WX*WY)/(N*SX-WY*Wx):B=WY/N - A*WX/N
120  GOSUB *GRAPH
130  CLS
140  PRINT "Y=";:PRINT USING "#.###";A;
150  PRINT "X+";:PRINT USING "###";B
160  PRINT " 0 degree ";:PRINT USING "####"; -B/A: PRINT "*C"
170  LOCATE 51,0: PRINT"cm3":LOCATE 51,4:PRINT "300"
     LOCATE 51,8: PRINT "200":LOCATE 51,12:PRINT "100"
180  LOCATE 10,18:PRINT
     "-300          -2--           -100          0       100 *c"
190  LOCATE 0,20
200  PRINT " temparature *C"
210  FOR I=1 TO N
		220   PRINT USING "###.#   ";X(I);
230  NEXT I
240  PRINT
250  PRINT " mass cm3"
260  FOR I=1 TO N
270   PRINT USING "###.#  ";Y(I);
280  NEXT I
290  GOTO 290
300 *GRAPH
310  CLS 1:WINDOW(0,0)-(630,290)
320  LINE(10,206) - (639,299),6
330  LINE(400,0) - (400, 207),6
340  FOR I=0 to 12       :PSET(I*50, 207): NEXT I
350  FOR I=0 to 12 STEP 2:PSET(I*50, 208): NEXT I
360  FOR I=0 to 12 STEP 2:PSET(I*50, 209): NEXT I
370  FOR I=0 to 7        :PSET(401,(I+1)*25-10+16): NEXT I
380  FOR I=2 to 7 STEP 2:PSET(402, I*25-10): NEXT I
390  FOR I=2 to 7 STEP 2:PSET(403, I*25, 209): NEXT I
400  FOR I=1 TO N
410   CIRCLE(400+X(I), 190 - Y(I)/2+16),2,5
420  NEXT I
430  LINE(480,206-(A*80+B)/2)-(400,206-B/2),2
440  LINE(400, 206-B/2)-(400-B/A,206),2
450 RETURN		

これが動く環境はいずこ。

dockerでBASIC:docker(116)
https://qiita.com/kaizen_nagoya/items/b08215976bf07c85ca45

まずyabasicをいれてみた。

bash

# yabasic chem1.bas
---Error in chem1.bas, line 1: syntax error
   10  CLS 3:SCREEN 3,0:CONSOLE 0,25,0,0
           ^
---Error: Program not executed

3を削った。

# yabasic chem1.bas
---Error in chem1.bas, line 1: syntax error
   10  CLS :SCREEN 3,0:CONSOLE 0,25,0,0
           ^
---Error: Program not executed

:は区切りじゃ使えないらしい。

参考資料

Qiita Calendar 2021 折り返し
https://qiita.com/kaizen_nagoya/items/3ffdcc464aa3855f5319

関連資料

' @kazuo_reve 私が効果を確認した「小川メソッド」
https://qiita.com/kazuo_reve/items/a3ea1d9171deeccc04da

' @kazuo_reve 新人の方によく展開している有益な情報
https://qiita.com/kazuo_reve/items/d1a3f0ee48e24bba38f1

' @kazuo_reve Vモデルについて勘違いしていたと思ったこと
https://qiita.com/kazuo_reve/items/46fddb094563bd9b2e1e

自己記事一覧

Qiitaで逆リンクを表示しなくなったような気がする。時々、スマフォで表示するとあらわっることがあり、完全に削除したのではなさそう。

４月以降、せっせとリンクリストを作り、統計を取って確率を説明しようとしている。
2025年２月末を目標にしている。

Qiitaの記事に３段階または５段階で到達するための方法
https://qiita.com/kaizen_nagoya/items/6e9298296852325adc5e

プログラマが知っていると良い「公序良俗」
https://qiita.com/kaizen_nagoya/items/9fe7c0dfac2fbd77a945

逆も真：社会人が最初に確かめるとよいこと。OSEK(69)、Ethernet(59)
https://qiita.com/kaizen_nagoya/items/39afe4a728a31b903ddc

「何を」よりも「誰を」。１０年後のために今見習いたい人たち
https://qiita.com/kaizen_nagoya/items/8045978b16eb49d572b2

物理記事　上位100
https://qiita.com/kaizen_nagoya/items/66e90fe31fbe3facc6ff

量子(0) 計算機, 量子力学
https://qiita.com/kaizen_nagoya/items/1cd954cb0eed92879fd4

数学関連記事１００
https://qiita.com/kaizen_nagoya/items/d8dadb49a6397e854c6d

図(0) state, sequence and timing. UML and お絵描き
https://qiita.com/kaizen_nagoya/items/60440a882146aeee9e8f

品質一覧
https://qiita.com/kaizen_nagoya/items/2b99b8e9db6d94b2e971

言語・文学記事　１００
https://qiita.com/kaizen_nagoya/items/42d58d5ef7fb53c407d6

医工連携関連記事一覧
https://qiita.com/kaizen_nagoya/items/6ab51c12ba51bc260a82

自動車　記事　１００
https://qiita.com/kaizen_nagoya/items/f7f0b9ab36569ad409c5

通信記事１００
https://qiita.com/kaizen_nagoya/items/1d67de5e1cd207b05ef7

日本語（０）一欄
https://qiita.com/kaizen_nagoya/items/7498dcfa3a9ba7fd1e68

英語(0) 一覧
https://qiita.com/kaizen_nagoya/items/680e3f5cbf9430486c7d

転職(0)一覧
https://qiita.com/kaizen_nagoya/items/f77520d378d33451d6fe

仮説（0）一覧（目標100現在40）
https://qiita.com/kaizen_nagoya/items/f000506fe1837b3590df

音楽　一覧(0)
https://qiita.com/kaizen_nagoya/items/b6e5f42bbfe3bbe40f5d

「@kazuo_reve 新人の方によく展開している有益な情報」確認一覧
https://qiita.com/kaizen_nagoya/items/b9380888d1e5a042646b

Qiita(0)Qiita関連記事一覧（自分）
https://qiita.com/kaizen_nagoya/items/58db5fbf036b28e9dfa6

鉄道（０）鉄道のシステム考察はてっちゃんがてつだってくれる
https://qiita.com/kaizen_nagoya/items/26bda595f341a27901a0

安全（0）安全工学シンポジウムに向けて: 21
https://qiita.com/kaizen_nagoya/items/c5d78f3def8195cb2409

一覧の一覧( The directory of directories of mine.) Qiita(100)
https://qiita.com/kaizen_nagoya/items/7eb0e006543886138f39

Ethernet 記事一覧　Ethernet(0)
https://qiita.com/kaizen_nagoya/items/88d35e99f74aefc98794

Wireshark 一覧 wireshark(0)、Ethernet(48)
https://qiita.com/kaizen_nagoya/items/fbed841f61875c4731d0

線網（Wi-Fi）空中線(antenna)(0) 記事一覧(118/300目標)
https://qiita.com/kaizen_nagoya/items/5e5464ac2b24bd4cd001

OSEK OS設計の基礎　OSEK(100)
https://qiita.com/kaizen_nagoya/items/7528a22a14242d2d58a3

Error一覧 error(0)
https://qiita.com/kaizen_nagoya/items/48b6cbc8d68eae2c42b8

++ Support(0)　
https://qiita.com/kaizen_nagoya/items/8720d26f762369a80514

Coding(0) Rules, C, Secure, MISRA and so on
https://qiita.com/kaizen_nagoya/items/400725644a8a0e90fbb0

coding (101) 一覧を作成し始めた。omake:最近のQiitaで表示しない5つの事象
https://qiita.com/kaizen_nagoya/items/20667f09f19598aedb68

プログラマによる、プログラマのための、統計(0)と確率のプログラミングとその後
https://qiita.com/kaizen_nagoya/items/6e9897eb641268766909

なぜdockerで機械学習するか 書籍・ソース一覧作成中 (目標100)
https://qiita.com/kaizen_nagoya/items/ddd12477544bf5ba85e2

言語処理100本ノックをdockerで。python覚えるのに最適。:10+12
https://qiita.com/kaizen_nagoya/items/7e7eb7c543e0c18438c4

プログラムちょい替え（0）一覧:4件
https://qiita.com/kaizen_nagoya/items/296d87ef4bfd516bc394

Python(0)記事をまとめたい。
https://qiita.com/kaizen_nagoya/items/088c57d70ab6904ebb53

官公庁・学校・公的団体（NPOを含む）システムの課題、官（０）
https://qiita.com/kaizen_nagoya/items/04ee6eaf7ec13d3af4c3

「はじめての」シリーズ　 ベクタージャパン　
https://qiita.com/kaizen_nagoya/items/2e41634f6e21a3cf74eb

AUTOSAR(0)Qiita記事一覧, OSEK(75)
https://qiita.com/kaizen_nagoya/items/89c07961b59a8754c869

プログラマが知っていると良い「公序良俗」
https://qiita.com/kaizen_nagoya/items/9fe7c0dfac2fbd77a945

LaTeX(0) 一覧　
https://qiita.com/kaizen_nagoya/items/e3f7dafacab58c499792

自動制御、制御工学一覧（０）
https://qiita.com/kaizen_nagoya/items/7767a4e19a6ae1479e6b

Rust(0) 一覧　
https://qiita.com/kaizen_nagoya/items/5e8bb080ba6ca0281927

100以上いいねをいただいた記事16選
https://qiita.com/kaizen_nagoya/items/f8d958d9084ffbd15d2a

小川清最終講義、最終講義（再）計画, Ethernet(100) 英語(100) 安全(100)
https://qiita.com/kaizen_nagoya/items/e2df642e3951e35e6a53

＜この記事は個人の過去の経験に基づく個人の感想です。現在所属する組織、業務とは関係がありません。＞
This article is an individual impression based on the individual's experience. It has nothing to do with the organization or business to which I currently belong.

文書履歴(document history)

ver. 0.01 初稿 　2024116

最後までおよみいただきありがとうございました。

いいね　💚、フォローをお願いします。

Thank you very much for reading to the last sentence.

Please press the like icon 💚　and follow me for your happy life.