Курсовая работа: Разработка програмного обеспечения для расчёта дисперсионной характеристики планарного волновода

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls, TeEngine, Series, TeeProcs,

Chart,math;

function tschng(n1,n2,n3,d,wl:real):boolean;

function dwl(m:byte; tetta,n1,n2,n3:real):real;

function q(wl,tetta,n2,n1:real):real;

function h(wl,tetta,n2:real):real;

function p(wl,tetta,n2,n3:real):real;

function e1(wl1,d1,n11,n21,n31,tetta1,x1:real):real;

function e2(wl2,d2,n12,n22,n32,tetta2,x2:real):real;

function e3(wl3,d3,n13,n23,n33,tetta3,x3:real):real;

procedure dix(x1,x2,xm,y1,y2,ym:real; var xx1,xx2,xxm:real);

implementation

function tschng(n1,n2,n3,d,wl:real):boolean;

//осуществляет проверку исходных данных на полноту

begin

if (n1=0) or (n2=0) or (n3=0) or (d=0) or (wl=0) then

begin

messagedlg('Вы должны ввести значения всех параметров!', mtinformation, [mbOK],0);

tschng:=(False);

end

else

tschng:=(True);

end;

function dwl(m:byte; tetta,n1,n2,n3:real):real;

//функция дисперсионной характеристики волновода

var

aa,bb,cc,dd: real;