Форум программистов, компьютерный форум, киберфорум
C++/CLI Windows Forms
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.01.2016
Сообщений: 9
1

Математический маятник С++ Windows Form (нарисовать график в панели)

19.01.2016, 14:56. Показов 1362. Ответов 1
Метки нет (Все метки)

Помогите! Очень срочно и очень нужно нарисовать график из чарта2 в новую панель!
Вот код программы, он работает, но как сделать этот график в панели я не знаю! Есть предположения, но компилятор выдает ошибку.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
                   l = System::Convert::ToDouble(textBox1->Text);//длина
                    m = System::Convert::ToDouble(textBox2->Text);//масса
                     k = System::Convert::ToDouble(textBox3->Text);//коэффициент сопротивления среды
                      phi0 = 3.14*(System::Convert::ToDouble(textBox4->Text))/180;// частота вынуждающей силы
                       F0 = System::Convert::ToDouble(textBox5->Text);
                       //   W = System::Convert::ToDouble(textBox6->Text);//амплитуда вынуждающей силы
                 int width = panel1->Width;
                 int height = panel1->Height;
                 x0 = width/2;
                 y0 = height/2;
                
                 R = 5;
                // phi0 = Pi/6;//начальная фаза откуда шарик начинает колебаться
                 g = 10;
             W=1;
                 beta = 0.5*k/m;
                 f0 = -F0/(m*l);
                // W=sqrt(abs(w0*w0-beta*beta));
                 
                 t = 0;
                 //рисунок с шариком рисуется только для частоты W
                 //tetta и B нужны чтобы нарисовать рисунок, они и вычисляются специально
                 //для этой частоты
                 w0 = sqrt(g/l);//собств.частота своб.колебаний                
                 teta = TETTA(W);//фаза колебаний, на которую различаются колебания 
                    //вынудж.силы и собственные
                 B = AmpVS(W);//Амплитуда колебаний вынуждающей силы в уравнении для 
                 //угла отклонения phi
                 A = phi0 - B*cos(teta);//часть амплитуды члена, отвечающего за своб.колебания
                 
                 col = gcnew Color();
                 mypen = gcnew Pen(col->Red);
                 image = panel1->CreateGraphics();
                     mypen1 = gcnew Pen(col->Blue);
                 image1= panel1->CreateGraphics();
                 image->Clear(col->FromArgb(255, 225, 200));
                image1->DrawLine(mypen1, 0, y0, width, y0);
                 x = l*sin(phi(0));//координаты X и Y в полярных координатах
                 y = l*cos(phi(0));
 
                 Draw(x,y-3,255,0,0);
 
                 chart1->Series["Коор-та маятника"]->Points->Clear();
                 chart1->Series["амплитуда своб кол"]->Points->Clear();
                 chart1->Series["амплитуда своб колеб"]->Points->Clear();
            //   chart1->Series["Под действием вын силы"]->Points->Clear();
            //   chart1->Series["не действ вын сила"]->Points->Clear();
                 chart2->Series["Фазовая диаграмма"]->Points->Clear();
                 chart3->Series["Series1"]->Points->Clear();
                 chart4->Series["Series1"]->Points->Clear();
                 //графики амплитуды и фазы 
                 //частота меняется от нуля до выбранного w с шагом 0.001
                 double w=1.;
                 double dW = 0.0;
                 while (dW < w)
                 {
                     chart3->Series["Series1"]->Points->AddXY(dW,abs(AmpVS(dW)));
                     if (TETTA(dW)/Pi > 0) { 
                         chart4->Series["Series1"]->Points->AddXY(dW,TETTA(dW)/Pi-1); }
                     else  chart4->Series["Series1"]->Points->AddXY(dW,TETTA(dW)/Pi);
                     dW+= 0.001;
                 }
                 
 
                 timer1->Start();
             }
