home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh46b.d64 / chemiekastenv2.0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  26KB  |  988 lines
  1. 1 REM ********************************
  2. 2 REM *                              *
  3. 3 REM *      CHEMIEKASTEN V2.0       *
  4. 4 REM *             VON              *
  5. 5 REM *         THOMAS HENKE         *
  6. 6 REM *     IM BRINKMANNSFELD 31     *
  7. 7 REM *         4250 BOTTROP         *
  8. 8 REM *                              *
  9. 9 REM ********************************
  10. 10 GOSUB8050
  11. 20 POKE53265,PEEK(53265)AND223:POKE53272,2
  12. 30 SYS36864
  13. 40 :
  14. 50 REM * MENUE HM *
  15. 60 :
  16. 70 GARBCOL:PRINT"[147]"
  17. 80 MENU8,1,20,10,140,1,0,HM$(0),A
  18. 90 ONAGOTO150,210,1540,270,330,390,4540,5390,5680,6300
  19. 100 IFA=0THEN7200
  20. 110 GOTO70
  21. 120 :
  22. 130 REM * MENUE MM *
  23. 140 :
  24. 150 MENU3,15,14,3,141,1,0,MM$(0),A
  25. 160 IFA=0THEN70
  26. 170 ONAGOTO450,600,800
  27. 180 :
  28. 190 REM * MENUE GP *
  29. 200 :
  30. 210 MENU3,14,17,2,141,1,0,GP$(0),A
  31. 220 IFA=0THEN70
  32. 230 ONAGOTO1010,1190
  33. 240 :
  34. 250 REM * MENUE LP *
  35. 260 :
  36. 270 MENU0,12,36,3,141,1,0,LP$(0),A
  37. 280 IFA=0THEN70
  38. 290 ONAGOTO2190,2320,2440
  39. 300 :
  40. 310 REM * MENUE MA *
  41. 320 :
  42. 330 MENU3,18,25,2,141,1,0,MA$(0),A
  43. 340 IFA=0THEN70
  44. 350 ONAGOTO2640,2820
  45. 360 :
  46. 370 REM * MENUE LOE *
  47. 380 :
  48. 390 MENU14,8,21,6,141,1,0,L$(0),A
  49. 400 IFA=0THEN70
  50. 410 ONAGOTO3290,3500,3710,3990,4200,4380
  51. 420 :
  52. 430 REM * MOLMASSE *
  53. 440 :
  54. 450 PU=1:PRINT"[147]"
  55. 460 TEXT0,15,"[205][207][204][205][193][211][211][197][146]"
  56. 470 ZE=2:SP=9:L=30:TEXT2,1,"[198]ORMEL:":GOSUB6960
  57. 480 Z=E:GOSUB7300
  58. 490 FORX=1TOB
  59. 500 TEXT2*X+2,1,"[197]LEMENT: "EE$(X)B$(8)"[193]NZAHL:"C(X)
  60. 510 NEXTX
  61. 520 IFB=1ANDC(B)=1THEN:TEXT6,1,"[193]TOMGEWICHT: "Z$" G/MOL":GOTO540
  62. 530 TEXT2*B+4,1,"[205]OLMASSE: "Z$" G/MOL"
  63. 540 DZ=B+2:GOSUB7970
  64. 550 IFA=0THEN150
  65. 560 GOTO450
  66. 570 :
  67. 580 REM * MOL & MASSE *
  68. 590 :
  69. 600 DZ=3:A=0:PU=0:PRINT"[147]"
  70. 610 TEXT0,14,"[205][207][204] & [205][193][211][211][197][146]"
  71. 620 TEXT2,3,"[198]ORMEL:"
  72. 630 TEXT4,4,B$(12)
  73. 640 TEXT6,1,"[205]OLMENGE: 1       MOL"
  74. 650 ER=0:ZE=2:SP=11:L=28:GOSUB6960
  75. 660 NK=4:X=1:ZE=4:L=7:GOSUB6840:MV=VAL(IP$)
  76. 670 X=2:SP=28:L=5:GOSUB6840:W=VAL(IP$)/100
  77. 680 X=3:ZE=6:SP=11:L=7:GOSUB6840:N=VAL(IP$)
  78. 690 IFA=0THENGOSUB7920:GOTO650
  79. 700 IFA=1THENZ=N*E/W:GOSUB7280:TEXT4,11,Z$:GOTO740
  80. 710 IFA=3THENZ=MV*W/E:GOSUB7280:TEXT6,11,Z$:GOTO740
  81. 720 NK=2
  82. 730 IFA=2THENZ=100*N*E/MV:GOSUB7280:TEXT4,28,Z$:GOTO740
  83. 740 GOSUB7970
  84. 750 IFA=0THEN150
  85. 760 GOTO600
  86. 770 :
  87. 780 REM * GRAVIMETRIE *
  88. 790 :
  89. 800 DZ=4:PU=0:PRINT"[147]"
  90. 810 TEXT0,14,"[199][210][193][214][201][205][197][212][210][201][197][146]"
  91. 820 TEXT2,1,"[199]ESUCHTE [211]UBSTANZ:"
  92. 830 TEXT4,13,"[205]ASSE: ?       G"
  93. 840 TEXT6,2,"[193]USGEW. [211]UBSTANZ:"
  94. 850 TEXT8,13,"[205]ASSE: 1       G"
  95. 860 ZE=2:SP=20:L=20:GOSUB6960:ER=E:SWAPARER$,EE$:DUPEARCT,C:F=B
  96. 870 ZE=6:GOSUB6970
  97. 880 FORX=1TOB
  98. 890 FORY=1TOF
  99. 900 IFEE$(X)=ER$(Y)THENC=C(X)/CT(Y):GOTO930
  100. 910 NEXTY:NEXTX
  101. 920 GOSUB7920:L=20:GOTO870
  102. 930 ZE=8:L=7:GOSUB6830:MV=VAL(IP$)
  103. 940 NK=4:Z=C*MV*ER/E:GOSUB7280:TEXT4,20,Z$
  104. 950 GOSUB7970
  105. 960 IFA=0THEN150
  106. 970 GOTO800
  107. 980 :
  108. 990 REM * GEWICHTSPROZENTE SF *
  109. 1000 :
  110. 1010 PU=2:PRINT"[147]"
  111. 1020 TEXT0,8,"[199][197][215][201][195][200][212][211][208][210][207][218][197][206][212][194][197][210][197][195][200][206][213][206][199][146]"
  112. 1030 ZE=2:SP=9:L=30:TEXT2,1,"[198]ORMEL:":GOSUB6960
  113. 1040 TEXT4,1,"[197]LEM.  [193]NZ.   [199]EW%"
  114. 1050 NK=2:FORX=1TOB
  115. 1060 W(X)=C(X)*AM(EZ%(X))*100/E
  116. 1070 Z=W(X):GOSUB7280:W$=Z$:C$=STR$(C(X))
  117. 1080 TEXT2*X+4,2,EE$(X)TAB(11-LEN(C$))C$TAB(13)W$
  118. 1090 NEXTX
  119. 1100 MENU26,4,10,3,141,1,0,WM$(0),A
  120. 1110 IFA<4THEN:KILLM
  121. 1120 IFA=0THEN210
  122. 1130 IFA=2THENDZ=B+2:GOSUB7550:GOTO1100
  123. 1140 IFA=1THEN1010
  124. 1150 IFA=3THENUP=1:GOTO1540
  125. 1160 :
  126. 1170 REM * GEWICHTSPROZENTE VW *
  127. 1180 :
  128. 1190 B=8:PU=2:PS=0:A=1:NK=2:PRINT"[147]"
  129. 1200 TEXT0,8,"[199][197][215][201][195][200][212][211][208][210][207][218][197][206][212][194][197][210][197][195][200][206][213][206][199][146]"
  130. 1210 TEXT2,1,"[197]INW. [193][211]  [214]ERB.   [193]USW. [214][194]   [199]EW.% [197]L."
  131. 1220 WLINE3,0,40,1:SLINE2,10,2,1:SLINE2,18,2,1:SLINE2,29,2,1:TEXT4,1,"1"
  132. 1230 FORX=1TO8
  133. 1240 WLINE2*X+3,0,40,1:SLINE2*X+2,10,2,1:SLINE2*X+2,18,2,1:SLINE2*X+2,29,2,1
  134. 1250 IFX>1THENPU=1:NK=NB:Z=ES:GOSUB7280:TEXT2*X+2,1,Z$:PU=2:NK=2
  135. 1260 EINGABE2*X+2,1,7,"1234567890.",IP$,"[133]",SV%
  136. 1270 IFSV%=1THENB=X-1:GOTO1440
  137. 1280 ES=VAL(IP$):Z=ES:GOSUB7430
  138. 1290 TEXT2*X+2,12,"     "
  139. 1300 TEXT2*X+2,12,VB$(A)
  140. 1310 GETKP$:IFKP$=""THEN1310
  141. 1320 IFKP$=""THENIFA<8THENA=A+1:GOTO1290
  142. 1330 IFKP$="[145]"THENIFA>1THENA=A-1:GOTO1290
  143. 1340 IFPEEK(203)=1THEN1360
  144. 1350 GOTO1310
  145. 1360 EE$(X)=VE$(A):EINGABE2*X+2,21,7,"1234567890.R",IP$
  146. 1370 IFIP$="R"THENW(X)=100-PS:Z=W(X):GOSUB7280:PS=100:TEXT2*X+2,21," "
  147. 1380 IFIP$="R"THENB=X:TEXT2*X+2,31,Z$:X=X+1:GOTO1440
  148. 1390 AV=VAL(IP$):W(X)=FNR(FV(A)*AV*100/ES)
  149. 1400 PS=PS+W(X):Z=W(X):GOSUB7280
  150. 1410 TEXT2*X+2,31,Z$
  151. 1420 IFA<8THENA=A+1
  152. 1430 NEXTX
  153. 1440 LA=2*X+2:GOSUB7870:IFB>6THENGOSUB7500
  154. 1450 MENU12,16,10,3,141,1,0,WM$(0),A
  155. 1460 IFA<4THEN:KILLM
  156. 1470 IFA=0THEN210
  157. 1480 IFA=2THENDZ=B+1:GOSUB7550:GOTO1450
  158. 1490 IFA=1THEN1190
  159. 1500 IFA=3THENUP=2
  160. 1510 :
  161. 1520 REM * EMPIRISCHE FORMEL *
  162. 1530 :
  163. 1540 NK=2:PU=2:EE=0:PRINT"[147]"
  164. 1550 TEXT0,4,"[194][197][210][197][195][200][206][213][206][199] [196][197][210] [197][205][208][201][210][201][211][195][200][197][206] [198][207][210][205][197][204][146]"
  165. 1560 IFUP=1THENUP=0:PS=100:G=1:DUPEARZ,C:GOTO1700
  166. 1570 IFUP=2THENUP=0:GOSUB7090:GOTO1650
  167. 1580 ZE=2:SP=11:L=28:TEXT2,1,"[197]LEMENTE:":GOSUB6960:IFB=9THEN1580
  168. 1590 PS=100
  169. 1600 FORX=1TOB
  170. 1610 TEXT2*X+2,4,EE$(X)SPC(5)"[199]EW% ? "FNR(PS)
  171. 1620 EINGABE2*X+2,19,6,"1234567890.",IP$,"[133]",SV%:IFSV%=1THEN70
  172. 1625 W(X)=VAL(IP$):PS=PS-W(X):IFW(X)=0THEN1620
  173. 1630 NEXTX
  174. 1640 PS=100-PS
  175. 1650 G=100:FORX=1TOB
  176. 1660 Z(X)=W(X)/AM(EZ%(X))
  177. 1670 IFZ(X)<GTHENG=Z(X)
  178. 1680 NEXTX
  179. 1690 FORX=1TOB:C(X)=Z(X)/G:NEXTX
  180. 1700 E=0:NK=5:GOSUB7090:ER=E
  181. 1710 DUPEARCT,C:GOTO1730
  182. 1720 E=0:NK=5:GOSUB7090
  183. 1730 GOSUB7860:NK=2
  184. 1740 TEXT2,2,"[197]LEMENT  [208]ROZENT  [201]NDEXW.  [210]EL.[201]NDEX"
  185. 1750 FORX=1TOB
  186. 1760 Z=W(X):GOSUB7280:W$=Z$:Z=Z(X):GOSUB7280:I$=Z$:Z=C(X):GOSUB7280:C$=Z$
  187. 1770 TEXT2*X+2,4,EE$(X)SPC(4)W$SPC(2)I$SPC(3)C$
  188. 1780 NEXTX
  189. 1790 TEXT2*B+4,2,"[205]OLMASSE:"E" [197]INGABE:"EE
  190. 1800 TEXT2*B+6,2,"[208]ROZENTSUMME:"PS"%"
  191. 1810 IFB>4THEN:GOSUB7500
  192. 1820 DUPEARC,CT
  193. 1830 MENU25,14,10,4,141,1,0,EF$(0),A
  194. 1840 IFA<5THEN:KILLM
  195. 1850 IFA=0THEN70
  196. 1860 IFA=2THENDZ=B+3:GOSUB7550:GOTO1810
  197. 1870 ONAGOTO1540,7550,1890,2070
  198. 1880 :
  199. 1890 TEXT2*B+6,2,"[197]RMITTELTE [205]OLMASSE ? "E
  200. 1900 EINGABE2*B+6,25,8,"1234567890.",IP$,"[133]",SV%:IFSV%=1THEN70
  201. 1910 EE=VAL(IP$):F=INT(EE/ER+0.5)
  202. 1920 IFF<1THENF=1
  203. 1930 MENU16,16,8,2,141,1,0,TE$(0),A
  204. 1940 IFA<3THEN:KILLM
  205. 1950 ONAGOTO2020,1970
  206. 1960 :
  207. 1970 FORX=1TOB
  208. 1980 C(X)=C(X)*F
  209. 1990 NEXTX
  210. 2000 GOTO1720
  211. 2010 :
  212. 2020 FORX=1TOB
  213. 2030 C(X)=C(X)*F:C(X)=INT(C(X)+.5)
  214. 2040 NEXTX
  215. 2050 GOTO1720
  216. 2060 :
  217. 2070 CLEARZ2*B+6
  218. 2080 TEXT2*B+6,2,"[197]LEMENT+[193]NZAHL ?  "EE$(1)
  219. 2090 EINGABE2*B+6,20,4," 1234567890[171][179][177][178][163][183][184][162][185][175]",IP$,"[133]",SV%:IFSV%=1THEN70
  220. 2100 FALIP$:EE$(0)=CHR$(PEEK(40449))+CHR$(PEEK(40450)):F=PEEK(40451)
  221. 2110 FORX=1TOB
  222. 2120 IFEE$(0)=EE$(X)THENG=Z(X)/F:GOTO2150
  223. 2130 NEXTX
  224. 2140 GOSUB7920:GOTO2080
  225. 2150 FORX=1TOB:C(X)=Z(X)/G:NEXTX:GOTO1720
  226. 2160 :
  227. 2170 REM * LOESLICHKEITSPRODUKT *
  228. 2180 :
  229. 2190 DZ=3:PRINT"[147]"
  230. 2200 TEXT0,2,"[204][207][197][211][204][201][195][200][203][197][201][212] [201][206][160][204][207][197][211][204][201][195][200][203][197][201][212][211][208][210][207][196][213][203][212][146]"
  231. 2210 TEXT2,1,"[198]ORMEL DES [211]ALZES:"
  232. 2220 ZE=2:SP=20:L=18:GOSUB6960:LOEPRFO$,Q1%,Q2%
  233. 2230 TEXT4,2,"[211]AETTIGUNGSKONZ.: 5.0E-5":ZE=4:GOSUB6630:NK=2
  234. 2240 ML=Q1%^Q1%*Q2%^Q2%*ML^(Q1%+Q2%):EL=EL*(Q1%+Q2%):ML=ML/1000:EL=EL+3:GOSUB6760
  235. 2250 TEXT6,2,"[204]OESLICHKEITSPR.:"Z$
  236. 2260 GOSUB7970
  237. 2270 IFA=0THEN270
  238. 2280 GOTO2190
  239. 2290 :
  240. 2300 REM * LOESLICHKEIT *
  241. 2310 :
  242. 2320 DZ=4:PRINT"[147]"
  243. 2330 TEXT0,2,"[204][207][197][211][204][201][195][200][203][197][201][212][211][208][210][207][196][213][203][212][160][201][206][160][204][207][197][211][204][201][195][200][203][197][201][212][146]"
  244. 2340 GOSUB2570:NK=4
  245. 2350 ML=(ML/(Q1%^Q1%*Q2%^Q2%))^(1/(Q1%+Q2%)):EL=EL/(Q1%+Q2%):SW=EL:SQ=ML
  246. 2360 GOSUB6760:TEXT6,2,"[211]AETTIGUNGSKONZ.:"Z$" MOL/L"
  247. 2370 ML=SQ*E/1000:EL=SW+3:GOSUB6760:TEXT8,3,"[205]ASSENKONZENTR.:"Z$" G/L"
  248. 2380 GOSUB7970
  249. 2390 IFA=0THEN270
  250. 2400 GOTO2320
  251. 2410 :
  252. 2420 REM * GLEICHIONIGER ZUSATZ *
  253. 2430 :
  254. 2440 DZ=5:PRINT"[147]"
  255. 2450 TEXT0,10,"[199][204][197][201][195][200][201][207][206][201][199][197][210][160][218][213][211][193][212][218][146]"
  256. 2460 GOSUB2570:SW=EL:SQ=ML
  257. 2470 ER=E:SWAPARER$,EE$:DUPEARCT,C
  258. 2480 TEXT6,3,"[214]ORGELEGTES [201]ON: "ER$(1):ZE=6:GOSUB6970
  259. 2490 IFEE$(1)=ER$(1)THENC=Q1%:GOTO2510
  260. 2500 C=Q2%
  261. 2510 TEXT8,5,"[203]ONZENTRATION: 3.0E-3":ZE=8:GOSUB6630:NK=4
  262. 2520 ML=SQ/ML^C:EL=SW-EL*C:GOSUB6760:TEXT10,4,"[198]EHLENDE [203]ONZ.:"Z$" MOL/L"
  263. 2530 GOSUB7970
  264. 2540 IFA=0THEN270
  265. 2550 GOTO2440
  266. 2560 :
  267. 2570 TEXT2,1,"[198]ORMEL DES [211]ALZES:"
  268. 2580 ZE=2:SP=20:L=18:GOSUB6960:LOEPRFO$,Q1%,Q2%
  269. 2590 TEXT4,2,"[204]OESLICHKEITSPR.: 5.0E-5":ZE=4:GOSUB6630
  270. 2600 RETURN
  271. 2610 :
  272. 2620 REM * MASSANALYSE TITRATION *
  273. 2630 :
  274. 2640 DZ=5:PU=0:A=0:PRINT"[147]"
  275. 2650 TEXT0,8,"[205][193][211][211][193][206][193][204][217][211][197]: [212][201][212][210][193][212][201][207][206][197][206][146]"
  276. 2660 GOSUB3090
  277. 2670 IFA=1THENZ=VH*CH*ZH*TH*E*FA/(ZG*W*1000):GOSUB7280:TEXT4,8,Z$:GOTO2760
  278. 2680 IFA=5THENZ=MV*W*ZG*1000/(VH*CH*ZH*E*FA):GOSUB7280:TEXT8,34,Z$:GOTO2760
  279. 2690 NK=3
  280. 2700 IFA=6THENZ=VH*CH*ZH*TH*E*FA/(ZG*VG):GOSUB7280:C$=Z$:Z=Z/E:GOSUB7280
  281. 2710 IFA=6THEN:TEXT4,5,"C="C$" G/L="Z$" MOL/L"
  282. 2720 IFA=4THENZ=MV*W*ZG*1000/(TH*VH*ZH*E*FA):GOSUB7280:TEXT8,19,Z$:GOTO2760
  283. 2730 NK=2
  284. 2740 IFA=2THENZ=VH*CH*ZH*TH*E*FA/(ZG*10*MV):GOSUB7280:TEXT4,21,Z$:GOTO2760
  285. 2750 IFA=3THENZ=MV*W*ZG*1000/(TH*CH*ZH*E*FA):GOSUB7280:TEXT8,7,Z$
  286. 2760 GOSUB7970
  287. 2770 IFA=0THEN330
  288. 2780 GOTO2640
  289. 2790 :
  290. 2800 REM * MASSANALYSE RUECKTITRATION *
  291. 2810 :
  292. 2820 DZ=7:PU=0:A=0:PRINT"[147]"
  293. 2830 TEXT0,5,"[205][193][211][211][193][206][193][204][217][211][197]: [210][213][197][195][203][212][201][212][210][193][212][201][207][206][197][206][146]"
  294. 2840 TEXT12,1,"[196]ATEN ZUR [205]ASSLSG. ([214]ORLAGE):"
  295. 2850 TEXT14,1,B$(10)
  296. 2860 GOSUB3090
  297. 2870 ZE=14:SP=3:L=1:GOSUB6830:ZV=VAL(IP$)
  298. 2880 SP=7:L=5:GOSUB6830:VV=VAL(IP$)
  299. 2890 SP=19:GOSUB6830:CV=VAL(IP$)
  300. 2900 SP=34:L=6:GOSUB6830:TV=VAL(IP$)
  301. 2910 IFA=1THENZ=(VV*CV*TV-VH*CH*ZH*TH/ZV)*E*FA*ZV/(ZG*W*1000):GOSUB7280
  302. 2920 IFA=1THEN:TEXT4,8,Z$:GOTO3050
  303. 2930 IFA=5THENZ=(VV*CV*TV-1000*MV*W*ZG/(ZV*E*FA))*ZV/(VH*CH*ZH):GOSUB7280
  304. 2940 IFA=5THEN:TEXT8,34,Z$:GOTO3050
  305. 2950 NK=3
  306. 2960 IFA=6THENZ=(VV*CV*TV-VH*CH*ZH*TH/ZV)*E*FA*ZV/(ZG*VG):GOSUB7280:C$=Z$
  307. 2970 IFA=6THENZ=Z/E:GOSUB7280:TEXT4,5,"[195]="C$" G/L="Z$" MOL/L":GOTO3050
  308. 2980 IFA=4THENZ=(VV*CV*TV-1000*MV*W*ZG/(ZV*E*FA))*ZV/(VH*TH*ZH):GOSUB7280
  309. 2990 IFA=4THEN:TEXT8,19,Z$:GOTO3050
  310. 3000 NK=2
  311. 3010 IFA=2THENZ=(VV*CV*TV-VH*CH*ZH*TH/ZV)*E*FA*ZV/(ZG*MV*10):GOSUB7280
  312. 3020 IFA=2THEN:TEXT4,21,Z$:GOTO3050
  313. 3030 IFA=3THENZ=(VV*CV*TV-1000*MV*W*ZG/(ZV*E*FA))*ZV/(TH*CH*ZH):GOSUB7280
  314. 3040 IFA=3THEN:TEXT8,7,Z$
  315. 3050 GOSUB7970
  316. 3060 IFA=0THEN330
  317. 3070 GOTO2820
  318. 3080 :
  319. 3090 TEXT2,1,"[196]ATEN ZUR GES. [214]ERB.:"
  320. 3100 TEXT4,1,"Z=1  M=1       G  W=100   %"
  321. 3110 TEXT6,1,"[196]ATEN ZUR [205]ASSLSG.:"
  322. 3120 TEXT8,1,B$(10)
  323. 3130 TEXT10,1,"[193]LIQUOTIERUNGSFAKTOR: 1"
  324. 3140 ER=0:ZE=2:SP=23:L=16:GOSUB6960
  325. 3150 NK=4
  326. 3160 ZE=4:SP=3:L=1:GOSUB6830:ZG=VAL(IP$)
  327. 3170 X=1:SP=8:L=7:GOSUB6840:MV=VAL(IP$)
  328. 3180 X=2:SP=21:L=5:GOSUB6840:W=VAL(IP$)/100
  329. 3190 ZE=8:SP=3:L=1:GOSUB6830:ZH=VAL(IP$)
  330. 3200 X=3:SP=7:L=5:GOSUB6840:VH=VAL(IP$)
  331. 3210 X=4:SP=19:GOSUB6840:CH=VAL(IP$)
  332. 3220 X=5:SP=34:L=6:GOSUB6840:TH=VAL(IP$)
  333. 3230 ZE=10:SP=23:L=2:GOSUB6830:FA=VAL(IP$)
  334. 3240 IFA=0THENA=6:TEXT4,30,"[214]=10    ML":ZE=4:SP=32:L=5:GOSUB6830:VG=VAL(IP$)
  335. 3250 RETURN
  336. 3260 :
  337. 3270 REM * LOESUNGEN HERSTELLEN *
  338. 3280 :
  339. 3290 DZ=4:PU=0:A=0:PRINT"[147]"
  340. 3300 TEXT0,9,"[204][207][197][211][213][206][199][197][206]: [200][197][210][211][212][197][204][204][197][206][146]"
  341. 3310 TEXT2,1,"[199]ELOESTE [211]UBSTANZ:"
  342. 3320 TEXT4,9,B$(12)
  343. 3330 TEXT6,7,"[214]OLUMEN: 10     ML"
  344. 3340 TEXT8,1,"[203]ONZENTRATION: 0.5    MOL/L"
  345. 3350 ER=0:ZE=2:SP=20:L=19:GOSUB6960
  346. 3360 NK=4:L=7:X=1:ZE=4:SP=16:GOSUB6840:MV=VAL(IP$):L=5:SP=33:GOSUB6830:W=VAL(IP$)/100
  347. 3370 SP=16:ZE=6:X=2:GOSUB6840:VV=VAL(IP$)
  348. 3380 ZE=8:X=3:GOSUB6840:CV=VAL(IP$)
  349. 3390 IFA=0THENGOSUB7920:GOTO3350
  350. 3400 IFA=1THENZ=E*CV*VV/1000/W:GOSUB7280:TEXT4,16,Z$:GOTO3440
  351. 3410 IFA=3THENZ=MV*W*1000/(E*VV):GOSUB7280:TEXT8,16,Z$:GOTO3440
  352. 3420 NK=1
  353. 3430 IFA=2THENZ=MV*W*1000/(E*CV):GOSUB7280:TEXT6,16,Z$
  354. 3440 GOSUB7970
  355. 3450 IFA=0THEN390
  356. 3460 GOTO3290
  357. 3470 :
  358. 3480 REM * LOESUNGEN EINENGEN/VERD. *
  359. 3490 :
  360. 3500 DZ=5:ER=1:NK=4:PU=0:PRINT"[147]"
  361. 3510 TEXT0,3,"[204][207][197][211][213][206][199][197][206] [197][201][206][197][206][199][197][206] [207][196][197][210] [214][197][210][196][213][197][206][206][197][206][146]"
  362. 3520 TEXT2,1,"[196]ATEN DER GEGEBENEN [204]OESUNG:"
  363. 3530 TEXT4,1,B$(12):TEXT8,1,B$(12)
  364. 3540 TEXT6,1,"[196]ATEN DER VORLIEGENDEN [204]OESUNG:"
  365. 3550 TEXT14,1,"[197]INENGEN: [199]EW% UNTEN GROESSER ALS OBEN."
  366. 3560 TEXT16,0,"[214]ERDUENNEN: [199]EW% UNTEN KLEINER ALS OBEN."
  367. 3570 ZE=4:SP=8:L=7:GOSUB6830:C(1)=VAL(IP$)
  368. 3580 SP=25:L=5:GOSUB6830:W(1)=VAL(IP$)
  369. 3590 ZE=8:SP=8:L=7:GOSUB6830:MV=VAL(IP$)
  370. 3600 SP=25:L=5:GOSUB6830:ZV=VAL(IP$):F=ZV-W(1):IFF<0THEN3630
  371. 3610 Z=C(1)-((C(1)*(ZV-W(1)))/ZV):GOSUB7280:TEXT8,8,Z$
  372. 3620 Z=C(1)-Z:GOSUB7280:TEXT10,1,"[193]BZUDAMPFENDE [205]ENGE: "Z$" G":GOTO3650
  373. 3630 Z=MV*ZV/W(1):GOSUB7280:TEXT4,8,Z$
  374. 3640 Z=MV-Z:GOSUB7280:TEXT10,1,"[215]ASSERZUGABE: "Z$" G"
  375. 3650 GOSUB7970
  376. 3660 IFA=0THEN390
  377. 3670 GOTO3500
  378. 3680 :
  379. 3690 REM * LOESUNGEN MISCHEN *
  380. 3700 :
  381. 3710 UE=0:DZ=5:NK=4:MV=0:PRINT"[147]"
  382. 3720 PU=1:TEXT0,10,"[204][207][197][211][213][206][199][197][206] [205][201][211][195][200][197][206][146]"
  383. 3730 TEXT2,1,"[196]ATEN DER [197]INZELLOESUNGEN:"
  384. 3740 TEXT4,1,B$(12):TEXT6,1,B$(12)
  385. 3750 TEXT8,1,"[196]ATEN DER [205]ISCHUNG:"
  386. 3760 TEXT10,1,B$(12)
  387. 3770 IFUE=4THEN:TEXT4,7,MV:GOSUB7280:TEXT4,25,Z$
  388. 3780 A=0:PU=0:ER=0:X=1:ZE=4:SP=8:L=7:GOSUB6840:C(X)=VAL(IP$)
  389. 3790 X=2:SP=25:L=5:GOSUB6840:W(1)=VAL(IP$)
  390. 3800 X=3:ZE=6:SP=8:L=7:IFC(1)=0THEN:TEXTZE,SP,"?":GOTO3820
  391. 3810 GOSUB6840:C(2)=VAL(IP$):MV=C(1)+C(2)
  392. 3820 SP=25:L=5:GOSUB6840:W(2)=VAL(IP$):IFW(2)=W(1)THEN3820
  393. 3830 IFMV<>0THEN:TEXT10,7,MV
  394. 3840 ZE=10:SP=8:L=7:GOSUB6830:MV=VAL(IP$):IFMV=0THEN3840
  395. 3850 X=4:SP=25:L=5:GOSUB6840:ZV=VAL(IP$)
  396. 3860 IFA=0THEN3780
  397. 3870 IFA=1THENZ=MV*(ZV-W(2))/(W(1)-W(2)):GOSUB7280:TEXT4,8,Z$
  398. 3880 IFA=1THENZ=MV-Z:GOSUB7280:TEXT6,8,Z$:GOTO3930
  399. 3890 NK=2
  400. 3900 IFA=2THENZ=((MV*ZV)-(C(2)*W(2)))/C(1):GOSUB7280:TEXT4,25,Z$:GOTO3930
  401. 3910 IFA=3THENZ=((MV*ZV)-(C(1)*W(1)))/C(2):GOSUB7280:TEXT6,25,Z$:GOTO3930
  402. 3920 IFA=4THENZ=((C(1)*W(1))+(C(2)*W(2)))/MV:GOSUB7280:TEXT10,25,Z$
  403. 3930 UE=A:GOSUB7970
  404. 3940 IFA=0THEN390
  405. 3950 GOTO3720
  406. 3960 :
  407. 3970 REM * DICHTE *
  408. 3980 :
  409. 3990 DZ=3:PU=0:PRINT"[147]"
  410. 4000 TEXT0,16,"[196][201][195][200][212][197][146]"
  411. 4010 TEXT2,3,B$(12)
  412. 4020 TEXT4,1,"[214]OLUMEN: 1       ML"
  413. 4030 TEXT6,2,"[196]ICHTE: 1       G/ML"
  414. 4040 A=0:ER=0:NK=4:X=1:ZE=2:SP=10:L=7:GOSUB6840:MV=VAL(IP$)
  415. 4050 X=2:SP=27:L=5:GOSUB6840:W=VAL(IP$)/100
  416. 4060 X=3:ZE=4:SP=10:L=7:GOSUB6840:VH=VAL(IP$)
  417. 4070 X=4:ZE=6:SP=10:GOSUB6840:ZV=VAL(IP$)
  418. 4080 IFA=0THENGOSUB7920:GOTO4040
  419. 4090 IFA=1THENZ=ZV*VH/W:GOSUB7280:TEXT2,10,Z$:GOTO4140
  420. 4100 IFA=3THENZ=MV*W/ZV:GOSUB7280:TEXT4,10,Z$:GOTO4140
  421. 4110 IFA=4THENZ=MV*W/VH:GOSUB7280:TEXT6,10,Z$
  422. 4120 NK=2
  423. 4130 IFA=2THENZ=100*ZV*VH/MV:GOSUB7280:TEXT2,27,Z$:GOTO4140
  424. 4140 GOSUB7970
  425. 4150 IFA=0THEN390
  426. 4160 GOTO3990
  427. 4170 :
  428. 4180 REM * PH-WERT-BERECHNUNG *
  429. 4190 :
  430. 4200 A=0:DZ=2:PU=1:PRINT"[147]"
  431. 4210 TEXT0,11,"P[200]-[215][197][210][212]-[194][197][210][197][195][200][206][213][206][199]"
  432. 4220 TEXT2,7,"P[200]-[215]ERT: ?":TEXT4,1,"[203]ONZENTRATION: ?"
  433. 4230 L=4:ER=0:X=1:ZE=2:SP=16:GOSUB6840:MV=VAL(IP$):IFMV>14THEN4230
  434. 4240 ZE=4:X=2:L=8
  435. 4250 EINGABEZE,SP,L,"1234567890.E-?",IP$,"[133]",SV%:IFSV%=1THEN70
  436. 4255 IFLEFT$(IP$,1)="?"ANDER=1THEN4250
  437. 4260 IFLEFT$(IP$,1)="?"THENA=X
  438. 4270 CV=VAL(IP$):GOSUB6640:IFEL<-14THEN4250
  439. 4280 NK=2:IFA=0THEN4230
  440. 4290 IFA=1THENZ=-LOG(CV)/LOG(10):GOSUB7280:TEXT2,16,Z$:GOTO4320
  441. 4300 IFA=2THENIP$=STR$(10^-MV):IP$=RIGHT$(IP$,LEN(IP$)-1):CV=VAL(IP$):GOSUB6640
  442. 4310 IFA=2THENGOSUB6760:TEXT4,15,Z$
  443. 4320 GOSUB7970
  444. 4330 IFA=0THEN390
  445. 4340 GOTO4200
  446. 4350 :
  447. 4360 REM * INTERPOLIEREN *
  448. 4370 :
  449. 4380 L=8:NK=4:A=0:DZ=4:PU=1:PRINT"[147]"
  450. 4390 TEXT0,13,"[201][206][212][197][210][208][207][204][201][197][210][197][206][146]"
  451. 4400 TEXT2,1,"[199]ESUCHTER [215]ERT:"
  452. 4410 TEXT4,1,"[213]NTERE [199]RENZEN:"
  453. 4420 TEXT6,2,"[207]BERE [199]RENZEN:"
  454. 4430 ZE=2:SP=31:GOSUB6830:GW=VAL(IP$)
  455. 4440 ZE=4:SP=21:GOSUB6830:VV=VAL(IP$):SP=31:GOSUB6830:ZV=VAL(IP$)
  456. 4450 ZE=6:SP=21:GOSUB6830:VH=VAL(IP$):SP=31:GOSUB6830:ZH=VAL(IP$)
  457. 4460 F=ZH-ZV:G=VH-VV:ZH=GW-ZV:ZV=ZH*G/F:Z=VV+ZV:GOSUB7280
  458. 4470 TEXT8,1,"[199]ESUCHTER [215]ERT IST: "Z$
  459. 4480 GOSUB7970
  460. 4490 IFA=0THEN390
  461. 4500 GOTO4380
  462. 4510 :
  463. 4520 REM * AUSBEUTEBERECHNUNGEN *
  464. 4530 :
  465. 4540 PU=0:PRINT"[147]"
  466. 4550 TEXT0,10,"[193][213][211][194][197][213][212][197][194][197][210][197][195][200][206][213][206][199][197][206][146]"
  467. 4560 TEXT2,1,"[210]EAKTIONSGLEICHUNG:":ZE=4:SP=2:SZ=1:Y=10:F=100:ER=0:SM=0:L=34:G=1
  468. 4570 TEXT8,24,"[205]ASSE     [193]NTEIL"
  469. 4580 D(SZ)=SP:TEXTZE,SP,"1":EINGABEZE,SP,2,"1234567890",IP$,"[133]",SV%
  470. 4590 IFSV%=1ANDSZ=1ANDZE=4THEN70
  471. 4595 IFSV%=1ANDG=SZTHEN4580
  472. 4600 IFSV%=1ANDZE=4THENG=SZ:SP=SP-1:TEXTZE,SP," [172]":ZE=6:SP=2:L=34:GOTO4580
  473. 4610 IFSV%=1ANDZE=6THENSP=SP-1:TEXTZE,SP,"  ":SZ=SZ-1:GOTO4860
  474. 4620 ZT(SZ)=VAL(IP$):IFZT(SZ)>9THEND(SZ)=D(SZ)-1
  475. 4630 SP=SP+2
  476. 4640 :
  477. 4650 FO$="[200][179][207]":GOSUB6960
  478. 4660 FF$(SZ)=FO$
  479. 4670 Z(SZ)=E:SP=SP+LEN(FO$)
  480. 4680 :
  481. 4690 IFSM>6THEN4800
  482. 4700 WT(SZ)=Y:TEXTY,1,FF$(SZ):TEXTY,24,"1"
  483. 4710 EINGABEY,24,7,"1234567890.?",IP$,"[133]",SV%
  484. 4720 IFSV%=1THENCT(SZ)=-2:CLEARZY:GOTO4800
  485. 4730 CT(SZ)=VAL(IP$)
  486. 4740 IFLEFT$(IP$,1)="?"THENCT(SZ)=-1:ER=1
  487. 4750 TEXTY,34,"100":EINGABEY,34,5,"1234567890.?",IP$,"[133]",SV%
  488. 4755 IFSV%=1THENCT(SZ)=-2:CLEARZY:GOTO4800
  489. 4760 W(SZ)=VAL(IP$)/100
  490. 4770 IFER=1ANDLEFT$(IP$,1)="?"THEN4750
  491. 4780 IFLEFT$(IP$,1)="?"THENW(SZ)=-1
  492. 4790 Y=Y+2:SM=SM+1
  493. 4800 IFSZ=9THEN4860
  494. 4810 L=35-SP:ER=0:SZ=SZ+1
  495. 4820 IFL<3ANDZE=4THENSV%=1:SP=SP+1:GOTO4600
  496. 4830 IFL<3ANDZE=6THENSZ=SZ-1:GOTO4860
  497. 4840 TEXTZE,SP,"+":SP=SP+1:GOTO4580
  498. 4850 :
  499. 4860 FORX=1TOG-1:TEXT4,D(X),ZT(X):NEXTX:FORX=GTOSZ:TEXT6,D(X),ZT(X):NEXTX
  500. 4870 X=1
  501. 4880 ZE=4:IFX>=GTHENZE=6
  502. 4890 A=ZT(X)
  503. 4900 TEXTZE,D(X),"  ":TEXTZE,D(X),A
  504. 4910 IFX<>1ANDX<>GTHENIFA>9THEN:TEXTZE,D(X),"+"
  505. 4920 GETKP$:IFKP$=""THEN4920
  506. 4930 IFKP$=""THENIFA<99THENA=A+1
  507. 4940 IFKP$=""THENIFA=10THEND(X)=D(X)-1
  508. 4950 IFKP$=""THEN4900
  509. 4960 IFKP$="[145]"THENIFA>1THENA=A-1
  510. 4970 IFKP$="[145]"THENIFA=9THEND(X)=D(X)+1
  511. 4980 IFKP$="[145]"THEN4900
  512. 4990 IFKP$=""THENIFX<SZTHENX=X+1:ZT(X-1)=A:GOTO4880
  513. 5000 IFKP$="[157]"THENIFX>1THENX=X-1:ZT(X+1)=A:GOTO4880
  514. 5010 IFKP$="[133]"THENZT(X)=A:GOTO5050
  515. 5020 ZT(X)=A:GOTO4880
  516. 5030 GOTO4880
  517. 5040 :
  518. 5050 IFSM=0THEN:CLEARZ8:GOTO5330
  519. 5060 ZE=4
  520. 5070 FORX=1TOG-1:AD=49312+D(X)
  521. 5080 IFZT(X)=1THEN:FORY=XTOG-1:D(Y)=D(Y)-2:NEXTY:TRANSAD+2,AD+40,AD
  522. 5090 Z(X)=Z(X)*ZT(X):NEXTX
  523. 5100 ZE=6
  524. 5110 FORX=GTOSZ:AD=49392+D(X)
  525. 5120 IFZT(X)=1THEN:FORY=XTOSZ:D(Y)=D(Y)-2:NEXTY:TRANSAD+2,AD+40,AD
  526. 5130 Z(X)=Z(X)*ZT(X):NEXTX
  527. 5140 FORX=1TOG-1
  528. 5150 IFCT(X)<0ORW(X)=-1THEN5170
  529. 5160 MV=CT(X)*W(X)/Z(X):IFMV<FTHENF=MV
  530. 5170 NEXTX
  531. 5180 IFF<>100THEN5240
  532. 5190 FORX=GTOSZ
  533. 5200 IFCT(X)<0THEN5220
  534. 5210 MV=CT(X)/(W(X)*Z(X)):IFMV<FTHENF=MV
  535. 5220 NEXTX
  536. 5230 IFF=100THEN4540
  537. 5240 NK=4:Z=F:GOSUB7280:TEXT8,1,"[205]OLMENGE: "Z$" MOL"
  538. 5250 FORX=1TOSZ
  539. 5260 NK=4:IFCT(X)=-1ANDX>=GTHENZ=F*Z(X)*W(X):GOSUB7280:TEXTWT(X),24,Z$:GOTO5310
  540. 5270 IFCT(X)=-1THENZ=F*Z(X)/W(X):GOSUB7280:TEXTWT(X),24,Z$:GOTO5310
  541. 5280 NK=2
  542. 5290 IFW(X)=-1ANDX>=GTHENZ=100*CT(X)/(F*Z(X)):GOSUB7280:TEXTWT(X),34,Z$:GOTO5310
  543. 5300 IFW(X)=-1THENZ=100*F*Z(X)/CT(X):GOSUB7280:TEXTWT(X),34,Z$
  544. 5310 NEXTX
  545. 5320 IFSM>4THENGOSUB7500
  546. 5330 DZ=SM+4:GOSUB7970
  547. 5340 IFA=0THEN70
  548. 5350 GOTO4540
  549. 5360 :
  550. 5370 REM * GASGESETZE *
  551. 5380 :
  552. 5390 DZ=5:PU=0:PRINT"[147]"
  553. 5400 TEXT0,15,"[199][193][211][199][197][211][197][212][218][197][146]"
  554. 5410 TEXT2,1,"[193]USGANGSBEDINGUNGEN:"
  555. 5420 TEXT4,1,B$(11)
  556. 5430 TEXT6,1,"[213]MRECHNUNGSBEDINGUNGEN:"
  557. 5440 TEXT8,1,B$(11)
  558. 5450 TEXT10,1,"[205]OLMENGE: 1      MOL"
  559. 5460 ER=0:X=1:ZE=4:L=7:A=0
  560. 5470 SP=3:GOSUB6830:P0=VAL(IP$)
  561. 5480 SP=18:GOSUB6830:V0=VAL(IP$)
  562. 5490 SP=31:L=5:GOSUB6830:T0=VAL(IP$)
  563. 5500 ZE=8:SP=3:L=7:GOSUB6840:P1=VAL(IP$)
  564. 5510 SP=18:X=2:GOSUB6840:V1=VAL(IP$)
  565. 5520 SP=31:L=5:X=3:GOSUB6840:T1=VAL(IP$)
  566. 5530 ZE=10:SP=11:L=6:X=4:GOSUB6840:N=VAL(IP$)
  567. 5540 IFA=0THEN5460
  568. 5550 R=P0*V0/T0:NK=3
  569. 5560 IFA=1THENZ=N*R*T1/V1:GOSUB7280:TEXT8,3,Z$:GOTO5620
  570. 5570 IFA=2THENZ=N*R*T1/P1:GOSUB7280:TEXT8,18,Z$:GOTO5620
  571. 5580 NK=2
  572. 5590 IFA=3THENZ=P1*V1/(N*R):GOSUB7280:TEXT8,31,Z$:GOTO5620
  573. 5600 NK=3
  574. 5610 IFA=4THENZ=P1*V1/(R*T1):GOSUB7280:TEXT10,11,Z$
  575. 5620 GOSUB7970
  576. 5630 IFA=0THEN70
  577. 5640 GOTO5390
  578. 5650 :
  579. 5660 REM * STATISTIK *
  580. 5670 :
  581. 5680 N=30:PU=1:DZ=3:SA=1:SM=3:SW=0:SQ=0:SP=13:ZE=8:UE=0:ER=1:PRINT"[147]"
  582. 5690 TEXT0,15,"[211][212][193][212][201][211][212][201][203][146]"
  583. 5700 TEXT2,1,"[205]ESSWERTNUMMER:":TEXT4,7,"[205]ESSWERT:   1"
  584. 5710 FORX=1TO30
  585. 5720 TEXT2,18,X
  586. 5730 EINGABE4,19,6,"1234567890.^",IP$,"[133]",SV%
  587. 5735 IFSV%=1ANDX=1THEN70
  588. 5740 IFSV%=1THENN=X-1:GOTO5790
  589. 5745 IFLEFT$(IP$,1)="^"ANDX=1THEN5730
  590. 5750 IFLEFT$(IP$,1)="^"THENX=X-1:SW=SW-DX(X):SQ=SQ-DX(X)^2:X=X-1:GOTO5780
  591. 5760 DX(X)=VAL(IP$):SW=SW+DX(X):SQ=SQ+DX(X)^2
  592. 5770 IFX=1THENZ=DX(1):GOSUB7430
  593. 5780 NEXTX
  594. 5790 NK=NB:SE=N:IFN<2THEN5680
  595. 5800 TEXT6,1,"[201]CH SORTIERE [196]EINE [196]ATEN. [196]AS DAUERT..."
  596. 5810 FORX=N-1TO1STEP-1
  597. 5820 FORY=1TOX
  598. 5830 IFDX(Y)<=DX(Y+1)THEN5850
  599. 5840 ARRSWAPDX(Y),DX(Y+1)
  600. 5850 NEXTY:NEXTX
  601. 5860 CLEARZ6:GOSUB6180
  602. 5870 IFN<3THENSM=2
  603. 5880 MENU26,16,10,SM,141,1,0,SM$(0),A
  604. 5890 IFA<SM+1THEN:KILLM
  605. 5900 IFA=0THEN70
  606. 5910 IFA=2THENGOSUB7550:GOTO5880
  607. 5920 IFA=3THEN5950
  608. 5930 GOTO5680
  609. 5940 :
  610. 5950 TEXT6,7,"[193][213][211][210][197][201][211][211][197][210][212][197][211][212] [206][193][195][200] [206][193][204][201][205][207][214][146]":TEXT8,1,"[193]USREISSER:"
  611. 5960 IFS=0THENWS=1:GOTO6000
  612. 5970 R=(N/(N-1))^0.5:ZV=(MX-DX(SA))*R/S:ZH=(DX(SE)-MX)*R/S
  613. 5980 IFZV>ZHTHENWS=ZV:R=1:GOTO6000
  614. 5990 WS=ZH:R=0
  615. 6000 IFWS<TW(N-2)THENIFUE=0THEN:TEXT8,1,"[203]EIN [193]USREISSER VORHANDEN."
  616. 6010 IFWS<TW(N-2)THENSM=2:GOTO6100
  617. 6020 IFR=1THEN:Z=DX(SA):GOSUB7300:TEXTZE,SP,Z$:SW=SW-DX(SA):SQ=SQ-DX(SA)^2
  618. 6030 IFR=1THEN:SA=SA+1:GOTO6050
  619. 6040 Z=DX(SE):GOSUB7300:TEXTZE,SP,Z$:SW=SW-DX(SE):SQ=SQ-DX(SE)^2:SE=SE-1
  620. 6050 N=N-1:UE=1
  621. 6060 IFSP+EL>34THENSP=1:ZE=ZE+2:GOTO6080
  622. 6070 SP=SP+EL
  623. 6080 GOSUB6180:GOTO5960
  624. 6090 :
  625. 6100 IFSP=0THENZE=ZE-2
  626. 6110 SP=8:ZE=ZE+2:TEXTZE,1,"[215]ERTE:"
  627. 6120 FORX=SATOSE
  628. 6130 Z=DX(X):GOSUB7300:TEXTZE,SP,Z$
  629. 6140 IFSP+EL>34THENSP=1:ZE=ZE+2:GOTO6160
  630. 6150 SP=SP+EL
  631. 6160 NEXTX:DZ=ZE/2:GOTO5880
  632. 6170 :
  633. 6180 NK=NK+1:MK=NK:IFNK>4THENNK=4:ER=0:MK=NK
  634. 6190 MX=SW/N:S=(1/(N-1)*(SQ-1/N*SW^2))^0.5
  635. 6200 CLEARZ2,4
  636. 6210 Z=MX:GOSUB7300
  637. 6220 TEXT2,1,"[205]ESSWERTE: "N"  [205]ITTELWERT: "Z$
  638. 6230 Z=S:GOSUB7300
  639. 6240 TEXT4,3,"[211]TANDARDABWEICHUNG:   "Z$
  640. 6250 IFER=1THENNK=NK-1:MK=NK
  641. 6260 RETURN
  642. 6270 :
  643. 6280 REM * LINEARE REGRESSION *
  644. 6290 :
  645. 6300 N=30:DZ=3:NK=4:SA=0:MX=0:SW=0:SQ=0:SM=0:PRINT"[147]"
  646. 6310 TEXT0,11,"[204][201][206][197][193][210][197][160][210][197][199][210][197][211][211][201][207][206][146]"
  647. 6320 TEXT2,1,"[193]LLGEMEINE [199]ERADENGLEICHUNG: Y=MX+B"
  648. 6330 TEXT4,20,"X-[215]ERT    Y-[215]ERT"
  649. 6340 TEXT6,3,"[215]ERTEPAAR    :   1"
  650. 6350 FORX=1TO30
  651. 6360 TEXT6,12,X
  652. 6370 EINGABE6,20,9,"-1234567890.^",IP$,"[133]",SV%
  653. 6375 IFSV%=1ANDX=1THEN70
  654. 6380 IFSV%=1THENN=X-1:GOTO6450
  655. 6385 IFLEFT$(IP$,1)="^"ANDX=1THEN6370
  656. 6390 IFLEFT$(IP$,1)="^"THENX=X-1:SW=SW-DY(X):MX=MX-DX(X):SQ=SQ-(DX(X)*DY(X))
  657. 6400 IFLEFT$(IP$,1)="^"THENSA=SA-DX(X)^2:SM=SM-DY(X)^2:X=X-1:GOTO6440
  658. 6410 DX(X)=VAL(IP$)
  659. 6420 EINGABE6,30,9,"-1234567890.",IP$:DY(X)=VAL(IP$)
  660. 6430 SM=SM+DY(X)^2:SQ=SQ+(DX(X)*DY(X)):SW=SW+DY(X):MX=MX+DX(X):SA=SA+DX(X)^2
  661. 6440 NEXTX
  662. 6450 IFN<2THEN6300
  663. 6460 CLEARZ4,6
  664. 6470 Z=((N*SQ)-(MX*SW))/((N*SA)-MX^2):Z$=STR$(FNR(Z)):Z=FNR(Z)
  665. 6480 F=(SW-Z*MX)/N:W$=STR$(FNR(F)):F=FNR(F)
  666. 6490 IFABS(Z)<1THENZ$=LEFT$(Z$,1)+"0"+RIGHT$(Z$,LEN(Z$)-1)
  667. 6500 IFABS(F)<1THENW$=LEFT$(W$,1)+"0"+RIGHT$(W$,LEN(W$)-1)
  668. 6510 IFF<0THENZ$="Y="+Z$+"X"+W$:GOTO6540
  669. 6520 IFF=0THENZ$="Y="+Z$+"X":GOTO6540
  670. 6530 Z$="Y="+Z$+"X+"+W$
  671. 6540 TEXT4,1,"[199]ERADENGLEICHUNG: "Z$
  672. 6550 R=(N*SQ-MX*SW)/((N*SA-MX^2)*(N*SM-SW^2))^0.5
  673. 6560 TEXT6,1,"[203]ORRELATIONSKOEFFIZIENT: "R
  674. 6570 GOSUB7970
  675. 6580 IFA=0THEN70
  676. 6590 GOTO6300
  677. 6600 :
  678. 6610 REM * EINGABEN MIT E *
  679. 6620 :
  680. 6630 EINGABEZE,SP,L,"1234567890.E-",IP$,"[133]",SV%:CV=VAL(IP$):IFSV%=1THEN70
  681. 6640 FORX=1TOLEN(IP$)
  682. 6650 IFMID$(IP$,X,1)="E"THEN6720
  683. 6660 NEXTX
  684. 6670 FORX=1TOLEN(IP$)
  685. 6680 IFMID$(IP$,X,1)<>"."ANDMID$(IP$,X,1)<>"0"THEN6700
  686. 6690 NEXTX
  687. 6700 X=X-2:IFLEFT$(IP$,1)<>"0"THENX=X+1
  688. 6710 ML=CV*10^X:EL=-X:RETURN
  689. 6720 ML=VAL(LEFT$(IP$,X-1)):EL=VAL(RIGHT$(IP$,LEN(IP$)-X))
  690. 6730 IFML=0THENML=1
  691. 6740 RETURN
  692. 6750 :
  693. 6760 UE=INT(EL)+1:EL=EL-UE:Z=ML*10^EL:CV=Z
  694. 6770 IP$=STR$(Z):IP$=RIGHT$(IP$,LEN(IP$)-1):GOSUB6640
  695. 6780 Z$=STR$(FNR(ML))+"E"+STR$(EL+UE)
  696. 6790 RETURN
  697. 6800 :
  698. 6810 REM * EINGABEN *
  699. 6820 :
  700. 6830 EINGABEZE,SP,L,"1234567890.",IP$,"[133]",SV%:IFSV%=1THEN70
  701. 6835 RETURN
  702. 6840 EINGABEZE,SP,L,"1234567890.?",IP$,"[133]",SV%:IFSV%=1THEN70
  703. 6850 IFLEFT$(IP$,1)="?"ANDER=1THEN6840
  704. 6860 IFLEFT$(IP$,1)="?"THENA=X:ER=1
  705. 6870 RETURN
  706. 6930 :
  707. 6940 REM * FORMELANALYSE *
  708. 6950 :
  709. 6960 TEXTZE,SP,FO$
  710. 6970 EINGABEZE,SP,L," 1234567890[171][179][177][178][163][183][184][162][185][175]()[]*",FO$,"[133]",SV%
  711. 6980 IFSV%=1THEN70
  712. 6990 FALFO$
  713. 7000 AD=40448:B=PEEK(AD):AD=AD+1
  714. 7010 IFB>9ORB=255THEN7160
  715. 7020 E=0:NK=5
  716. 7030 FORX=1TOB
  717. 7040 EE$(X)=CHR$(PEEK(AD))
  718. 7050 EE$(X)=EE$(X)+CHR$(PEEK(AD+1))
  719. 7060 C(X)=PEEK(AD+2)
  720. 7070 AD=AD+3
  721. 7080 NEXTX
  722. 7090 FORX=1TOB
  723. 7100 SEARCHEE$(X),ES$(1),ES$(75),EZ%(X):IFEZ%(X)=0THEN7160
  724. 7110 E=E+AM(EZ%(X))*C(X)
  725. 7120 IFKE(EZ%(X))<NKTHENNK=KE(EZ%(X))
  726. 7130 NEXTX
  727. 7140 E=FNR(E):RETURN
  728. 7150 :
  729. 7160 GOSUB7920:GOTO6970
  730. 7170 :
  731. 7180 REM * PROGRAMMENDE *
  732. 7190 :
  733. 7200 PRINT"[147]"
  734. 7210 TEXT12,8,"[194]IST [196]U SICHER (J/N) ?"
  735. 7220 TEXT14,18,"N":EINGABE14,18,1,"JN",IP$
  736. 7230 IFIP$="N"THEN70
  737. 7240 SYS64738
  738. 7250 :
  739. 7260 REM * PRINT USING *
  740. 7270 :
  741. 7280 MK=NK:VK=FNP(Z):IFVK=3THENNK=NK-1
  742. 7290 IFVK=4THENNK=NK-2
  743. 7300 Z$=STR$(FNR(Z)):Z$=RIGHT$(Z$,LEN(Z$)-1):VK=FNP(Z):KG=LEN(Z$)-VK-1
  744. 7310 IFKG<1ANDNK>0THENZ$=Z$+"."+B$(NK):GOTO7360
  745. 7320 IFKG<0THENKG=0
  746. 7330 IFKG>NKTHENKG=NK
  747. 7340 Z$=Z$+B$(NK-KG)
  748. 7350 IFVK=0ANDLEFT$(Z$,1)="."THENZ$="0"+Z$:VK=VK+1
  749. 7360 IFPU=0THENZ$=""+Z$+"[146]":GOTO7390
  750. 7370 IFPU=1THEN7390
  751. 7380 Z$=B$(9-VK)+Z$
  752. 7390 NK=MK:RETURN
  753. 7400 :
  754. 7410 REM * NK-BESTIMMUNG *
  755. 7420 :
  756. 7430 NB=LEN(IP$)-FNP(Z)-1:EL=LEN(IP$)+2:IFZ<1THENNB=NB-1
  757. 7440 IFNB>4THENNB=4
  758. 7450 IFNB<0THENNB=0
  759. 7460 RETURN
  760. 7470 :
  761. 7480 REM * WARTE *
  762. 7490 :
  763. 7500 POKE198,0:WAIT198,1:POKE198,0
  764. 7510 RETURN
  765. 7520 :
  766. 7530 REM * DRUCKEN *
  767. 7540 :
  768. 7550 OPEN4,4
  769. 7560 POKE768,185
  770. 7570 PRINT#4:CLOSE4
  771. 7580 POKE768,139
  772. 7590 IFST<>-128THEN7650
  773. 7600 ROM:CLEARZ12,13,14,15:WLINE12,2,36,1:WLINE15,2,36,1
  774. 7610 TEXT13,8,"[194]ITTE [196]RUCKER EINSCHALTEN":TEXT14,10,"^ = ZURUECK INS [205]ENUE"
  775. 7620 GETKP$:IFKP$=""THEN7620
  776. 7630 IFKP$="^"THEN:KILLM:RETURN
  777. 7640 KILLM:GOTO7550
  778. 7650 KP$="":ROM:CLEARZ12,13,14,15:WLINE12,1,37,1:WLINE15,1,37,1
  779. 7660 TEXT13,8,"[211]PACE = [196]RUCKER BEREIT":TEXT14,12,"^ = ZURUECK INS [205]ENUE"
  780. 7670 GETKP$:IFKP$=""THEN7670
  781. 7680 IFKP$="^"THEN:KILLM:RETURN
  782. 7690 KILLM:BR=49232
  783. 7700 FORX=1TODZ
  784. 7710 BSCCHRCBR,40,1,DD$
  785. 7800 ZSDRUCK1,DD$
  786. 7810 BR=BR+80:NEXTX
  787. 7820 RETURN
  788. 7830 :
  789. 7840 REM * ZEILEN LOESCHEN *
  790. 7850 :
  791. 7860 LA=2
  792. 7870 FORX=LATO23:CLEARZX:NEXTX
  793. 7880 RETURN
  794. 7890 :
  795. 7900 REM * FEHLERTON *
  796. 7910 :
  797. 7920 BEEP1,8000,200,33
  798. 7930 RETURN
  799. 7940 :
  800. 7950 REM * MENUE: WEGWEISER *
  801. 7960 :
  802. 7970 MENU26,18,10,2,141,1,0,WM$(0),A
  803. 7980 IFA<3THEN:KILLM
  804. 7990 IFA=2THENGOSUB7550:GOTO7970
  805. 8000 RETURN
  806. 8010 :
  807. 8020 REM * EINLESEN DER CHEMIEDATEN *
  808. 8030 REM *     UND FUNKTIONEN       *
  809. 8040 :
  810. 8050 DIMES$(75),AM(75),C(9),W(9),Z(9),B$(12),EE$(9),CT(9),WT(9),ZT(9)
  811. 8060 DIMEZ%(9),KE(75),HM$(10),WM$(5),TE$(2),LP$(3),GP$(2),MA$(2),VB$(8),EF$(4)
  812. 8070 DIMVE$(8),FV(8),GG$(6),L$(6),DX(30),DY(30),SM$(3),TW(28),FF$(9)
  813. 8080 DIMMM$(3),ER$(9)
  814. 8090 :
  815. 8100 FORY=1TO75
  816. 8110 READES$(Y),AM(Y),KE(Y)
  817. 8120 NEXTY
  818. 8130 FORY=1TO28:READTW(Y):NEXTY
  819. 8140 :
  820. 8150 E=0:B=0:Z=0:A=0:NK=1:ZE=0:SP=0:L=0:PU=0:DZ=0:ER=0:X=0:Y=0:MV=0:PS=0:SV%=0
  821. 8160 ES=0:LA=0:EE=0:G=0:F=0:ML=0:EL=0:Q1%=0:Q2%=0:CV=0:TV=0:VV=0:ZV=0:ZG=0:W=0
  822. 8170 ZH=0:VH=0:CH=0:TH=0:FA=0:VG=0:SM=0:P0=0:V0=0:T0=0:P1=0:V1=0:T1=0:N=0:R=0
  823. 8180 SW=0:SQ=0:SA=0:SE=0:MX=0:GW=0:WS=0:S=0:MK=0:VK=0:UE=0:AD=0:KG=0:AV=0:I=0
  824. 8190 BR=0:NB=0:UP=0
  825. 8200 :
  826. 8210 DEFFNR(X)=INT(10^NK*X+0.5)/10^NK
  827. 8220 DEFFNP(X)=ABS((X>=1)+(X>=10)+(X>=100)+(X>=1000))
  828. 8230 :
  829. 8240 FORX=1TO4:B$(X)=B$(X-1)+"0":NEXTX
  830. 8250 FORX=6TO9:B$(X)=B$(X-1)+" ":NEXTX
  831. 8260 :
  832. 8270 B$(10)="Z=1 [214]=20.0  ML  C=0.1   MOL/L  T=1"
  833. 8280 B$(11)="P=1.013   BAR  [214]=22.4    L  [212]=273   [203]"
  834. 8290 B$(12)="[205]ASSE: 1       G  [199]EW%: 100   %":FO$="[206]A[207][200]"
  835. 8295 DD$="                                        "
  836. 8300 :
  837. 8310 HM$(0)="[200]AUPTMENUE"
  838. 8320 HM$(1)="[205]ASSEN UND [205]OLE"
  839. 8330 HM$(2)="[199]EWICHTSPROZENTE"
  840. 8340 HM$(3)="[197]MPIRISCHE [198]ORMEL"
  841. 8350 HM$(4)="[204]OESLICHKEITSPRODUKT"
  842. 8360 HM$(5)="[205]ASSANALYSE"
  843. 8370 HM$(6)="[204]OESUNGEN"
  844. 8380 HM$(7)="[193]USBEUTEBERECHNUNGEN"
  845. 8390 HM$(8)="[199]ASGESETZE"
  846. 8400 HM$(9)="[211]TATISTIK"
  847. 8410 HM$(10)="[204]INEARE [210]EGRESSION"
  848. 8420 :
  849. 8430 WM$(0)="[213]ND [206]UN ?"
  850. 8440 WM$(1)="[210]ECHNEN"
  851. 8450 WM$(2)="[196]RUCKEN"
  852. 8460 WM$(3)="[213]EBERNAHME"
  853. 8470 WM$(4)="[205]OLMASSE"
  854. 8480 WM$(5)="[197]LEMENT"
  855. 8490 :
  856. 8500 EF$(0)="[213]ND [206]UN ?"
  857. 8510 EF$(1)="[210]ECHNEN"
  858. 8520 EF$(2)="[196]RUCKEN"
  859. 8530 EF$(3)="[205]OLMASSE"
  860. 8540 EF$(4)="[197]LEMENT"
  861. 8550 :
  862. 8560 TE$(0)="[215]ONACH ?"
  863. 8570 TE$(1)="[212]HEORIE"
  864. 8580 TE$(2)="[197]INGABE"
  865. 8590 :
  866. 8600 LP$(0)="[213]MRECHNUNGEN"
  867. 8610 LP$(1)="[204]OESLICHKEIT IN [204]OESLICHKEITSPRODUKT"
  868. 8620 LP$(2)="[204]OESLICHKEITSPRODUKT IN [204]OESLICHKEIT"
  869. 8630 LP$(3)="[199]LEICHIONIGER [218]USATZ"
  870. 8640 :
  871. 8650 GP$(0)="[215]ORAUS ?"
  872. 8660 GP$(1)="[211]UMMENFORMEL"
  873. 8670 GP$(2)="[214]ERBRENNUNGSDATEN"
  874. 8680 :
  875. 8690 MA$(0)="[205]ASSANALYSE"
  876. 8700 MA$(1)="[212]ITRATIONEN"
  877. 8710 MA$(2)="[210]UECKTITRATIONEN"
  878. 8720 :
  879. 8730 L$(0)="[204]OESUNGEN"
  880. 8740 L$(1)="[200]ERSTELLEN"
  881. 8750 L$(2)="[197]INENGEN & [214]ERDUENNEN"
  882. 8760 L$(3)="[205]ISCHEN"
  883. 8770 L$(4)="[196]ICHTE"
  884. 8780 L$(5)="P[200]-[215]ERT-[194]ERECHNUNG"
  885. 8790 L$(6)="[201]NTERPOLIEREN"
  886. 8800 :
  887. 8810 SM$(0)="[213]ND [206]UN ?"
  888. 8820 SM$(1)="[210]ECHNEN"
  889. 8830 SM$(2)="[196]RUCKEN"
  890. 8840 SM$(3)="[193]USREISSER"
  891. 8850 :
  892. 8860 MM$(0)="[205]ASSEN & [205]OLE"
  893. 8870 MM$(1)="[205]OLMASSE"
  894. 8880 MM$(2)="[205]OL & [205]ASSE"
  895. 8890 MM$(3)="[199]RAVIMETRIE"
  896. 8900 :
  897. 8910 VB$(1)="[195][146][207][179]":FV(1)=0.272915:VE$(1)="[195] "
  898. 8920 VB$(2)="[200][146][179][207]":FV(2)=0.111894:VE$(2)="[200] "
  899. 8930 VB$(3)="[206][146][179]":FV(3)=1:VE$(3)="[206] "
  900. 8940 VB$(4)="[207][146][179]":FV(4)=1:VE$(4)="[207] "
  901. 8950 VB$(5)="[211][146][207][179]":FV(5)=0.500468:VE$(5)="[211] "
  902. 8960 VB$(6)="[193]G[195]L[146]":FV(6)=0.247368:VE$(6)="[195]L"
  903. 8970 VB$(7)="[193]G[194]R[146]":FV(7)=0.425537:VE$(7)="[194]R"
  904. 8980 VB$(8)="[193]G[201][146]":FV(8)=0.540542:VE$(8)="[201] "
  905. 8990 :
  906. 9000 RETURN
  907. 9010 :
  908. 9020 REM * SYMBOLE,ATOMMASSEN,KENNUNG *
  909. 9030 :
  910. 9040 DATA "[193]C",227.0278,4
  911. 9050 DATA "[193]L",26.98154,5
  912. 9060 DATA "[211]B",121.75,2
  913. 9070 DATA "[193]R",39.948,3
  914. 9080 DATA "[193]S",74.9216,4
  915. 9090 DATA "[193]T",210,0
  916. 9100 DATA "[194]A",137.33,2
  917. 9110 DATA "[194]E",9.01218,5
  918. 9120 DATA "[194]I",208.9804,4
  919. 9130 DATA "[208]B",207.2,1
  920. 9140 DATA "[194] ",10.811,3
  921. 9150 DATA "[194]R",79.904,3
  922. 9160 DATA "[195]D",112.41,2
  923. 9170 DATA "[195]S",132.9054,4
  924. 9180 DATA "[195]A",40.078,3
  925. 9190 DATA "[195]L",35.453,3
  926. 9200 DATA "[195]R",51.996,3
  927. 9210 DATA "[195]O",58.9332,4
  928. 9220 DATA "[198]E",55.847,3
  929. 9230 DATA "[198] ",18.998403,6
  930. 9240 DATA "[198]R",223,0
  931. 9250 DATA "[199]A",69.723,3
  932. 9260 DATA "[199]E",72.59,2
  933. 9270 DATA "[193]U",196.9665,4
  934. 9280 DATA "[200]F",178.49,2
  935. 9290 DATA "[200]E",4.00260,5
  936. 9300 DATA "[201]N",114.82,2
  937. 9310 DATA "[201] ",126.9045,4
  938. 9320 DATA "[201]R",192.22,2
  939. 9330 DATA "[203] ",39.0983,4
  940. 9340 DATA "[195] ",12.011,3
  941. 9350 DATA "[203]R",83.80,2
  942. 9360 DATA "[195]U",63.546,3
  943. 9370 DATA "[204]A",138.9055,4
  944. 9380 DATA "[204]I",6.941,3
  945. 9390 DATA "[205]G",24.305,3
  946. 9400 DATA "[205]N",54.9380,4
  947. 9410 DATA "[205]O",95.94,2
  948. 9420 DATA "[206]A",22.98977,5
  949. 9430 DATA "[206]E",20.179,3
  950. 9440 DATA "[206]I",58.69,2
  951. 9450 DATA "[206]B",92.9064,4
  952. 9460 DATA "[207]S",190.2,1
  953. 9470 DATA "[208]D",106.42,2
  954. 9480 DATA "[208] ",30.97376,5
  955. 9490 DATA "[208]T",195.08,2
  956. 9500 DATA "[208]O",209,0
  957. 9510 DATA "[200]G",200.59,2
  958. 9520 DATA "[210]A",226.0254,4
  959. 9530 DATA "[210]N",222,0
  960. 9540 DATA "[210]E",186.207,3
  961. 9550 DATA "[210]H",102.9055,4
  962. 9560 DATA "[210]B",85.4678,4
  963. 9570 DATA "[210]U",101.07,2
  964. 9580 DATA "[207] ",15.9994,4
  965. 9590 DATA "[211]C",44.9559,4
  966. 9600 DATA "[211] ",32.06,2
  967. 9610 DATA "[211]E",78.96,2
  968. 9620 DATA "[193]G",107.8682,4
  969. 9630 DATA "[211]I",28.0855,4
  970. 9640 DATA "[206] ",14.0067,4
  971. 9650 DATA "[211]R",87.62,2
  972. 9660 DATA "[212]A",180.9479,4
  973. 9670 DATA "[212]C",98,0
  974. 9680 DATA "[212]E",127.60,2
  975. 9690 DATA "[212]L",204.383,3
  976. 9700 DATA "[212]I",47.88,2
  977. 9710 DATA "[214] ",50.9415,4
  978. 9720 DATA "[200] ",1.0079,4
  979. 9730 DATA "[215] ",183.85,2
  980. 9740 DATA "[216]E",131.29,2
  981. 9750 DATA "[217] ",88.9059,4
  982. 9760 DATA "[218]N",65.38,2
  983. 9770 DATA "[211]N",118.69,2
  984. 9780 DATA "[218]R",91.224,3
  985. 9790 DATA 1.409,1.645,1.757,1.814,1.848,1.870,1.885,1.895,1.903,1.910,1.916
  986. 9800 DATA 1.920,1.923,1.926,1.928,1.931,1.933,1.935,1.936,1.937,1.938,1.939
  987. 9810 DATA 1.940,1.941,1.942,1.942,1.943,1.943
  988.