DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦720b7e52e⟧ »calprog« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦720b7e52e⟧ »calprog« 
            └─⟦this⟧ 

TextFile

;klab3 6 time.1800 lines.2000
linfitptxt=set 20
permanent linfitptxt.3
linfitptxt=edit polfitptxt
g10/polfit/linfit/,l./integer/,r/,p//,
l./real /,r/;/,a,sa,b,sb1,a1,sa1,b1,sb1,w;/,
l./:degree:/,d1
l./array /,r/A,B,//,r/p/1/,p
l./in,A/,d,i@
  a:=readr(<:a:>);
  b:=readr(<:b:>);
@
l./urepol/,r/A/a,b/,l1,g/x;/a,b,x;/,l1,d4,i@
pol:=a*x+b;

@,l./A/,r/A/a,b/,l./polfit/,d,i@
    if -,linfit(n,a1,sa1,b1,sb1,Y,X) then alarm(<:***linfit impossible:>);
@
l1,r/p/1/,l1,i@
    w:=if j=0 then b1 else a1;
@,l1,g1/B(j)/w/
l1,r/S(j)/(if j=0 then sb1 else sa1)/
l./sqrt(s)/,d4,i@
  write(out,<:<10>a = :>,string minlay(a1,sa1/10,0),a1,
    <: +- :>,<<d.d'd>,sa1);
 write(out,<:<10>b = :>,string minlay(b1,sb1/10,0),b1,
    <: +- :>,<<d.d'd>,sb1);
  s:=(sa1**2+sb1**2);
@,l./forj:=p/,d1,r/S(j)/sa1/,l1,g/B(j)/a1/,l1,i@
    i:=entier(ln(sb1)/ln(10));
    b1:=round(b1*10**(-i+1))/10**(-i+1);
@,l./pol(B/,r/B/a1,b1/,l./writeplot(<:A/
d1,i@
      writeplot(<:a = :>,string minlay(a1,sa1/10,0),a1,
       <: +- :>,<<d.d'd>,sa1);
      writeplot(<:<10>b = :>,string minlay(b1,sb1/10,0),b1,
       <: +- :>,<<d.d'd>,sb1);
@,l./pol(A/,r/A/a1,b1/,l./forj/,r/p/1/,l./outend/,l1,l,f
i linfitptxt
▶EOF◀