CLS : PRINT " ★★★ 这是一个万花规程序 ★★★" PRINT PRINT " 在一半径为10个单位的圆上(⊙1),无滑动地滚动着一个半径为R的圆(⊙2)," PRINT PRINT "当R>0时在圆外滚,R<0时在圆内滚,⊙2上点的轨迹(K<1)圆内、圆上(K=1)或(r>1)" PRINT PRINT "圆外,即为所见. 图案漂亮的很,请试这些值(-5.04,0.8 -8.01,0.4 -2.1,0.86)" PRINT INPUT "输入R,K的值:"; R2, K SCREEN 12: CLS : KEY OFF '置成图形方式,清屏,关闭提示行 X0 = 320: Y0 = 240: MAX = 230: R1 = 10 A = 0: T = 0: LINE (65, 0)-(575, 479), , B IF R2 > 0 THEN M = R1 + (K + 1) * R2 ELSE M = R1 - (K - 1) * R2 R1 = R1 / M * MAX: R2 = R2 / M * MAX WHILE INKEY$ = "" X = X0 + (R1 + R2) * COS(A) - R2 * COS((R1 + R2) / R2 * A) * K Y = Y0 + (R1 + R2) * SIN(A) - R2 * SIN((R1 + R2) / R2 * A) * K IF T = 0 THEN T = 1: PSET (X, Y) LINE -(X, Y) A = A + .06 WEND END