Компьютерные технологии в физике. Часть 1. Компьютерное моделирование физических процессов. Красов В.И - 76 стр.

UptoLike

ВУЗ: 

ИГУ | Иркутск

Составители: 

Рубрика: 

79
веденном ниже фрагменте программы построения изолинии с
0
ϕ
=
ϕ
, она
определяется как граница раздела областей с
0
ϕ
≤
ϕ
и
0
ϕ
>
ϕ
. Отметить эту
границу позволяет использование логической переменной flag.
......................
flag:=false;
{сканируется прямоугольная область пространства от xmin до xmax и от
ymin до ymax на экране}
for i:=xmin to xmax do
for j:=ymin to ymax do
begin
Pot(i,j);
if (phi>phi0)and(not flag) then
begin (a5)
Canvas.Pixels(i,j);
flag:=true;
end;
if (phi<=phi0)and(flag) then
begin
Canvas.Pixels(i,j);
flag:=false;
end;
end;
flag:=false;
......................
Для построения карты эквипотенциальных линий необходимо задать
значения потенциала на каждой линии. Обычно эквипотенциальные линии
проводятся через равные промежутки
, т.е.:
ϕ
∆
+
ϕ
=
ϕ
+ ii 1
Заметим, что область вблизи точечного заряда необходимо исклю-
чить из рассмотрения.
PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com
              веденном ниже фрагменте программы построения изолинии с ϕ = ϕ 0 , она
              определяется как граница раздела областей с ϕ ≤ ϕ 0 и ϕ > ϕ 0 . Отметить эту
              границу позволяет использование логической переменной flag.

              ......................
                flag:=false;
                {сканируется прямоугольная область пространства от xmin до xmax и от
                            ymin до ymax на экране}
                for i:=xmin to xmax do
                  for j:=ymin to ymax do
                    begin
                      Pot(i,j);
                      if (phi>phi0)and(not flag) then
                        begin                                               (a5)
                          Canvas.Pixels(i,j);
                          flag:=true;
                        end;
                      if (phi<=phi0)and(flag) then
                        begin
                          Canvas.Pixels(i,j);
                          flag:=false;
                        end;
                    end;
                  flag:=false;
                ......................

                   Для построения карты эквипотенциальных линий необходимо задать
              значения потенциала на каждой линии. Обычно эквипотенциальные линии
              проводятся через равные промежутки ∆ϕ , т.е.:

                                       ϕ i +1 = ϕ i + ∆ϕ

                    Заметим, что область вблизи точечного заряда необходимо исклю-
              чить из рассмотрения.




                                                       79


PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com

Страницы