PRINT
PRINT "ｙ＝ｑχ＋ｋ のグラフ   ｙ＝ａχ^2＋ｂχ＋ｃ のグラフ"
PRINT
INPUT PROMPT "ｙ＝ｑχ＋ｋ :  ｑ, ｋ → ":q,k
INPUT PROMPT "ｙ＝ａχ^2＋ｂχ＋ｃ :  a, b, c → ":a,b,c
PRINT
LET Z=SOLVE1(q,k)
PRINT "（１）"
PRINT "   ｙ＝";q;"χ ＋";k;" のグラフは χ軸と"
PRINT "χ＝";Z;"の所で交わります。"
PRINT
PRINT "（２）"
CALL SOLVE2(a,b,c,X1,X2)
IF V=1 THEN
   PRINT "  ｙ＝";a;"χ^2 ＋";b;"χ ＋";c;" のグラフは"
   PRINT "χ軸と交わりません。"
ELSE
   PRINT "   ｙ＝";a;"χ^2 ＋";b;"χ ＋";c;" のグラフは χ軸と"
   PRINT "χ＝ ";X1;" と"
   PRINT "χ＝ ";X2;" の所で交わります。"
END IF
PRINT
PRINT "（３）"
CALL SOLVE2(a,b-q,c-k,X1,X2)
IF V=1 THEN
   PRINT "   ｙ＝";q;"χ ＋";k;" のグラフ と"
   PRINT "   ｙ＝";a;"χ^2 ＋";b;"χ ＋";c;" のグラフ とは"
   PRINT "交わりません。"
ELSE
   LET Y1=q*X1+k
   LET Y2=q*X2+k
   PRINT "   ｙ＝";q;"χ ＋";k;" のグラフ と"
   PRINT "   ｙ＝";a;"χ^2 ＋";b;"χ ＋";c;" のグラフ とは"
   PRINT "（ χ，ｙ ）＝（ ";X1;"，";Y1;"） と"
   PRINT "（ χ，ｙ ）＝（ ";X2;"，";Y2;"） の所で交わります。"
END IF
PRINT
DEF G(n)=q*n+k
DEF F(m)=a*m^2+b*m+c
SET WINDOW -10,10,-10,10
DRAW GRID (2,2)
DRAW GRAPH(-10,G(-10),10,G(10))
FOR m=-40 TO 40 STEP 0.001
   WHEN EXCEPTION IN
      PLOT LINES: m,F(m);
   USE
      PLOT LINES
   END WHEN
NEXT m
END
MERGE "library.lib"



#####################################################################



! "library.lib" というファイル名にしてください。

EXTERNAL FUNCTION SOLVE1(y,z)
   LET SOLVE1=-1*z/y
END FUNCTION

EXTERNAL SUB SOLVE2(a,b,c,X1,X2)
   LET V=0
   IF a=0 THEN
      LET X1=-1*c/B
      LET X2=X1
   END IF
   LET D=b^2-4*a*c
   IF D<0 THEN
      LET V=1
   ELSE
      LET X1=(-1*b+SQR(D))/(2*a)
      LET X2=(-1*b-SQR(D))/(2*a)
   END IF
END SUB

EXTERNAL PICTURE GRAPH(g1,h1,g2,h2)
   SET LINE COLOR 2
   PLOT LINES: g1,h1;g2,h2
   SET LINE COLOR 1
END PICTURE