Страница 1 из 1

Pascal/Delphi. Построение силовых линий

Добавлено: 09 дек 2008, 21:54
Anton_XXX
Привет Всем!
Помогите с задачей на Pascal, мож на Delphi
Уже 2 неделю маюсь, никак не выходит у мя((

Задача:

Разработать метод построения силовых линий электрического поля, созданного системой зарядов, находящихся в одной плоскости.

Хотяб алгоритм скажите плызззз...
Спасиб!)

Re: Задача. Построение силовых линии

Добавлено: 10 дек 2008, 00:59
Turboworld
А скинь ка хотя бы картинку - как они выглядят, эти линии.... для двух зарядов... и для трёх желательно... чтобы примерно представить чо нужно изобразить графически :)

http://window.edu.ru/window_catalog/pdf ... 4&p_page=7 - вот это посмотри.
http://window.edu.ru/window_catalog/red ... isu003.pdf - а это скачай. Там как раз про моделирование векторных полей и пишут. :)

Успехов ;)

Re: Задача. Построение силовых линии

Добавлено: 10 дек 2008, 02:01
Turboworld
и еще вот что нашел - тут чисто про построение походу :)

http://physics.tsu.tula.ru/bib/izv/4/grafsky.doc (3 Мб)

Читай не хочу, называется :)

Re: Задача. Построение силовых линии

Добавлено: 10 дек 2008, 11:31
Anton_XXX
Спасибо за ссылки, это я уже все видел)
Вот тут есть exe программа построения силовых линий. Жаль, кода автор не оставил((


Смотрите: http://smartcinema.jino-net.ru/1.rar

Re: Задача. Построение силовых линии

Добавлено: 10 дек 2008, 11:40
Anton_XXX
Вот проверьте, правильно ли я рассписал эти формулы:

Изображение

program ex_1;
uses crt;
var
E,Ey,Ex:array[0..100] of real;
z,x,y,q:array[0..100] of real;
N,i:integer; {x[0] - координата видимой точки}
{x - координата i-того заряда}

begin
Ex[x]:=0;
Ey[y]:=0;

x[0]:=0;
y[0]:=0;

q[1]:=0.000000005; {первый заряд}
q[2]:=0.000000008; {второй заряд}

x[1]:=100; y[1]:=100; {координата 1 заряда}
x[2]:=400; y[2]:=300; {координата 2 заряда}

for i:=1 to N do
begin
x[N+i]:=sqr(x[0]-x);
y[N+i]:=sqr(y[0]-y);
z[N+i]:=sqr(z[0]-z);

Ex:=q*(x[0]-x)/sqrt((x[N+i]+y[N+i]+z[N+i])*(x[N+i]+y[N+i]+z[N+i])*(x[N+i]+y[N+i]+z[N+i]));
Ey:=q*(y[0]-y)/sqrt((x[N+i]+y[N+i]+z[N+i])*(x[N+i]+y[N+i]+z[N+i])*(x[N+i]+y[N+i]+z[N+i]));
Ex[0]:=Ex[0]+Ex[i];
Ey[0]:=Ey[0]+Ey[i];

end;

E[k]:=sqrt(sqr(Ex[0])+sqr(Ey[0])); {получаем общий E двух зарядов}

end.

Re: Pascal/Delphi. Построение силовых линий

Добавлено: 02 фев 2009, 08:41
atavin-ta
Мне тоже надо построить силовые линии электрического поля. Но поле имеет вихревую составляющую, а его напряжённость поставляется готовым алгоритмом в виде массива значений вектора, отнесенных к центрам паралелипеиальных ячеек (точкам, регуолярно распределённых в пространстве). Нужен только алгоритм визуализации, но не рассчёта. Пишу на С++, но алгоритм лучше описать по-русски.

Re: Pascal/Delphi. Построение силовых линий

Добавлено: 10 фев 2009, 01:19
dr.Jekill
Почитай физику... подумай...
Задача, не такая уж и сложная, просто модераторам (как, наверно, и мне) лень.

Re: Pascal/Delphi. Построение силовых линий

Добавлено: 10 фев 2009, 05:23
atavin-ta
&quot писал(а):Почитай физику... подумай...
Именно на основе знаний физики я и сделал алгоритм и прогу для рассчёта напряжённости. Проблема в алгоритме визуализации, а не в физике.