Решение системы диффуров - VB
Формулировка задачи:
Доброго времени суток! Я не сильно опытный пользователь VB6, задача выполнения дипломного проекта именно в нем создала необходимость изучить его практически с нуля. В ходе выполнения диплома возникла необходимость написать прогу, решающую дифур неким методом Рунге-Кутта в VB и я написал, чему несказанно рад)) Но теперь возникла необходимость решить систему из 2х дифуров с 3мя неизвестными(желательно этим же методом), с чем как оказалось не так просто справиться! Может кто-то из людей, хоро сведующих в математике и в VB одновременно поможет мне в моем начинании? Буду крайне признателен!
вот текст моей проги, решающей дифур:
а вот 2 дифура, которые надо решитьв системе:
Давление в камере:
________
dP/dt = (Rг/V)∙{(10,2∙C∙W(t))/Cp) – 6469,53∙S∙P∙Ψ∙√2/(Rг∙T)∙[(ξ+1)∙T - ξ∙ T0]}
Температура газа в камере:
________
dT/dt = (Rг∙T)/(P∙V)∙ {(10,2∙C∙W(t))/Cv) – 6469,53∙S∙P∙Ψ∙√2/(Rг∙T)∙(T - T0)}
температура и давление по времени, в каждом уравнении присутствуют и то и другое, остальное-константы.
Заранее благодарен!
Решение задачи: «Решение системы диффуров»
textual
Листинг программы
Private Sub Command1_Click() x0 = Val(Text1.Text) xk = Val(Text2.Text) h = Val(Text3.Text) y0 = Val(Text4.Text)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д