DataMuseum.dk

top - metrics - download

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

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

TextFile

clear user rammax
rammax=set 1 disc5
scope user rammax
rammax=algol
\f


RAMAN ANALYSE                                                      MAX

external procedure rammax(navn,s1,s2,max,umax);
long array navn; integer s1,s2;  real max,umax;

begin integer i,j,k,u,t,segm; real bmin,bmax;
       boolean b;
      zone z(128,1,stderror);

      open(z,4,navn,0); inrec(z,128);
      segm:=z(1); t:=z(2); bmin:=z(11); bmax:=z(12);
      b:=false;
      if s1=0 and s2=0 then b:=true;
      if s1=0 and s2=0 then begin s1:=bmin; s2:=bmax; end;
      s1:=(s1-bmin)*10; s2:=(s2-bmin)*10;
      max:=0;

      setposition(z,0,2);
      for k:=0 step 1 until segm-3 do
      begin inrec(z,128);
            for j:=1 step 1 until 128 do
            begin u:=k*128+j;
                  if u<t then
                  begin if u>s2 then goto L;
                        if u>s1 then
                        begin if z(j)>max then
                              begin max:=z(j); umax:=u;
                              end;
      end;  end;  end;  end;
L:    write(out,"nl",1,<:max=:>,<< ddd ddd ddd>,max,
      <:  max freq.=:>,<< dddd>,umax/10+bmin,<: cm-1:>);
if b then
begin setposition(z,0,0); swoprec(z,128); z(6):=max; z(7):=umax;
end;
close (z,true); end; end
\f


▶EOF◀