|
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: »defint«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »defint«
r=set 50
c=message type expression
dummyout=set 1
o dummyout
fx=set 1
yfx=set 1
fx=copy message.no c
yfx=edit fx
i@
program for evaluation of definit integrals
01 02 75 15 00 00
begin
real int,a,b,delta,x;
a:= readr(<:lower limit:>);
b:= readr(<:higher limit:>);
x:= 1;
for delta:= '-9,delta*10 while x>0 and delta<1 do
int:= adapint(a,b,
@,l b,i@
,x,delta);
if x>0 then write(out,<:<10>integration not possible<10>:>) else
write(out,<:<10>integral = :>,<<-d.ddd ddd dd'-dd>,int,
<: +- :>,<<-d.d'-d>,-x,"nl",1);
fpproc(7,0,0,0)
end
@,f
mode 1.no
r=algol yfx message.no
if ok.yes warning.no
if 1.yes
(c=message syntax error in
c=copy message.no fx
c=char nl
end)
o c
r v
▶EOF◀