|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen GIER Computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen GIER Computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 8190 (0x1ffe)
Description: Bits:30000616 wei -> ry '70OCT24 18 54
Types: 8-hole paper tape
Notes: Gier Text, Has10
begin _____comment wei->ryd; _______integer sel, spl,gp,q,i,n,l,d,ii,int,ngr,øgr,delf,ine,ryd1, _______ryd2,ryd,ex,ey,gef,tæl,tæl1,bplace,gemen,tælk,n1g,l1g,ipplace,pplace,vo;real f0,f1,f2,f3,f4,g,enr,prw,prr,r,r2,if,df,dele,mm,min,max,t,b,a,e1,e2,fak,del ____12,x,ov;boolean plotint,lay; _______array A[1:40],RW[1:5,2:9],FI[1:1920],FII[1:1120]; _____integer array IA[1:40]; _______ _____boolean procedure vn(n,spd,R); _______ _________value n,spd,R; integer n, spd; real R; _____ _______ ____begin _____integer tir,bn,tt,tbn; _______boolean vnh; _______tbn:=10⨯R; bn:=alf(spd);bn:=bn + n⨯(n-1)_2; :tir:=6;vnh:=_10__0_38_21; 4 24 6 6for tt:=tbn_10,tbnmod10,bn_10,bnmod10 do ___ : ___ : ___ __begin _____if tt=0 then tt:=16; __ ____tir:=tir+6;vnh:=vnh∨(boolean tt shift tir) _______ _____end; ___vn:=vnh;end vn; ___integer procedure knlant(name,nplace); _______ _________integernplace; string name; _______ ______if where(name,nplace)=0∧integer(booleannplace∧_m)=0then __ _______ _______ 3 ____knlant:=integer((booleannplace∧_0__m)shift-16) _______ _______ 8 16 _____else knlant:=nplace:=0; ____boolean procedure res(dnavn,dplace,knl); _______ _________value knl; integer knl,dplace; _____ _______string dnavn; ______begin _____integer sel,r; _______boolean re; _______sel:=select(17);if knl<1 then begin writecr;writetext(|<der er mindre end en kanal i |); __ ____ _____ < >writetext(dnavn); re:=false; goto ER end; _____ ____ ___R: r:=reserve(dnavn,knl);if r| 0 then begin __ = ____ _____writecr; writetext(dnavn);writetext(case r of(|< er ikke tilladt|, ____ __ < >|<er allerede reserveret|,|< kan ikke være i kataloget|, < > < >|< er for stort et omraade|,|< katalog ødelagt|)); < > < >if r=4 then begin writeinteger(| -dddddd|,knl); __ ____ _____ < >writetext(|< kanaler reserveret|); end; < > ___if r=2∧cancel(dnavn)=0 then goto R else begin __ ____ ____ ____ _____re:=false; goto ER end; _____ ____ ___if r=5 then goto R;end; __ ____ ____ ___if where(dnavn,dplace)|0 then begin __ = ____ _____writecr; writetext(|< ukorrekt aralbeskrivelse|); < >re:=false; goto ER end; _____ ____ ___re:=true;ER: ____select(sel); res:=reendreservering; ___integer procedure mcr(i); _______ _________value i; integer i; _____ _______for i:=i step -1 until 1 do writecr; ___ ____ _____ __procedure ws(i); _________value i;integer i; _____ _______for i:=i step -1 until 1 do writechar(0); ___ ____ _____ __procedure wt(text); _________string text; ______writetext(text);procedure wr; _________writecr;integer procedure ri; _______ _________ri:= read integer;real procedure rr; ____ _________rr:= read real;integer procedure wch(j); _______ _________value j; integer j; _____ _______begin _____if j>127 then writechar(60); __ ____writechar(jmod128); ___if j>127 then writechar(58) __ ____end; ___procedure alarm(lay); _________string lay; ______begin _____integer s; _______s:=select(17); wr; wt(lay); select(s)end lalarm; ___boolean procedure readname; _______ _________begin _____integer case,i,j; boolean b; _______ _______case:=if char_128 then 128 else 0; __ > ____ ____b:=_10_10_10_10_10_10_10; 4 6 6 6 6 6 6i:=0;for j:=char,lyn+case while -,((j=64∨j=192∨j=27∨j=17∨j=133)∧i>0) do ___ _____ __if j=14 then begin __ ____ _____writecr; writetext(|<_ in name|); goto ENDP end else < > ____ ___ ____if j=60 then case:=128 else __ ____ ____if j=186 then case:=0 else __ ____ ____if j_57∧(j>17 ∨ i>0)∧(j<26∨j>32)∧i<6∧j>0 then begin __ < ____ _____b:=((b∧__m)∨boolean j)shift-6; i:=i+1 end; 34 _______ _____ ___i:=i⨯6;readname:=bshifti; _____char:=jend readname; ___procedure DATO; _________begin _____integer date,i; _______boolean da; _______where(|<date|,date);da:=boolean(date); < > _______i:=integer((da∧__0__m)shift(-20)); _______ 10 10 _____writeinteger(|dd|,i); < >i:=integer((da∧__0__m)shift(-10)); _______ 20 10 _____writeinteger(|-dd|,-i); < >i:=integer(da∧__0__m); _______ 30 10writeinteger(|-dd|,-i); < >end;[ p u n c h _ o n ] ___integer procedure alf(j); _______ _________value j; integer j; _____ _______if j<17 then alf:=(case j+1 of(18,39,52,54,55,56))else __ ____ ____ __ ____if j= 18 then alf := 0 else __ ____ ____if j= 39 then alf := 1 else __ ____ ____if j= 52 then alf := 2 else __ ____ ____if j= 54 then alf := 3 else __ ____ ____if j= 55 then alf := 4 else __ ____ ____if j=56 then alf:=5 else __ ____ ____begin alf:=-1; alarm(|< galt kvantetal|) _____ < >end; ___select(if kbon then 9 else 8); __ ____ ____a:=2-5/16;fak:=2/9⨯((64⨯((a/(a+2))∧3))∧2); | |del12:=40/12; if:=a⨯.025; e1:=-473/512;lay:=| -d.dddddd10 +dd|;[ p u n c h _ o f f ] < >plotint:=(if lyn=14∧lyn=39 then true else false); __ ____ ____ ____ _____for i:=1 step 1 until 1120 do FII[i]:=exp(-if⨯i)⨯.025; ___ ____ _____ __wr;wt(|<Weinbaum-rydberg overgange , oscillatorstyrker |); < >DATO; wr; ws(3);wt(|<<wei|r|ry>|); ws(5+3); < >wt(|<<wei|p|ry>|); ws(5+3); < >wt(|<<ry|p|wei>|); ws(5+3); < >wt(|<<wei|r∧p|ry>|); ws(5+3); < >wt(|<<ry|r∧p|wei>|); ws(5+3); < >wt(|< ∧E|); wr; < _ >for n:=2 step 1 until 8 do begin ___ ____ _____ __ _____START:if knlant(stringvn(n,39,6),ryd)|50 then begin __ ______ = ____ _____wr; wch(n); wt(|<p-bølgefunktionen mangler|); < >wr; if lyn>16 then goto ENDP else goto START end; __ ____ ____ ____ ____ ___get(A,ryd,1); get(IA,ryd,2); get(FII,ryd,3); q:=IA[3]; x:=.025; f1:=0; g:=FII[1]; f2:=FII[1]; f3:=FII[2]; df:=.5⨯f3; prr:=g⨯x⨯df; enr:=g:=g⨯f2; r:=g⨯x; r2:=r⨯x;for i:=2 step 1 until 1120 do begin ___ ____ _____ __ _____x:=x+.025; g:=FI[i]; f4:=FII[i+2]; df:=(8⨯(f3-f1)+f0-f4)⨯del12; prr:=prr+g⨯x⨯df; g:=g⨯f2; enr:=enr+g; r:=r+g⨯x; r2:=r2+g⨯x⨯x; f0:=f1; f1:=f2; f2:=f3; f3:=f4;if plotint then FII[i]:=r2 __ ____end integrationsløkke; ___e2:=A[3]; dele:=e2-e1;if plotint then begin __ ____ _____sel:=select(65); mm:=min:=max:=0;for i :=2 step 1 until 1120 do begin ___ ____ _____ __ _____b:=FII[i];if b<min then min:=b else __ ____ ____if b>max then max:=b end; __ ____ ___mm:=max-min;for i:=i while mm<1.5 do mm:=mm⨯10; ___ _____ __if mm<7 then mm:=2⨯mm; __ ____if mm<7 then mm:=2⨯mm; __ ____if mm<7 then mm:=2⨯mm; __ ____initplot; deltax:=deltay:=.01; plotform(1000,100⨯mm+200,ex,ey); height:=3; plotpoint(0,1,mm-1.2);wt(|<weinbaum -> |); wch(n); < >wt(|<p-rydbergtilstand |); DATO; < >plotpoint(0,1,mm-1.7);wt(|<Heliumatom|); < >ymax:=ymax-200; plotadm(0,9,min,max,100,100); plotcurve(0,0,0,.025⨯t,FII[t],t,2,360,1.0); saveplot; select(sel)end plotning af integrand; ___RW[1,n]:=fak⨯dele⨯(r2∧2); |RW[2,n]:=fak/dele⨯((-enr+prr)∧2); |RW[3,n]:=fak/dele⨯((-a⨯r)∧2); |RW[4,n]:=fak⨯(r2)⨯(-enr+prr); RW[5,n]:=fak⨯r2⨯(-a⨯r);for i:=1,2,3,4,5 do write(lay,RW[i,n]); ___ __write(lay,dele); writecr;end beregn oscillatorstyrker; ___if knlant(|<weiry|,ryd)|1 then res(|<weiry|,ryd,1); __ < > = ____ < >put(RW,ryd,1); ENDP:end ___endrun< ___