DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »annette«

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

TextFile

begin
integer i,j;
real b;
array K(1:4); array AR,AI(0:4);
array A,B(1:10);
for j:=1 step 1 until 10 do
begin 
b:=3.99/j;
B(j):=b/4;
K(1):=.096;
K(2):=.104;
K(3):=.335;
K(4):=.926;
AR(0):=K(1)*K(2)*K(3)*K(4)*(b-4);
AR(1):=K(1)*K(2)*K(3)*(b-3);
AR(2):=K(1)*K(2)*(b-2);
AR(3):=K(1)*(b-1);
AR(4):=b;
spercre(AR,4,AI);
for i:=1 step 1 until 4 do begin
if AI(i)=0 and AR(i)>=0 then
begin
write(out,<:<'nl'>PO2 i mmHg = :>,AR(i),"sp",4,<:bindingsgrad:>,b/4);

A(j):=AR(i);
end;
end;
end;
end
▶EOF◀