Построение графика функции - VB (59608)

Формулировка задачи:

Здравствуйте. Помогите пожалуйста построить график функции Диапазон изменения аргумента: ?/1000...? - ?/1000 Вот код построения для другой функции:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim SngX As Single, bytI As Integer, y As Single ‘SngX –абсцисса точки, у - ордината
'Задание масштаба и новой системы координат
PicGraph.Scale (-9, 9)-(9, -9)
'Построение графика функции
For SngX = -9 To 9 Step 0.01
y = 3 * (Cos(SngX ^ 2 + 5)) ^ 2 / ((SngX + 10) ^ (3 / 5)) ‘Вычисление ординаты у
PicGraph.PSet (SngX, y), vbRed ‘Рисуем точку
Next SngX ‘Берём следующую абсциссу
'Рисуем ось Х
PicGraph.Line (-9, 0)-(9, 0)
For bytI = -9 To 9
PicGraph.PSet (bytI, 0) ‘Рисуем масштаб на осиХ
PicGraph.Print bytI ‘Подписываем масштаб
Next bytI
'Рисуем ось Y
PicGraph.Line (0, 9)-(0, -9)
For bytI = -9 To 9
PicGraph.PSet (0, bytI) ‘Рисуем масштаб на оси У
PicGraph.Print bytI ‘Подписываем масштаб
Next bytI 
End Sub

Решение задачи: «Построение графика функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim X As Single, I As Integer, y As Single
PicGraph.Scale (-9, 9)-(9, -9)
'ГЏГ®Г±ГІГ°Г®ГҐГ*ГЁГҐ ГЈГ°Г*ГґГЁГЄГ* ГґГіГ*ГЄГ¶ГЁГЁ
For X = -9 To 9 Step 0.01
y = Sin(X / 3) / Cos(X / 3)
PicGraph.PSet (X, y), vbRed 'ГђГЁГ±ГіГҐГ¬ ГІГ®Г·ГЄГі
Next X 'ГЃГҐГ°ВёГ¬ Г±Г«ГҐГ¤ГіГѕГ№ГіГѕ Г*ГЎГ±Г¶ГЁГ±Г±Гі
PicGraph.Line (-9, 0)-(9, 0)
For I = -9 To 9
PicGraph.PSet (I, 0) 'ГђГЁГ±ГіГҐГ¬ Г¬Г*Г±ГёГІГ*ГЎ Г*Г* Г®Г±ГЁГ•
PicGraph.Print I; 'ГЏГ®Г¤ГЇГЁГ±Г»ГўГ*ГҐГ¬; Г¬Г*Г±ГёГІГ*ГЎ
Next I
'ГђГЁГ±ГіГҐГ¬ Г®Г±Гј Y
PicGraph.Line (0, 9)-(0, -9)
For I = -9 To 9
PicGraph.PSet (0, I) 'ГђГЁГ±ГіГҐГ¬ Г¬Г*Г±ГёГІГ*ГЎ Г*Г* Г®Г±ГЁ Г“
PicGraph.Print I; 'ГЏГ®Г¤ГЇГЁГ±Г»ГўГ*ГҐГ¬; Г¬Г*Г±ГёГІГ*ГЎ
Next I
End Sub