Specific Heat

**Specific**

This program should be useful for chemistry and physics teachers to speed calculations concerning specific heats.

[[code format="lb"]]
'Specific Heat Calculator ver. 1.0
'by Scott Ausbrooks
'May 2012
'This program is written to be a solver for all specific heat
'calculations one might encounter in a general chemistry course.

nomainwin

 WindowWidth = 360
 WindowHeight = 320
 radiobutton #cfg.bQ, "Solve for Heat gained or Lost ", [SolveForQ],[waitHere],100,75,230,20
 radiobutton #cfg.bM, "Solve for Mass ", [SolveForMass],[waitHere],100,100,230,20
 radiobutton #cfg.bdeltaT, "Solve for Temperature Change ", [SolveForDeltaT],[waitHere],100,125,230,20
 radiobutton #cfg.bCp, "Solve for Specific Heat ", [SolveForCp],[waitHere],100,150,230,20
 radiobutton #cfg.bTf, "Solve for Final Temperature ", [SolveForTf],[waitHere],100,175,230,20
 radiobutton #cfg.bTf, "Solve for Cp of metal ", [CpMetal],[waitHere],100,200,230,20
open "Specific Heat Solver" for dialog as #cfg
 print #cfg, "trapclose [quit]"
wait

[SolveForQ]
 prompt "Mass = ";m
 prompt "Starting Temperature = ";Ti
 prompt "Final Temperature = "; Tf
 prompt "Specific Heat = ";Cp
 q = m * (Tf-Ti) * Cp
 notice "Q = ";q
wait

[SolveForMass]
 prompt "Heat gained or lost = ";q
 prompt "Starting Temperature = ";Ti
 prompt "Final Temperature = "; Tf
 prompt "Specific Heat = ";Cp
 m = q/ ((Tf-Ti)) * Cp
 notice "Mass = ";m
wait

[SolveForDeltaT]
 prompt "Mass = ";m
 prompt "Specific Heat = ";Cp
 prompt "Heat gained or lost = ";q
 deltaT= q/(m * Cp)
 notice "deltaT = ";deltaT
wait

[SolveForCp]
 prompt "Mass = ";m
 prompt "Starting Temperature = ";Ti
 prompt "Final Temperature = "; Tf
 prompt "Heat gained or lost = ";q
 Cp = q/(m* (Tf-Ti))
 notice "Cp = ";Cp
wait

[SolveForTf]
 prompt "Mass of metal = ";Mm
 prompt "Starting temperature of metal = ";Tim
 prompt "Specific heat of metal = ";Cpm
 prompt "Mass of water = ";Mw
 prompt "Starting temperature of water = ";Tiw
 Cpw = 4.18
 w = (Mm*Cpm*Tim)
 x = (Mm * Cpm)
 y = (Mw*Cpw)
 z = (Mw*Cpw*Tiw)
 Tf = (w+z)/(y+x)
 notice "Tf = ";Tf
wait
[CpMetal]
 prompt "Mass of metal = ";Mm
 prompt "Starting temperature of metal = ";Tim
 prompt "Final Temperature of system = "; Tfs
 prompt "Mass of water = ";Mw
 prompt "Starting temperature of water = ";Tiw
 Cpw = 4.18
 Cpm = (Mw * (Tfs-Tiw) * Cpw)/(Mm *(Tim-Tfs))
 notice "Cp of metal = "; Cpm
[waitHere]
wait

[quit]
close #cfg
end

[[code]]