{* Спираль Архимеда *}

REM basic

' Программа построения спирали Архимеда
' Спираль Архимеда может быть определена как траектория точки, участвующей в двух равномерных движениях.


10 {Спираль Архимеда
}20 CLS: SCREEN 0, 0: INPUT XO,YO: INPUT A, G
30 SCREEN 1, 0: COLOR 14, 0
40 For F=0 To G Step 0.01
50 R = A * F
60 X = X0 + R * COS(F): Y = Y0 - R * SIN(F)
70 PSET (X, Y), 2
80 Next F
90 GoTo 90