DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »ramminx« 

TextFile

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


RAMAN ANALYSE                                                      MIN

external procedure rammin(navn,s1,s2,min,umin);
long array navn; integer s1,s2;  real min,umin;

begin integer i,j,k,u,t,segm; real bmin,bmax;
      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);
      if s1=0 and s2=0 then begin s1:=bmin; s2:=bmax; end;
      s1:=(s1-bmin)*10; s2:=(s2-bmin)*10;
      min:=1000000000;

      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)<min then
                              begin min:=z(j); umin:=u;
                              end;
      end;  end;  end;  end;
L:    write(out,"nl",1,<:min=:>,<< ddd ddd ddd>,min,
      <:  min freq.=:>,<< dddd>,umin/10+bmin,<: cm-1:>);
if s1=0 and s2=0 then
begin setposition(z,0,0); swoprec(z,128); z(6):=min; z(7):=umin;
end;
close (z,true); end; end
\f


▶EOF◀