Study note of 十進Basic
 
             By Osaka bar association belonging lawyer Goemon
 
http://www.vector.co.jp/vpack/browse/person/an008683.html
 
No7  Hoffmann Coefficient
input a , b , c
let c = 1/(1+b)+1/(1+2b)・・・・・・1/(1+ab)
print c
end
??????????
input a , b
for a = 1 to a step 1
1/(1+ab)
next a
 
 
No6  Principal and interest evenness payoff calculation
INPUT a,n,r
LET w=r/(1-1/(1+r)^n)
LET y=w*a
PRINT y
END
 
 
No5  Leibniz Coefficient
INPUT a,b   
LET c=(1-1/(1+b)^a)/b
PRINT c
END
 
No4  Even payoff calculation
INPUT p,r,b,c
LET r=r/12
LET d=0
FOR d=1 TO c
  LET p=p-b+p*r/100*d/365
next  D
PRINT p
END
 
No3  Heron's formula
INPUT a,b,c
LET d=(a+b+c)/2
LET S=SQR(d*(d-a)*(d-b)*(d-c))
PRINT s
END
 
No2
INPUT p,i,f      ! Principal Interest Considering interest
LET r=(i+f)/p*100
PRINT r
END
 
No1
Let A=2         Substitute two for variable A.
Let B=3
Let C=A+B
Print C
End
 
 
Studay Pc-E650
 
b reset pf1 and pf1 freo enter  61368 ok
リチウム電池 CR2016