| |
| | QMGAS1.PAS |
 | | '' then begin assign(f,fname); rewrite(f); writeln(f,'File created by program qmgas1.exe.'); Case statistic Of BE: writeln(f,'Bose-Einstein Statistics'); FD: writeln(f,'Fermi-Dirac Statistics'); MB: writeln(f,'Maxwell-Boltzmann Statistics'); End;{case} If Not massive Then Begin write(f, 'n'); If Debye Then writeln(f, 'D') Else writeln(f,'N'); End else writeln(f,'m','m'); writeln(f,d,p); writeln(f,ndata); write(f, 'T',' '); write(f,' Chem. |
 | | Pot.'); print(50, 4, 'E / N'); print(66, 4, 'c'); item := datalist; For i := 1 To ndata Do With item^ Do Begin print(2, 4 + i, NumStr(i * 1.0, 4, 0)); if statistic = BE then if(exp(mu/T) > 1000) or (exp(mu/T) 1000) or (abs(mu/T) 1000) or (T |
| www.rpi.edu /dept/phys/Dept2/Thermo/Notes/cupstp/QMGAS/QMGAS1.PAS (375 words) |
|