5 GOTO10010
10 DATA1/p,1,10,20
20 DATA1/p²,t,10,30
30 DATA1/pⁿ,"tⁿ⁻¹/(n-1)! (n=1,2,3,・・・)",20,40
40 DATA1/(p±m),e➁➃➂,30,50
50 DATA1/(p(p+m)),1/m・(1-e⁻➃➂),40,60
60 DATA1/(p²(p+m)),1/m²・(e⁻➃➂+mt-1),50,70
70 DATAa/(p²+a²),sinat,60,80
80 DATAp/(p²+a²),cosat,70,90
90 DATA1/(p²+a²),1/a・sinat,80,100
100 DATAa/(p²-a²),sinhat,90,110
110 DATAp/(p²-a²),coshat,100,120
120 DATA1/(p²-a²),1/a・sinhat,110,130
130 DATA1/(p(p²+a²)),1/a²・(1-cosat),120,140
140 DATA1/(p²(p²+a²)),1/a³・(at-sinat),130,150
150 DATA1/((p+m)(p+n)),1/(n-m)・(e⁻➃➂-e⁻ⁿ➂),140,160
160 DATAp/((p+m)(p+n)),1/(m-n)・(me⁻➃➂-ne⁻ⁿ➂),150,170
170 DATA1/(p+m)²,te⁻➃➂,160,180
180 DATA1/(p+m)ⁿ,"1/(n-1)!・tⁿ⁻¹e⁻➃➂ (n=1,2,3,・・・)",170,190
190 DATAp/(p+m)²,e⁻➃➂(1-mt),180,200
200 DATA1/(p(p+m)²),1/m²・(1-(1+mt)e⁻➃➂),190,210
210 DATA1/(p²(p+m)²),t/m²-2/m³+2/m³・e⁻➃➂+t/m²・e⁻➃➂,200,220
220 DATA(p+n)/(p+m)²,((n-m)t+1)e⁻➃➂,210,230
230 DATA1/(p²+a²)²,1/2a³・(sinat-at・cosat),220,240
240 DATAp/(p²+a²)²,t/2a・sinat,230,250
250 DATAp²/(p²+a²)²,1/2a・(sinat+at・cosat),240,260
260 DATA(p²-a²)/(p²+a²)²,t・cosat,250,270
270 DATA1/((p+m)²+n²),1/n・e⁻➃➂sinnt,260,280
280 DATA(p+m)/((p+m)²+n²),e⁻➃➂cosnt,270,290
290 DATA1/(p⁴-a⁴),1/2a³・(sinhat-sinat),280,300
300 DATAp/(p⁴-a⁴),1/2a²・(coshat-cosat),290,310
310 DATAp²/(p⁴-a⁴),1/2a・(sinhat+sinat),300,320
320 DATAp³/(p⁴-a⁴),1/2・(coshat+cosat),310,330
330 DATAp/(p⁴+4a⁴),1/2a²・sinat・sinhat,320,340
340 DATA4a³/(p⁴+4a⁴),sinat・coshat-cosat・sinhat,330,350
350 DATA1/p・((p-m)/(p+m)),-1+2e⁻➃➂,340,360
360 DATA1/p²・((p-m)/(p+m)),2/m-t-2/m・e⁻➃➂,350,360
10010 MODE8:DIM:x=10:y=360:r=x
10020 DEFCHR$(255)="7840384038"
10030 DEFCHR$(254)="40F8480000"
10040 DEFCHR$(253)="90B8900000"
10050 DEFCHR$(252)="7850502000"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINT"F(p)=";m$;TAB(l);l$;n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150