| Вопрос: Фигура Лиссажу | Добавлено: 26.04.06 21:46 |
Автор вопроса:  GlooM | Web-сайт: newlc.info | ICQ: 348453688 |
|
Вроде так название пишется.. :)
По физике задали написать программу, которая отражает фигуру Лиссажу (график). Задавая при этом параметры фаз w1 и w2! :) Помогите, пожалуйста! :) |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  Alexander Вопросов: 19 Ответов: 118 |
Профиль | | #1 | Добавлено: 27.04.06 03:10 |
| уважаемый, а напишите формулу по которой эту самую фигуру хотите построить, в противном случае вам тут не помогут. | ||
|
Номер ответа: 2 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #2 | Добавлено: 27.04.06 04:45 |
|
http://www.vbnet.ru/forum/show.aspx?id=76292
(прога, не знаю есть ещё она там или нет) так ссылка по теме того же автора: http://www.vbnet.ru/forum/show.aspx?id=72716 |
||
|
Номер ответа: 3 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | | #3 | Добавлено: 27.04.06 16:40 |
| Morpheus, спасибо! ))) | ||
|
Номер ответа: 4 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #4 | Добавлено: 27.04.06 16:54 |
| щас я свяжусь с аффтарам может он исходник даст | ||
|
Номер ответа: 5 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #5 | Добавлено: 27.04.06 19:26 |
| Что ж не дать... | ||
|
Номер ответа: 6 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #6 | Добавлено: 27.04.06 19:37 |
|
Private Sub Start_Click()
Timer1.Enabled = True scalexy = (Val(lbl1.Caption) / Val(lbl2.Caption)) * 103 If cmb_color.Text = "Красный" Then Picture1.ForeColor = &HFF& If cmb_color.Text = "Синий" Then Picture1.ForeColor = &HFF0000 If cmb_color.Text = "Зеленый" Then Picture1.ForeColor = &HC000& If Val(lbl1.Caption) >= Val(lbl2.Caption) Then scalexy = (Val(lbl1.Caption) / Val(lbl2.Caption)) * 103 Else scalexy = (Val(lbl1.Caption) / Val(lbl2.Caption)) * 103 End If End Sub Private Sub Stop_Click() Timer1.Enabled = False End Sub Private Sub th_Click(Index As Integer) Form2.Visible = True End Sub Private Sub Timer1_Timer() Dim c1, c2, x, y As Single Dim faza1, faza2, beta1, beta2 As Single scalexy = (Val(lbl1.Caption) / Val(lbl2.Caption)) * 103 If Val(lbl1.Caption) >= Val(lbl2.Caption) Then scalexy = (Val(lbl1.Caption) / Val(lbl2.Caption)) * 103 Else scalexy = (Val(lbl1.Caption) / Val(lbl2.Caption)) * 103 End If For i = 0 To Me.Width Step scalexy Picture1.Line (i, 0)-(i, Picture1.Height), 0 Next i For j = 0 To Me.Height Step scalexy Picture1.Line (0, j)-(Picture1.Width, j), 0 Next j faza1 = Val(text_faza1.Text) faza2 = Val(text_faza2.Text) c1 = Val(Text6.Text) c2 = Val(Text7.Text) w1 = 2 * pi * c1 w2 = 2 * pi * c2 A = Val(Text2.Text) * scalexy B = Val(Text3.Text) * scalexy beta1 = Val(text_beta1.Text) beta2 = Val(text_beta2.Text) step = Val(text_step.Text) t = t + step x = xc + A * Exp(-beta1 * t) * Sin(w1 * t + faza1) y = yc - B * Exp(-beta2 * t) * Sin(w2 * t + faza2) Picture1.PSet (x, y) If t >= Val(text_tmax.Text) Then Timer1.Enabled = False Label9.Visible = True End If End Sub Private Sub zad_Click(Index As Integer) Form3.Show End Sub не помню какая это из версии, но вроде рабочая. |
||
|
Номер ответа: 7 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | | #7 | Добавлено: 27.04.06 21:28 |
Vik, огромное тебе спасибо!  просто спас меня! )
|
||
|
Номер ответа: 8 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #8 | Добавлено: 27.04.06 21:44 |
Пиво в студию  ))
|
||
|
Номер ответа: 9 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | | #9 | Добавлено: 27.04.06 22:21 |
|
Можно пояснения?
Что обозначает scalexy, для чего lbl1 и lbl2? Так же cmb_color, это что за элемент?, Text2 Text3 Text6 Text7 text_beta1 text_beta2 Label9 )))
|
||
|
Номер ответа: 10 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #10 | Добавлено: 28.04.06 20:13 |
|
слушай я писал это год назад, код у меня по неизвестным мне причинам остался только в тестовике, на ВБ больше не программирую.
по пунктам - scalexy - что то типа масштаба. lbl1 & 2 нужны для отоброжения масштаба, типа 1:1 2:2 или 2:1. cmb_color - commonDialog отвечающий за цыет кривой на графике. Text2,Text3 - Амплитуды Text6,Text7 - Частоты text_beta1,text_beta2 - коэффициенты затухания Label9 - что то типа надписи которая появляется после того как отрисовка закончена, Типа Зарисуйте кривую в тетрадь!!! Anything else? Почитай физику, станет легче. |
||
|
Номер ответа: 11 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | | #11 | Добавлено: 28.04.06 22:37 |
|
Во!!! Теперь я полностью доволен и рад!
Спасибо! Пиво с меня!
|
||
Страница: 1 |