Science Programs


These programs are useful for making calculations a bit easier in chemistry or biology.


HWE

This calculates many different values for Hardy-Weinberg Equilibrium

:Fix 2
:ClrHome
:Menu("WELCOME!","P",1,"Q",2,"P2",3,
 "2PQ",4,"Q2",5,"P(DOM)",6,"P(REC)",7
:Lbl 1
:Input "P=",P
:Pause
:ClrHome
:Output(2,1,"Q=
:Output(2,3,1-P
:Output(3,1,"P2=
:Output(3,4,P2
:Output(4,1,"2PQ=
:Output(4,5,2P(1-P)
:Output(5,1,"Q2=
:Output(5,4,(1-P)2
:Pause
:Stop
:Lbl 2
:Input "Q=",Q
:Pause
:ClrHome
:Output(2,1,"P=
:Output(2,3,1-Q
:Output(3,1,"P2=
:Output(3,4,(1-Q)2
:Output(4,1,"2PQ=
:Output(4,5,2Q(1-Q)
:Output(5,1,"Q2=
:Output(5,4,Q2
:Pause
:Stop
:Lbl 3
:Input "P2=",P
:√(P)→P
:1-P→Q
:Pause
:ClrHome
:Output(2,1,"P=
:Output(2,3,P
:Output(3,1,"Q=
:Output(3,3,1-P
:Output(4,1,"2PQ=
:Output(4,5,2P(1-P)
:Output(5,1,"Q2=
:Output(5,4,Q2
:Pause
:Stop
:Lbl 4
:Input "2PQ=",X
:.5+√(.25-.5X)→P
:1-P→Q
:Pause
:ClrHome
:Output(2,1,"P=
:Output(2,3,P
:Output(3,1,"Q=
:Output(3,3,1-P
:Output(4,1,"P2=
:Output(4,4,P2
:Output(5,1,"Q2=
:Output(5,4,Q2
:Pause
:Stop
:Lbl 5
:Input "Q2=",Q
:√(Q)→Q
:1-Q→P
:Pause
:ClrHome
:Output(2,1,"P=
:Output(2,3,P
:Output(3,1,"Q=
:Output(3,3,1-P
:Output(4,1,"P2=
:Output(4,4,P2
:Output(5,1,"2PQ=
:Output(5,5,2P(1-P)
:Pause
:Stop
:Lbl 6
:Input "P(DOM)=",X
:1-X→Q
:√(Q)→Q
:Pause
:ClrHome
:Output(2,1,"P=
:Output(2,3,1-Q
:Output(3,1,"Q=
:Output(3,3,Q
:Output(4,1,"P2=
:Output(4,4,(1-Q)2
:Output(5,1,"2PQ=
:Output(5,5,2Q(1-Q)
:Output(6,1,"Q2=
:Output(6,4,Q2
:Pause
:Stop
:Input "P(DOM)=",Q
:√(Q)→Q
:Pause
:ClrHome
:Output(2,1,"P=
:Output(2,3,1-Q
:Output(3,1,"Q=
:Output(3,3,Q
:Output(4,1,"P2=
:Output(4,4,(1-Q)2
:Output(5,1,"2PQ=
:Output(5,5,2Q(1-Q)
:Output(6,1,"Q2=
:Output(6,4,Q2
:Pause
:Stop

PHTEST

Did you love the Henderson-Hasselbach equation in high school and college? This program allows you to calculate the concentration of protons, pH, or figure out a buffer solution. It also works for bases as well. Super exciting.

:ClrHome
:Menu("CALCULATE WHAT?","PH",1,"POH",2,"[H]",3,"[OH]"4,"BUFFER ACID",5,"BUFFER BASE",6
:Lbl 1
:Normal
:Input "[H]-",A
:-log(A)→A
:Pause
:ClrHome
:Output(2,1,"PH=
:Output(3,1,A
:Pause
:Stop
:Lbl 2
:Normal
:Input "[OH]=",B
:-log(B)→B
:Pause
:ClrHome
:Output(2,1,"POH=
:Output(3,1,B
:Pause
:Stop
:Lbl 3
:Sci
:Input "PH=",C
:10^(-C)→C
:Pause
:ClrHome
:Output(2,1,"[H]=
:Output(3,1,C
:Pause
:Stop
:Lbl 4
:Sci
:Input "POH=",D
:10^(-D)→D
:Pause
:ClrHome
:Output(2,1,"[OH]=
:Output(3,1,D
:Pause
:Stop
:Lbl 5
:Input "KA=",A
:Input "[A-]=",B
:Input "[HA]=",C
:-log(A)+log(B/C)→D
:Pause
:ClrHome
:Output(2,1,"PH=
:Output(3,1,D
:Pause
:Stop
:Lbl 6
:Input "KB=",A
:Input "[HB+]=",B
:Input "[B]=",C
:-log(A)+log(B/C)→D
:Pause
:ClrHome
:Output(2,1,"POH=
:Output(3,1,D
:Pause
:Stop