Рисование графика tgx - VB
Формулировка задачи:
У меня вот такой код
------------
Private Sub Command1_Click()
'Задание масштаба
PicGraph.Scale (-10, 2)-(10, -2)
'Построение графика функции
For sngX = -10 To 10 Step 0.01
y = Val(Text1.Text) * sngX
PicGraph.PSet (sngX, Cos(y))
Next sngX
'Ось Х
PicGraph.Line (-10, 0)-(10, 0)
For bytI = -10 To 10
PicGraph.PSet (bytI, 0)
PicGraph.Print bytI
Next bytI
'Ось Y
PicGraph.Line (0, 2)-(0, -2)
For bytI = -2 To 2
PicGraph.PSet (0, bytI)
PicGraph.Print bytI
Next bytI
End Sub
Private Sub Command2_Click()
PicGraph.Cls
Text1.Text = ""
End Sub
------------------
Что я должен изменить чтобы программа рисовала график тангенс???
Заранее благодарю!
Решение задачи: «Рисование графика tgx»
textual
Листинг программы
Private Sub Command1_Click() 'Задание масштаба PicGraph.Scale (-10, 2)-(10, -2) 'Построение графика функции For sngX = -10 To 10 Step 0.01 y = Val(Text1.Text) * sngX PicGraph.PSet (sngX, Tan(y)) Next sngX 'Ось Х PicGraph.Line (-10, 0)-(10, 0) For bytI = -10 To 10 PicGraph.PSet (bytI, 0) PicGraph.Print bytI Next bytI 'Ось Y PicGraph.Line (0, 2)-(0, -2) For bytI = -2 To 2 PicGraph.PSet (0, bytI) PicGraph.Print bytI Next bytI End Sub Private Sub Command2_Click() PicGraph.Cls Text1.Text = "" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д