DataMuseum.dk

algol,1<
begin comment analyse af funktionerne exp og ln.
_____ _______
      exp sammenlignes med nogle indlæste tabelværdier,
      mens ln tages af disse værdier. Derefter undersøges
      funktionsrelationen for exp for nogle værdier;
real x,min,max,sum,afv,
____
      esum,eprod,eafv,erel;
real array tabelværdi[1:9];
____ _____
integer i,j,k;
_______
boolean ud,ud1,ud2;
_______
select(8);
writechar(72);
comment input strimmel, output printer og perforator;
_______
select(40);
comment undersøgelse af exp(x);
_______
ud:=|  -d.ddd ddd ddd|;   ud1:=|       -d.dd10-dd|;   ud2:=|   -d.dd10-dd|;
    <                >         <                >         <            >
for k:=1 step 1 until 9 do tabelværdi[k]:=read real;
___      ____   _____   __
for k:=1 step 1 until 9 do
___      ____   _____   __
      if tabelværdi[k]<0 ∨ tabelværdi[k]>100 then
      __                                     ____
      begin writetext(|< Tabelværdier er udenfor beregningsomraadet,|);
      _____           <                                             >
            writecr; writetext(|< programmet afsluttes|);
                               <                      >
            gotoslut;
            ____
      end;
      ___
min:=1; sum:=max:=0; x:=-1;
writetext(|<
          <
   undersøgelse af exponentialfunktionen:
      x       tabelværdi      exp (x)     |);
                                          >
writetext(|<  afv. for exp|);
          <               >
writecr;  writecr;
for k:=1 step 1 until 9 do
___      ____   _____   __
begin write(|  -d.dddd|,x);
_____       <         >
   afv:=abs(tabelværdi[k]-exp(x));
        ___
   if min>afv then min:=afv;
   __         ____
   if max<afv then max:=afv;
   __         ____
   sum:=sum+afv;
   write(ud,tabelværdi[k],exp(x));
   write(ud1,afv);
   writecr;
   x:=x+1/8;
end;
___
writetext(|<
          <
   Afvigelser for funktionen exp(x):
   mindste afvigelse     største afvigelse     gennemsnitsafvigelse|);
                                                                   >
writecr; writetext(|<  |);
                   <   >
write(ud1,min);   writetext(|<      |);
                            <       >
write(ud1,max);   writetext(|<        |);
                            <         >
write(ud1,sum/9);
comment undersøgelse af ln;
_______
writecr; writecr;
writetext(|<
          <
   undersøgelse af den naturlige logaritme:
     tabelværdi       x     ln(tabelværdi)  afv. for ln|);
                                                       >
writecr;   writecr;
x:=-1; min:=1; sum:=max:=0;
for k:=1 step 1 until 9 do
___      ____   _____   __
begin
_____
   afv:=abs (ln(tabelværdi[k])-x);
        ___
   if min>afv then min:=afv;
   __         ____
   if max<afv then max:=afv;
   __         ____
   sum:=sum+afv;
   write(ud,tabelværdi[k]);
write(|  -d.dddd|,x);
      <         >
   write(ud,ln(tabelværdi[k]));
   write(ud1,afv);
   writecr;
   x:=x+1/8;
end;
___
writetext(|<
          <
   afvigelser for funktionen ln(x):
   mindste afvigelse     største afvigelse     gennemsnitsafvigelse|);
                                                                   >
writecr; writetext(|<  |);
                   <   >
write(ud1,min);   writetext(|<      |);
                            <       >
write(ud1,max);   writetext(|<        |);
                            <         >
write(ud1,sum/9);
comment exponentialfunktionens funktionsrelation;writecr; writecr;
_______
writetext(|<   Afprøvning af exponentialfunktionens |);
          <                                         >
writetext(|<funktionsrelation|); writecr; writecr;
          <                  >
writetext(|<                                                |);
          <                                                 >
writetext(|<absolut     relativ|); writecr;
          <                    >
writetext(|<   i   j  i+j  exp(i)⨯exp(j)     exp(i+j)      |);
          <                                                >
writetext(|<differens      fejl|); writecr; writecr;
          <                    >
for i:=-1 step 1 until 3 do
___       ____   _____   __
begin j:=1-2⨯i; k:=i+j;
_____
   esum:=exp(k); eprod:=exp(i)⨯exp(j);
   eafv:=esum-eprod;
   erel:=abs(eafv/esum);
         ___
   write(| -dd|,i,j,k);
         <    >
   write(ud,eprod,esum);
   write(ud2,eafv,erel);
   writecr; writecr;
end;slut:
___
end
___
run<
0.3678794412, 0.4168620197, 0.4723665527, 0.5352614285, 0.6065306597,
0.6872892788, 0.7788007831, 0.8824969026, 1.0000000000,
[stop]