Ti-84 CE Plus圆锥曲线求解器代码出现语法错误求助

问题说明 #

代码菜单可正常显示，但运行后立即触发语法错误，经排查主要是Ti-BASIC语法使用不当及逻辑问题导致。

核心错误点 #

• 注释语法错误：Ti-BASIC仅支持用:分隔语句与注释，原代码中Lbl 11 ; Hyperbola这类;注释会触发语法错误。
• 函数调用错误：Ti-BASIC无sqrt()函数，需用系统内置的√(运算符计算平方根。
• 代码不可达问题：原结构中部分标签（如Lbl12、Lbl13）被Goto CONIC_PROGRAM跳过，需调整标签位置至If块外部。
• 圆锥曲线判断逻辑错误：原M=1分支中对椭圆、双曲线、抛物线的判断条件不符合数学定义，导致识别结果错误。

修正后的完整代码 #

ClrHome
StoreGDB 5
AxesOff
BorderColor 4
BackgroundOff
ClrDraw
Disp "      Conic Solver"
Disp "==========================="
Disp "1: Identify Conic"
Disp "2: Standard Form"
Disp "3: Equation to Standard Form"
Disp "4: Quit"
Input "Option:", M
ClrHome

If M=1
Then
  Disp "Identify Conic Section"
  Input "A=", A
  Input "B=", B
  Input "C=", C
  Input "D=", D
  Input "E=", E
  Input "F=", F
  If A = 0 and C = 0
  Then
    Disp "Invalid Equation"
  ElseIf B^2 - 4*A*C < 0
  Then
    If A = C
    Then
      Disp "Conic Section: Circle"
    Else
      Disp "Conic Section: Ellipse"
    End
  ElseIf B^2 - 4*A*C = 0
  Then
    Disp "Conic Section: Parabola"
  ElseIf B^2 - 4*A*C > 0
  Then
    Disp "Conic Section: Hyperbola"
  Else
    Disp "Conic Section: Unknown"
  End
  Pause
  Goto CONIC_PROGRAM
End

If M=2
Then
  Disp "Standard Form"
  Menu("Select Conic Section","Hyperbola",11,"Circle",12,"Ellipse",13,"Parabola",14,"Back",99)
End

Lbl 11 : Hyperbola
Prompt F1, F2, G1, G2, D
(F1 - F2)^2 - D^2 → A
(G1 - G2)^2 - D^2 → B
If A < 0 or B < 0
Then
  Disp "Invalid Input"
Else
  (F1 + F2)/2 → H
  (G1 + G2)/2 → K
  Disp "Standard Form:"
  Disp "(X - ", H, ")^2 / ", A, " - (Y - ", K, ")^2 / ", B, " = 1"
End
Pause
Goto CONIC_PROGRAM

Lbl 12 : Circle
Prompt H, K, R
Disp "Standard Form:"
Disp "(X - ", H, ")^2 + (Y - ", K, ")^2 = ", R^2
Pause
Goto CONIC_PROGRAM

Lbl 13 : Ellipse
Prompt H, K, A, B
Disp "Standard Form:"
Disp "(X - ", H, ")^2 / ", A^2, " + (Y - ", K, ")^2 / ", B^2, " = 1"
Pause
Goto CONIC_PROGRAM

Lbl 14 : Parabola
Prompt H, K, F, G
If H = F and K = G
Then
  Disp "Invalid Input"
ElseIf H = F
Then
  Disp "Standard Form:"
  Disp "X = ", H
ElseIf K = G
Then
  Disp "Standard Form:"
  Disp "Y = ", K
Else
  √((F - H)^2 + (G - K)^2) → P
  If F > H
  Then
    Disp "Standard Form:"
    Disp "(X - ", H, ")^2 = 4 * ", P, "(Y - ", K, ")"
  Else
    Disp "Standard Form:"
    Disp "(Y - ", K, ")^2 = -4 * ", P, "(X - ", H, ")"
  End
End
Pause
Goto CONIC_PROGRAM

If M=3
Then
  Disp "Equation to Standard Form"
  Menu("Select Conic Section","Hyperbola",21,"Circle",22,"Ellipse",23,"Parabola",24,"Back",99)
End

Lbl 21 : Hyperbola
Prompt A, B, C, D, E, F
Disp "Standard Form:"
Disp "(X^2 / ", A, ") - (Y^2 / ", B, ") = 1"
Pause
Goto CONIC_PROGRAM

Lbl 22 : Circle
Prompt A, B, C, D, E, F
Disp "Standard Form:"
Disp "(X - ", A, ")^2 + (Y - ", B, ")^2 = ", C^2
Pause
Goto CONIC_PROGRAM

Lbl 23 : Ellipse
Prompt A, B, C, D, E, F
Disp "Standard Form:"
Disp "((X - ", A, ")^2 / ", C^2, ") + ((Y - ", B, ")^2 / ", D^2, ") = 1"
Pause
Goto CONIC_PROGRAM

Lbl 24 : Parabola
Prompt A, B, C, D, E, F
If A = 0 and B = 0
Then
  Disp "Invalid Equation"
ElseIf A = B
Then
  Disp "Standard Form:"
  Disp "X = ", A, " + (Y - ", B, ")^2"
ElseIf A = -B
Then
  Disp "Standard Form:"
  Disp "X = ", A, " - (Y - ", B, ")^2"
Else
  Disp "Standard Form:"
  Disp "Y = ", B, " + (X - ", A, ")^2"
End
Pause
Goto CONIC_PROGRAM

If M=4
Then
  ClrHome
  RecallGDB 5
  BackgroundOff
  AxesOn 
  Stop
End

Lbl CONIC_PROGRAM
Menu("CONIC PROGRAM","Identify Conic",1,"Standard Form",2,"Equation to Standard Form",3,"Quit",4)

额外说明 #

• 修正了M=1分支的圆锥曲线判断逻辑，采用标准的判别式B²-4AC来区分圆、椭圆、抛物线、双曲线，符合数学定义。
• 将Menu跳转的标签移至对应If块外部，确保所有标签都能被正常访问。
• 替换了所有非法注释符号，统一使用Ti-BASIC支持的:注释格式。
• 替换了错误的sqrt()函数为Ti-BASIC内置的√(运算符。

内容的提问来源于stack exchange，提问作者user19669080