|
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: 768 (0x300)
Types: TextFile
Names: »adairtext«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »adairtext«
hæmoglobin/O2 problem
begin
real x,p;
integer i,n;
array k(0:4),a(0:4),im(0:4);
for i:=1 step 1 until 4 do
begin
k(i):=readr(<:ligevægtskonstanten K:>);
end;
p:=readr(<:bindingsgraden =:>);
a(0):=p;
a(4):=k(1)*(p-1);
a(3):=k(1)*k(2)*(p-2);
a(2):=k(1)*k(2)*k(3)*(p-3);
a(1):=k(1)*k(2)*k(3)*k(4)*(p-4);
spercre(a,4,im);
for i:=1 step 1 until 4 do
begin
if im(i) <= '-6 and a(i)>=0 then goto PRINT;
end;
write(out,<:der er ingen reelle rødder for disse værdier:>,('nl'));
PRINT:
write(out,<:værdien af oxygentrykket =:>,a(i));
end
▶EOF◀