Casio FX-850P Scientific Library 116

5920

Konstante der elektrolytischen Dissoziation

LIB5920 (1051 Bytes)

5 GOTO10010
10 DATAHCOOH,HCOO? + H?,10,20,1.77ð10??,a,
20 DATACHýCOOH,CHýCOO? + H?,10,30,1.75ð10??,a,
30 DATACÿHþCOOH,CÿHþCOO? + H?,20,40,6.31ð10??,a,2
40 DATAHüCOý,H? + HCOý?,30,50,4.45ð10??,a,
50 DATACÿHþOH,CÿHþO? + H?,40,60,1.00ð10??,a,2
60 DATANHý + HüO,NHÿ? + OH?,50,70,1.78ð10??,b,1
70 DATACþHþN + HüO,CþHþNH? + OH?,60,80,1.5ð10??,b,
80 DATACÿHþNHü + HüO,CÿHþNHý? + OH?,70,80,3.8ð10??,b,2
10010 MODE8:DIM:x=10:y=80:r=x
10020 DEFCHR$(252)="2E2A3A0000"
10030 DEFCHR$(253)="2A2A3E0000"
10035 DEFCHR$(254)="3A2A2E0000"
10040 DIM:ERASEa$:DIMa$(2):RESTORE10080
10050 FORi=1 TO2:READa$(i):NEXT
10080 DATA38083E0000,3E2A2E0000
10110 RESTORE(r)
10120 READm$,n$,b,c,d$,e$,d:CLS
10125 IFTHENDEFCHR$(255)=a$(d)
10130 l$="["+MID$(STR$(r/10),2)+"]"
10140 CLS:PRINTm$;" äæ ";n$;TAB(0);"K";e$;" = ";d$;" [mol/l]";TAB(28);l$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29ANDr<>THENr=x:GOTO10110
10180 IFz=28ANDr<>THENr=y:GOTO10110
10190 IFz=30ANDr<>THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>THENr=c:GOTO10110
10280 GOTO10150

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net