DataMuseum.dk

algol,l,1<
henning pedersen, lic. 332, j.t.i. , taastrup. tlf. 992613.
0469 opgørelse af kornrensningsforsøg.
begin comment
_____ _______
paa datastrimlen anføres forsøgsrækkens nummer, det ønskede
antal linjeskift ved udskrift af forsøgsresultater og et el-
ler flere datasæt bestaaende af følgende:
1. forsøgets løbenummer - lbnr.
2. soldtypens nummer - St.
3. soldaksens hældningsvinkel i grader - alfa.
4. kardanleddets knækvinkel - beta.
5. drivstationens omdrejningstal i rpm - nd.
6. forsøgsperiodens længde i cmin - t.
7. kg A i frarensningen - FA.
8. kg B i frarensningen - FB.
9. renvarens samlede vægt i kg - RAB.
10. renvare-prøvens vægt i gram - RABP.
11. gram B i renvare-prøven - RBP.
forsøgsrækken afsluttes med et negativt tal, herefter indføjes
bemærkninger til forsøgsrækken. bemærkningerne afsluttes med
q. programmet afsluttes med endnu et negativt tal.;
integer rækkenr, lbnr, St, nd, k1, linieafstand, n, k3;
_______
real k, t, alfa, beta, SA, SB, RAB, RABP, RBP, RA, RB,
____
FA, FB, Q, R, r, pi, g, k2;
procedure linieskift;
_________
begin
_____
if n>27 then
__      ____
begin
_____
n := 1;
writechar(75);
writetext(|<
          <
                       ENSNing                 forsøgsrække nr.|);
                                                               >
write(|  dd|,rækkenr);
      <    >
writetext(|<
          <
                  alfa  beta       standardblanding         renvare     frarensn
ing kapacitet renseevne
       lbnr stnr              k-tal       SA     SB       RA     RB       FA
 FB         Q         r
                 grad. grad.              kg     kg       kg     kg       kg
 kg      kg/s      pct.
|);
>
end
___
else n := n + linieafstand;
____
k3 := linieafstand;
for k3 := k3 - 1 while k3 > -1 do writecr;end procedure;
___              _____         __         ___
select(11);
pi := arctan(1)⨯4;
g := 9.82;
k2 := pi∧2/(6.1∧2⨯900⨯g);
        |      |
n := 100;
for rækkenr := read integer while  rækkenr > 0 do
___                         _____              __
begin
_____
linieafstand := read integer;
for  lbnr := read integer while lbnr > 0 do
___                       _____          __
begin
_____
linieskift;
St := read integer;
alfa := read real;
beta := read real;
nd := read integer;
r := if St _7 then case St - 6 of
     __    >  ____ ____        __
(0.153, 0.230, 0.185) else 0.140;
                      ____
k := k2⨯nd∧2⨯r;
          |
t := read real;
FA := read real;
FB := read real;
RAB := read real;
RABP := read real⨯10-3;
RBP := read real⨯10-3;
RB :=(RBP⨯RAB)/RABP;
RA := RAB - RB;
SA := RA + FA;
SB := RB + FB;
Q :=(RAB⨯100)/(t⨯60);
R := RB/SB⨯100;
write(|        ddd|,lbnr);
      <           >
write(|   dd|,St);
      <     >
write(|  dd.d|,alfa);
      <      >
write(| dd.dd|,beta);
      <      >
write(|  dd.dd|,k);
      <       >
write(|    dd.dd|,SA);
      <         >
write(|  d.ddd|,SB);
      <       >
write(|    dd.dd|,RA);
      <         >
write(|  d.ddd|,RB);
      <       >
write(|    d.ddd|,FA);
      <         >
write(|  d.ddd|,FB);
      <       >
write(|      d.dd|,Q);
      <          >
write(|      dd.d|,R);
      <          >
end løbenummer;
___
writetext(|<
          <
       bemærkninger: |);
                     >
for k1 := lyn while k1 |  40do writechar(k1);
___           _____    =    __
n := 100;
end rækkenr;
___
end;
___
t<
[stop] [stop]