DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »hajtxt«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »hajtxt« 

TextFile

Liniert fit af osmotisk tryk data
begin
integer i,r;
real T,G,M,O,l,c,d;
real array R,X(1:5),C,S(0:1);
G:= 8.3187825 '7;
write (out, <: Liniert fit af osmotisk tryk data:>); 
T:= readr (<: temperatur i kelvin:>);
for i:= 1 step 1 until 5 do
begin
R(i):= readr (<: Osmotisk tryk/consentration i g/cm3 :>) *'-5;
X(i):= readr (<:Consentration ig/cm3 '+3 :>) *'-3 ;
end
polfit (X,R,5,C,S,1);
for r:=0 step 1 until 1 do write( out,<: RT/M:>,"nl",2,<:B:>, "nl",
2, C(r), "nl",1,G*T/C(0) ,<: Molekylvegt polystyren i g/mol :>);
if  readb (<:skal tegnes :>) then goto GRAF else END;
GRAF:
setplotname (<:houstona:>,0);
plotform (1,5,0);
writeplot (<:<12>  Osmotisk tryk/koncentration g/cm3 mod koncentration g/cm3:>);
plotadmini (0,2'-3,0,2'-5,0);
for i:=1 step 1 until 5 do
begin
plotpoint (X(i),R(i),1);
d:=i;
plotcurve (X(d),C(0)+C(1)*R(d),d,1,5,1.5);
end;
plotclose;
END:
end
▶EOF◀