private: System::Void timer1_Tick(System::Object^  sender, System::EventArgs^  e) {
              Draw(x,y-3,255,225,200);
                 t+= 0.1;
 
                 x = l*sin(phi(t));
                // y = l*cos(phi(t));
 
                 Draw(x,y-3,255,0,0);
 
                 chart1->Series["Коор-та маятника"]->Points->AddXY(t, x);
            //   chart1->Series["Series4"]->Points->AddXY(t,l*sin(Ampfree(t) + phiforced(t)));
            //  chart1->Series["Под действием вын силы"]->Points->AddXY(t,l*sin(phiforced(t)));
            //  chart1->Series["не действ вын сила"]->Points->AddXY(t,l*sin(phifree(t)));
 
             chart1->Series["амплитуда своб кол"]->Points->AddXY(t,l*sin(Ampfree(t)));
             chart1->Series["амплитуда своб колеб"]->Points->AddXY(t,l*sin(-Ampfree(t)));
 
                 chart2->Series["Фазовая диаграмма"]->Points->AddXY(x,Xderivative(t));
                 
             }
 
            double TETTA(double w)
            {return -atan(beta*w/(sqr(w0) - sqr(w)));}
 
            double AmpVS(double w)
            {return f0/sqrt(sqr(sqr(w0) - sqr(w)) + sqr(beta*w));}
 
            double phi(double s)
            {return phifree(s) + phiforced(s);}
 
            double Ampfree(double s)
            {return A*exp(-beta*s);}
 
            double phifree(double s)
            {return Ampfree(s)*cos(w0*s);}
 
            double phiforced(double s)
            {return B*cos(W*s + teta);}
 
            double sqr(double s)
            {return s*s;}
 
            double Phiderivative(double s)
            {return -beta*phifree(s) - Ampfree(s)*w0*sin(w0*s) -
                    B*W*sin(W*t + teta);}
 
            double Xderivative(double s)
            {return l*cos(phi(s))*Phiderivative(s);}
            //а я ленивая панда! бу-га-га!
            void Draw(double X, double Y,int a1,int a2,int a3)
            { 
              mypen->Color = col->FromArgb(a1, a2, a3);
              image->DrawEllipse(mypen, x0 + (X) - R,
                                 y0 + (Y) - R, 2*R, 2*R);
              
              image->DrawLine(mypen, x0, y0, x0 + (X), y0 + (Y));
            }
    private: System::Void button2_Click(System::Object^  sender, System::EventArgs^  e) {
                 timer1->Stop();
             }
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2016, 14:56
Ответы с готовыми решениями:

как нарисовать пиксель на панели(Panel) или форме(Form)
как нарисовать пиксель на панели(Panel) или форме(Form) цвет там указать. возможно такое?

Математический маятник
Всем приветики, помогите пожалуйста решить задачку:Написать программу, имитирующую движение...

математический маятник
какая длина математического маятника, если за время t он сделает n колебаний?

математический маятник
Привет, Всем! Пожалуйста, помогите, нужна прога в PAscal матиматического маятника (Капицы) ...

1
0 / 0 / 0
Регистрация: 19.01.2016
Сообщений: 9
20.01.2016, 15:14  [ТС] 2
Уже неактуально. Косяк нашла)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2016, 15:14

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Математический маятник
как заставить его двигаться вправо влево? Где ошибка? uses graphabc; procedure Vrash(a:real;var...

Математический маятник
Задание: нужно смоделировать работу маятника. Вычислить значения с помощью метода Эйлера и...

Математический маятник
Математический маятник совершает свободные колебания вблизи стены с периодом колебаний, равным T....

Математический маятник
Добрый день. У меня на курсовую работу такое задание: Получить числовые значения точного и...

Математический маятник
Здраствуете всем!!!!! Пишу дипломную работу: &quot;Математический маятник с помощю Flash&quot;. И вот написал...

Математический маятник
Доброго время суток. Нужно написать программу. Математический маятник совершает колебания по закону...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.