DataMuseum.dk

top - metrics - download

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

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

TextFile

;pal
clear user rambag
rambag=set 1 disc5
scope user rambag
rambag=algol list.no
\f


RAMAN ANALYSE                                                      BAG

external procedure rambag(navn,ver,kon,fak);
long array navn; integer ver,kon; real fak;

begin
integer i,j,k,t,u,segm; real bmin;
zone z(128,1,stderror);
open(z,4,navn,0); inrec(z,128);
segm:=z(1); t:=z(2); bmin:=z(11);

setposition(z,0,2);
for k:=0 step 1 until segm-3 do
begin swoprec(z,128);
      for j:=1 step 1 until 128 do
      begin u:=k*128+j;
            if u<t then begin
            case ver of begin
            begin z(j):=z(j)+kon;
            end ver=1;
            begin z(j):=z(j)*fak;
            end ver=2;
            begin z(j):=z(j)/fak;
            end ver=3;
            begin z(j):=z(j)*100*fak;
            end ver=4;
            begin z(j):=z(j)*100/fak;
            end ver=5;
            begin u:=u/10;
                  z(j):=z(j)*((19431.0)/(19431.0-u-bmin))**4;
            end ver=6;
            end case;
            end;
      end j;
end k;
L:
setposition(z,0,0); swoprec(z,128); z(30):=1;
if ver=2 then z(6):=z(6)*fak;
if ver=3 then z(6):=z(6)/fak;
if ver=4 then z(6):=z(6)*100*fak;
if ver=5 then z(6):=100;

close(z,true); slut: end; end
\f


▶EOF◀