Консультация № 133777
23.04.2008, 15:11
0.00 руб.
0 1 1
Здраствуйте!...Помогите построить график в графическом режиме
y=arctg 4x [0..3] и с шагом 0,15.

Обсуждение

Неизвестный
23.04.2008, 18:38
общий
это ответ
Здравствуйте, Китаев Кирилл Артурович!
Вот Ваша программа, как Вы просили
Удачи!

Приложение:
‘Находим центр формыОсьХ = Me.Height / 2ОсьУ = Me.Width / 2‘Устанавливаем ширину линииDrawWidth = 1‘Рисуем оси координатMe.Line (0, ОсьХ)-(Me.Width, ОсьХ)Me.Line (ОсьУ, 0)-(ОсьУ, Me.Height)‘Устанавливаем жирность точекDrawWidth = 3‘Рисуем графикFor x = 0 To 3 Step 0.15 ‘ Цикл [0..3] и с шагом 0,15.y = Atn(4 * x) ‘y=arctg 4x‘МасштабируемX1 = ОсьХ - Me.Width / 8 * xY1 = ОсьУ + Me.Height / 8 * y‘Рисуем точкиPSet (Y1, X1)Next x ‘Конец цикла
Форма ответа