DataMuseum.dk

Presents historical artifacts from the history of:

RC3500

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC3500

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦803e49c9d⟧ TextFileVerbose

    Length: 768 (0x300)
    Types: TextFileVerbose
    Names: »newrap«

Derivation

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »newrap«

TextFileVerbose

job srs 2 200 time 5 0
pal=algol

begin

real
a,
pi,
vi,
vinext,
fdiff,
func;

integer
i;

i:= 1;
pi:= 3.1415926535898;
vi:= pi;


while i<10 do
begin
func  := 2*sin(vi/2) - vi*cos(vi/2) - pi;
fdiff := 0.5*vi*sin(vi/2);
vinext := vi - func/fdiff;

write(out, "nl",1, <<d.dddddddddddd>, vinext);
vi := vinext;
i := i+1
end;

a := sqrt(2 + 2*cos(vinext/2));
write(out, "nl",3, "sp",4, <:a=  :>, <<d.dddddddd>,a);
write(out, "nl",1);
end;

pal
finis

«eof»