|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.05.2017, 16:45 | #1 |
Новичок
Джуниор
Регистрация: 05.05.2017
Сообщений: 2
|
Lazarus
Помогите пожалуйста переделать программку в Lazarus
function r1 (w: Real; d: tmass; epsilon: tmass):Real; var k:integer; r:Complex; Begin k0:=w/30000000000; m[1,1]:=1; m[1,2]:=0; m[2,1]:=0; m[2,2]:=1; For k:=1 To 3 Do Begin mu:=1; p:=complex.sqrt(epsilon[k]/mu); mi[1,1]:=complex.cos(k0*complex.sqrt(epsil on[k]*mu)*d[k]); mi[1,2]:=-1*i*p*complex.sin(k0*complex.sqrt(e psilon[k]*mu)*d[k]); mi[2,1]:=-1*i/p*complex.sin(k0*complex.sqrt(epsil on[k]*mu)*d[k]); mi[2,2]:=complex.cos(k0*complex.sqrt(epsil on[k]*mu)*d[k]); mtemp[1,1]:=m[1,1]*mi[1,1]+m[1,2]*mi[2,1]; mtemp[1,2]:=m[1,1]*mi[1,2]+m[1,2]*mi[2,2]; mtemp[2,1]:=m[2,1]*mi[1,1]+m[2,2]*mi[2,1]; mtemp[2,2]:=m[2,1]*mi[1,2]+m[2,2]*mi[2,2]; m:=mtemp; End; r:=((m[1,1]+m[1,2]*pl)*p1-(m[2,1]+m[2,2]*pl))/((m[1,1]+m[1,2]*pl)*p1+(m[2,1]+m[2,2]*pl)); r1:=complex.abs(r)*complex.abs(r); End; |
09.05.2017, 16:50 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Предлагаю вместо всего вставить r1:=0;
Такая переделка устроит?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Lazarus | SnS | Lazarus, Free Pascal, CodeTyphon | 9 | 21.11.2013 21:05 |
Перекомпиляция программы(простой) Win Lazarus в Linux Lazarus | Toxifer | Фриланс | 0 | 27.11.2012 22:46 |
Lazarus | ЮлияKuznechik | Помощь студентам | 0 | 22.05.2011 12:22 |
Lazarus... | Сristina | Помощь студентам | 1 | 28.03.2011 20:03 |
Lazarus | F L o_O P | Помощь студентам | 3 | 24.01.2011 20:49 |