Математические функции

[студент]

Сообщение от aYa

У Вас наверное и по моей ссылке открывается что-то, а у меня говорит, что такой страницы не существует.
А какая информация раскрывается у Вас?

У меня все нормально открывается. А почему Вы не можете выйти - не знаю.

у меня вот что



;Blitz3D

Graphics 1024,768

Global x0=512
Global y0=384
Global x=0
Global y=0

While Not KeyDown(1)
For n= 1 To 1000000
t = Tan(n)
t0 = zero(Tan(n))
t01 = 1/zero(Tan(n))
x = x0+(50*Sin(t))+(t/300*Cos(t))
y = y0+(50*Cos(t))-(t/300*Sin(t))
Plot x,y
Next
Wend

Function zero(i)
If i = 0 Then
Return 1
Else
Return i
EndIf
End Function