二次関数
グラフ中の、3つの点を入力して、二次式を求めるプログラムです。
(N88-BASIC)
10 INPUT "x1 ﾉ ｱﾀｲ ﾊ?";XI#
20 INPUT "y1 ﾉ ｱﾀｲ ﾊ?";YI#
30 INPUT "x2 ﾉ ｱﾀｲ ﾊ?";XII#
40 INPUT "y2 ﾉ ｱﾀｲ ﾊ?";YII#
50 INPUT "x3 ﾉ ｱﾀｲ ﾊ?";XIII#
60 INPUT "y3 ﾉ ｱﾀｲ ﾊ?";YIII#
70 AAI#=XI#^2
80 AAII#=XII#^2
90 AAIII#=XIII#^2
100 ABI#=XI#
110 ABII#=XII#
120 ABIII#=XIII#
130 AYI#=YI#
140 AYII#=YII#
150 AYIII#=YIII#
160 BAI#=AAII#-AAI#
170 BBI#=ABII#-ABI#
180 BYI#=AYII#-AYI#
190 BAII#=AAIII#-AAII#
200 BBII#=ABIII#-ABII#
210 BYII#=AYIII#-AYII#
220 CA#=BAII#-BAI#
230 CY#=BYII#-BYI#
240 A#=CY#/CA#
250 B#=(BYI#-BAI#*A#)/BBI#
260 C#= AYI#-(AAI#*A#+ABI#*B#)
270 PRINT "ax^2+bx+c"
280 PRINT "a ﾊ";A#
290 PRINT "b ﾊ";B#
300 PRINT "c ﾊ";C#
310 INPUT "x ﾉ ｱﾀｲ ﾊ?";X#
320 Y#=A#*X#^2+B#*X#+C#
330 PRINT "y ﾊ";Y#
340 GOTO 310
350 END
三次関数
グラフ中の、4つの点を入力して、三次式を求めるプログラムです。
(十進BASIC)
10 INPUT PROMPT"x1の値は?":XI
20 INPUT PROMPT"y1の値は?":YI
30 INPUT PROMPT"x2の値は?":XII
40 INPUT PROMPT"y2の値は?":YII
50 INPUT PROMPT"x3の値は?":XIII
60 INPUT PROMPT"y3の値は?":YIII
70 INPUT PROMPT"x4の値は?":XIV
80 INPUT PROMPT"y4の値は?":YIV
90 LET AAI=XI^3
100 LET AAII=XII^3
110 LET AAIII=XIII^3
120 LET AAIV=XIV^3
130 LET ABI=XI^2
140 LET ABII=XII^2
150 LET ABIII=XIII^2
160 LET ABIV=XIV^2
170 LET ACI=XI
180 LET ACII=XII
190 LET ACIII=XIII
200 LET ACIV=XIV
210 LET AYI= YI
220 LET AYII=YII
230 LET AYIII=YIII
240 LET AYIV=YIV
250 LET BAI=AAII-AAI
260 LET BBI=ABII-ABI
270 LET BCI=ACII-ACI
280 LET BYI=AYII-AYI
290 LET BAII=AAIII-AAII
300 LET BBII=ABIII-ABII
310 LET BCII=ACIII-ACII
320 LET BYII=AYIII-AYII
330 LET BAIII=AAIV-AAIII
340 LET BBIII=ABIV-ABIII
350 LET BCIII=ACIV-ACIII
360 LET BYIII=AYIV-AYIII
370 LET CAI=BAII-BAI
380 LET CBI=BBII-BBI
390 LET CYI=BYII-BYI
400 LET CAII=BAIII-BAII
410 LET CBII=BBIII-BBII
420 LET CYII=BYIII-BYII
430 LET DA=CAII-CAI
440 LET DY=CYII-CYI
450 LET A=DY/DA
460 LET B=(CYI-CAI*A)/CBI
470 LET C=BYI-(BAI*A+BBI*B)
480 LET D=AYI-(AAI*A+ABI*B+ACI*C)
490 PRINT "ax^3+bx^2+cx+d"
500 PRINT "aは";A
510 PRINT "bは";B
520 PRINT "cは";C
530 PRINT "dは";D
540 INPUT PROMPT"xの値は?":X
550 LET Y=A*X^3+B*X^2+C*X+D
560 PRINT "yは";Y
570 GOTO 540
580 END
