DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »ramgsnx«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »ramgsnx« 

TextFile

;pal time.49
clear user ramgsn
ramgsn=set 1 disc5
scope user ramgsn
ramgsn=algol list.no
\f


RAMAN ANALYSE                                                      GSN

external procedure ramgsn(BS,ver,gmin);
long array BS; real gmin; integer ver;

begin
integer i,j,k,u,u1,u2,t,umax,min,ls,sls,segm,seg; real g;
zone sp(128,1,stderror);

gmin:=1000000;

open(sp,4,BS,0); inrec(sp,128);
seg:=sp(1); t:=sp(2); umax:=sp(6);
if ver=2 then goto L2; if ver=3 then goto L3;
L:write(out,"nl",1,<:segm u1 u2:>,"nl",1); setposition(out,0,0);
read(in,segm); if segm=-1 then goto slut; read(in,u1,u2);
g:=0; segm:=segm-1;
setposition(sp,0,segm); inrec(sp,128);
for j:=u1 step 1 until u2 do
g:= g+sp(j); g:=g/(u2-u1+1);
write(out,<:g= :>,<<dddd.dd>,g);

goto L;
L2:
setposition(sp,0,2);
for k:=0 step 1 until seg-3 do
begin inrec(sp,128); g:=0;
      for j:=1 step 1 until 128 do
      g:=g+sp(j);
      g:=g/128;
      write(out,"nl",1,<<dd>,k+3,<<ddd ddd>,g);
end k;
goto slut;

L3:
setposition(sp,0,2);
for k:=0 step 1 until seg-3 do
begin inrec(sp,128); g:=0;
      for j:=1 step 1 until 128 do
      g:=g+sp(j); g:=g/128;
      if g<gmin then gmin:=g;
end k;

write(out,"nl",1,<:gmin=:>,<< dddd.dd>,gmin);

setposition(sp,0,2);
for k:=0 step 1 until seg-3 do
begin swoprec(sp,128);
      for j:=1 step 1 until 128 do
      begin u:=k*128+j;
            sp(j):=sp(j)-gmin;
      end j;
end k;
setposition(sp,0,0); swoprec(sp,128); sp(30):=1;
slut: close(sp,true); end; end
\f


▶EOF◀