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

This calculates many different values for Hardy-Weinberg Equilibrium

:Fix 2 :ClrHome :Menu("WELCOME!","P",1,"Q",2,"P^{2}",3, "2PQ",4,"Q^{2}",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,"P^{2}= :Output(3,4,P^{2}:Output(4,1,"2PQ= :Output(4,5,2P(1-P) :Output(5,1,"Q^{2}= :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,"P^{2}= :Output(3,4,(1-Q)^{2}:Output(4,1,"2PQ= :Output(4,5,2Q(1-Q) :Output(5,1,"Q^{2}= :Output(5,4,Q^{2}:Pause :Stop :Lbl 3 :Input "P^{2}=",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,"Q^{2}= :Output(5,4,Q^{2}: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,"P^{2}= :Output(4,4,P^{2}:Output(5,1,"Q^{2}= :Output(5,4,Q^{2}:Pause :Stop :Lbl 5 :Input "Q^{2}=",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,"P^{2}= :Output(4,4,P^{2}: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,"P^{2}= :Output(4,4,(1-Q)^{2}:Output(5,1,"2PQ= :Output(5,5,2Q(1-Q) :Output(6,1,"Q^{2}= :Output(6,4,Q^{2}: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,"P^{2}= :Output(4,4,(1-Q)^{2}:Output(5,1,"2PQ= :Output(5,5,2Q(1-Q) :Output(6,1,"Q^{2}= :Output(6,4,Q^{2}:Pause :Stop

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