DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦09b4e9619⟧ »thcømat« 
            └─⟦this⟧ 

TextFile

\f


message minl

minl=algol message.no
external
real procedure minl(f,x,stp);
value stp; real f; long x,stp;
begin
  real q0,q1,q2,q; long x0,stepp;
  stepp:=stp;
  q0:=f; x0:=x;
  x:=x0+stepp; q1:=f;
  if q1>q0 then 
  begin
    stepp:=-stepp; q2:=q1;
    x:=x0+stepp; q1:=f  
  end;
  if q1<q0 then 
  begin
    x0:=x; q2:=q0; q0:=q1; x:=x0+stepp;
    for q1:=f while q1<q0 do 
    begin
      q0:=q1; x0:=x; stepp:=stepp*2; x:=x0+stepp 
    end 
  end;
  for stepp:=stepp//2 while stepp<> 0 do 
  begin
    if q1>q2 then 
    begin
      stepp:=-stepp; q:=q1; q1:=q2; q2:=q 
    end;
    x:=x0+stepp; q:=f;
    if q>=q0 then 
    begin
      stepp:=-stepp; q1:=q2; q2:=q; x:=x0+stepp; q:=f 
    end;
    if q<q0 then 
    begin
      x0:=x; q2:=q0; q0:=q 
    end
    else q1:=q 
  end;
  minl:=q0; x:=x0;
end minl
; end
▶EOF◀