|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »fugttx«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0f6e8048b⟧ »preditfile«
└─⟦this⟧
\f
comment predit text * page 38 11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;
comment case 10, fugt;
begin
real e, E, RF, t, v;
integer i, n;
array V(4:5, 0:5);
V(5, 0):=4.575; V(4, 0):=4.559;
V(5, 1):=3.359'-1; V(4, 1):=3.574'-1;
V(5, 2):=1.087'-2; V(4, 2):=1.119'-2;
V(5, 3):=1.669'-4; V(4, 3):=1.566'-4;
V(5, 4):=3.141'-6; V(4, 4):=7.563'-7;
V(5, 5):=9.844'-9;
read(in, t, v);
if v<0 then i:=4 else i:=5;
if v>100 then v:= 100 -v;
E:=
e:=0;
for n:= i step -1 until 0 do
begin
e:=e*v+V(i, n);
E:=E*t+V(i, n);
end;
e:=e-(t-v)*0.5;
RF:=e/E;
write(out, nl, 1, <:Tør temp :>, <<-dd.d>, t,
sp, 2, <:Våd temp :>, v, sp, 3,
<:Rel. fugt. :>, <<-ddd>, RF*100, <:_pct:>);
end case 10, fugt;
▶EOF◀