Сопряженные задачи для уравнений переноса и диффузии

='0')%20or%20(Key=#8)or%20(Key='-'))%20then:=#0;;(pos(Key,edN.Text)>0)%20and%20((key=decimalSeparator)%20or%20(key='-'))%20then:=#0;;TForm1.EdNKeyUp(Sender:%20TObject;%20var%20Key:%20Word;:%20TShiftState);.Caption:='tay/h^2=%20'+FloatToStr(StrToFloat(EdTay.Text)/sqr(1/StrToFloat(EdN.Text)));;TForm1.EdTayKeyPress(Sender:%20TObject;%20var%20Key:%20Char);(Key='.')or%20(Key=',')%20then:=DecimalSeparatornot%20((Key<='9')and(Key>='0')%20or%20(Key=#8)or%20(Key='-'))%20then:=#0;;(pos(Key,edTay.Text)>0)%20and%20((key=decimalSeparator)%20or%20(key='-'))%20then:=#0;;u(x,t:real):real;:=sin(pi*x)*t;;fij(x,t:real):real;:=sin(pi*x)+sqr(pi)*t*sin(pi*x);;TForm1.BtnJavnClick(Sender:%20TObject);tay,h,l:real;,i,j,m,q:integer;,t:mas;,f:matr;i:=0%20to%2015%20do%20Chart1.Series[i].Clear;:=StrToInt(EdN.Text);:=1/n;:=StrToFloat(EdTay.Text);:=round(1/tay);:=m+1;:=n+1;(y,m,n);(f,m,n);(x,n);(t,m);:=n-1;:=m-1;[0]:=StrToFloat(EdT1.Text);[1]:=StrToFloat(EdT2.Text);[2]:=StrToFloat(EdT3.Text);[3]:=StrToFloat(EdT4.Text);q:=0%20to%203%20do:=round(time[q]/tay);j:=0%20to%20m%20do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0%20to%20n%20do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0%20to%20m%20doi:=0%20to%20n%20do%20f[j,i]:=fij(x[i],t[j]);j:=0%20to%20m-1%20doi:=1%20to%20n-1%20do[j+1,i]:=tay*y[j,i+1]/sqr(h)+(1-2*tay/sqr(h))*y[j,i]+tay*y[j,i-1]/sqr(h)+tay*f[j,i];:=0;l<=1%20do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0%20to%20n%20do.series[q+4].AddXY(x[i],y[m,i]);;;TForm1.BtnNeJavnClick(Sender:%20TObject);,h,l:%20real;,i,j,p,m,q:%20integer;,y:%20matr;,t,al,bt,a,b,c:%20mas;:%20array[0..3]%20of%20real;i:=0%20to%2015%20do%20Chart1.Series[i].Clear;:=strtoint(EdN.Text);[0]:=strtofloat(EdT1.Text);[1]:=strtofloat(EdT2.Text);[2]:=strtofloat(EdT3.Text);[3]:=strtofloat(EdT4.Text);q:=0%20to%203%20do%20begin:=1/n;(n);:=strtofloat(EdTay.Text);:=round(time[q]/tay);(m);(t,m);(y,m,n);(f,m,n);(x,n);(al,n);(bt,n);(a,n);(b,n);(c,n);(m);(n);i:=0%20to%20n%20do[i]:=-tay;[i]:=-tay;[i]:=sqr(h)+2*tay;;[0]:=0;[n]:=0;[0]:=1;[n]:=1;[0]:=0;[n]:=0;j:=0%20to%20m%20do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0%20to%20n%20do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0%20to%20m%20doi:=0%20to%20n%20do%20f[j,i]:=fij(x[i],t[j]);j:=0%20to%20m-1%20do[n-1]:=-a[n]/b[n];[n-1]:=sqr(h)*(f[j,n]*tay+y[j,n])/b[n];p:=n-1%20downto%201%20do[p-1]:=-a[p]/(al[p]*c[p]+b[p]);[p-1]:=(sqr(h)*(f[j,p]*tay+y[j,p])-bt[p]*c[p])/(al[p]*c[p]+b[p]);;i:=0%20to%20n-2%20do%20y[j+1,i+1]:=al[i]*y[j+1,i]+bt[i];;:=0;l<=1%20do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0%20to%20n%20do%20chart1.Series[q+8].AddXY(x[i],y[m,i]);//%20chart1.Series[j+4].AddXY(x[i],f[j,i]);;;TForm1.BtnSimClick(Sender:%20TObject);,h,l:%20real;,i,j,p,m,q:%20integer;,y:%20matr;,t,al,bt,a,b,c:%20mas;:%20array[0..3]%20of%20real;i:=0%20to%2015%20do%20Chart1.Series[i].Clear;:=strtoint(EdN.Text);[0]:=strtofloat(EdT1.Text);[1]:=strtofloat(EdT2.Text);[2]:=strtofloat(EdT3.Text);[3]:=strtofloat(EdT4.Text);q:=0%20to%203%20do%20begin:=1/n;(n);:=strtofloat(EdTay.Text);:=round(time[q]/tay);(m);(t,m);(y,m,n);(f,m,n);(x,n);(al,n);(bt,n);(a,n);(b,n);(c,n);(m);(n);i:=0%20to%20n%20do[i]:=-tay;[i]:=-tay;[i]:=2*(sqr(h)+tay);;[0]:=0;[n]:=0;[0]:=1;[n]:=1;[0]:=0;[n]:=0;j:=0%20to%20m%20do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0%20to%20n%20do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0%20to%20m%20doi:=0%20to%20n%20do%20f[j,i]:=fij(x[i],t[j]+tay/2);j:=0%20to%20m-1%20do[n-1]:=-a[n]/b[n];[n-1]:=(2*tay*sqr(h)*f[j,n]+{tay*y[j,n+1]}+tay*y[j,n-1]-y[j,n]*(2*tay-2*sqr(h)))/b[n];p:=n-1%20downto%201%20do[p-1]:=-a[p]/(al[p]*c[p]+b[p]);[p-1]:=(2*tay*sqr(h)*f[j,p]+tay*y[j,p+1]+tay*y[j,p-1]-y[j,p]*(2*tay-2*sqr(h))-bt[p]*c[p])/(al[p]*c[p]+b[p]);;i:=0%20to%20n-2%20do%20y[j+1,i+1]:=al[i]*y[j+1,i]+bt[i];;:=0;l<=1%20do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0%20to%20n%20do%20chart1.Series[q+12].AddXY(x[i],y[m,i]);;;TForm1.CheckBox1Click(Sender:%20TObject);.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;;.>{$R *.dfm}TForm1.EdNKeyPress(Sender: TObject; var Key: Char);(Key='.')or (Key=',') then:=DecimalSeparatornot ((Key<='9')and(Key>='0') or (Key=#8)or (Key='-')) then:=#0;;(pos(Key,edN.Text)>0) and ((key=decimalSeparator) or (key='-')) then:=#0;;TForm1.EdNKeyUp(Sender: TObject; var

Сопряженные задачи для уравнений переноса и диффузии

Курсовой проект

Математика и статистика

Другие курсовые по предмету

Математика и статистика

Сдать работу со 100% гаранией
eclarations };mas=array of real;=array of mas;: TForm1;:array[0..3]of real;pi=3.1415;

='0')%20or%20(Key=#8)or%20(Key='-'))%20then:=#0;;(pos(Key,edN.Text)>0)%20and%20((key=decimalSeparator)%20or%20(key='-'))%20then:=#0;;TForm1.EdNKeyUp(Sender:%20TObject;%20var%20Key:%20Word;:%20TShiftState);.Caption:='tay/h^2=%20'+FloatToStr(StrToFloat(EdTay.Text)/sqr(1/StrToFloat(EdN.Text)));;TForm1.EdTayKeyPress(Sender:%20TObject;%20var%20Key:%20Char);(Key='.')or%20(Key=',')%20then:=DecimalSeparatornot%20((Key<='9')and(Key>='0')%20or%20(Key=#8)or%20(Key='-'))%20then:=#0;;(pos(Key,edTay.Text)>0)%20and%20((key=decimalSeparator)%20or%20(key='-'))%20then:=#0;;u(x,t:real):real;:=sin(pi*x)*t;;fij(x,t:real):real;:=sin(pi*x)+sqr(pi)*t*sin(pi*x);;TForm1.BtnJavnClick(Sender:%20TObject);tay,h,l:real;,i,j,m,q:integer;,t:mas;,f:matr;i:=0%20to%2015%20do%20Chart1.Series[i].Clear;:=StrToInt(EdN.Text);:=1/n;:=StrToFloat(EdTay.Text);:=round(1/tay);:=m+1;:=n+1;(y,m,n);(f,m,n);(x,n);(t,m);:=n-1;:=m-1;[0]:=StrToFloat(EdT1.Text);[1]:=StrToFloat(EdT2.Text);[2]:=StrToFloat(EdT3.Text);[3]:=StrToFloat(EdT4.Text);q:=0%20to%203%20do:=round(time[q]/tay);j:=0%20to%20m%20do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0%20to%20n%20do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0%20to%20m%20doi:=0%20to%20n%20do%20f[j,i]:=fij(x[i],t[j]);j:=0%20to%20m-1%20doi:=1%20to%20n-1%20do[j+1,i]:=tay*y[j,i+1]/sqr(h)+(1-2*tay/sqr(h))*y[j,i]+tay*y[j,i-1]/sqr(h)+tay*f[j,i];:=0;l<=1%20do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0%20to%20n%20do.series[q+4].AddXY(x[i],y[m,i]);;;TForm1.BtnNeJavnClick(Sender:%20TObject);,h,l:%20real;,i,j,p,m,q:%20integer;,y:%20matr;,t,al,bt,a,b,c:%20mas;:%20array[0..3]%20of%20real;i:=0%20to%2015%20do%20Chart1.Series[i].Clear;:=strtoint(EdN.Text);[0]:=strtofloat(EdT1.Text);[1]:=strtofloat(EdT2.Text);[2]:=strtofloat(EdT3.Text);[3]:=strtofloat(EdT4.Text);q:=0%20to%203%20do%20begin:=1/n;(n);:=strtofloat(EdTay.Text);:=round(time[q]/tay);(m);(t,m);(y,m,n);(f,m,n);(x,n);(al,n);(bt,n);(a,n);(b,n);(c,n);(m);(n);i:=0%20to%20n%20do[i]:=-tay;[i]:=-tay;[i]:=sqr(h)+2*tay;;[0]:=0;[n]:=0;[0]:=1;[n]:=1;[0]:=0;[n]:=0;j:=0%20to%20m%20do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0%20to%20n%20do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0%20to%20m%20doi:=0%20to%20n%20do%20f[j,i]:=fij(x[i],t[j]);j:=0%20to%20m-1%20do[n-1]:=-a[n]/b[n];[n-1]:=sqr(h)*(f[j,n]*tay+y[j,n])/b[n];p:=n-1%20downto%201%20do[p-1]:=-a[p]/(al[p]*c[p]+b[p]);[p-1]:=(sqr(h)*(f[j,p]*tay+y[j,p])-bt[p]*c[p])/(al[p]*c[p]+b[p]);;i:=0%20to%20n-2%20do%20y[j+1,i+1]:=al[i]*y[j+1,i]+bt[i];;:=0;l<=1%20do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0%20to%20n%20do%20chart1.Series[q+8].AddXY(x[i],y[m,i]);//%20chart1.Series[j+4].AddXY(x[i],f[j,i]);;;TForm1.BtnSimClick(Sender:%20TObject);,h,l:%20real;,i,j,p,m,q:%20integer;,y:%20matr;,t,al,bt,a,b,c:%20mas;:%20array[0..3]%20of%20real;i:=0%20to%2015%20do%20Chart1.Series[i].Clear;:=strtoint(EdN.Text);[0]:=strtofloat(EdT1.Text);[1]:=strtofloat(EdT2.Text);[2]:=strtofloat(EdT3.Text);[3]:=strtofloat(EdT4.Text);q:=0%20to%203%20do%20begin:=1/n;(n);:=strtofloat(EdTay.Text);:=round(time[q]/tay);(m);(t,m);(y,m,n);(f,m,n);(x,n);(al,n);(bt,n);(a,n);(b,n);(c,n);(m);(n);i:=0%20to%20n%20do[i]:=-tay;[i]:=-tay;[i]:=2*(sqr(h)+tay);;[0]:=0;[n]:=0;[0]:=1;[n]:=1;[0]:=0;[n]:=0;j:=0%20to%20m%20do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0%20to%20n%20do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0%20to%20m%20doi:=0%20to%20n%20do%20f[j,i]:=fij(x[i],t[j]+tay/2);j:=0%20to%20m-1%20do[n-1]:=-a[n]/b[n];[n-1]:=(2*tay*sqr(h)*f[j,n]+{tay*y[j,n+1]}+tay*y[j,n-1]-y[j,n]*(2*tay-2*sqr(h)))/b[n];p:=n-1%20downto%201%20do[p-1]:=-a[p]/(al[p]*c[p]+b[p]);[p-1]:=(2*tay*sqr(h)*f[j,p]+tay*y[j,p+1]+tay*y[j,p-1]-y[j,p]*(2*tay-2*sqr(h))-bt[p]*c[p])/(al[p]*c[p]+b[p]);;i:=0%20to%20n-2%20do%20y[j+1,i+1]:=al[i]*y[j+1,i]+bt[i];;:=0;l<=1%20do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0%20to%20n%20do%20chart1.Series[q+12].AddXY(x[i],y[m,i]);;;TForm1.CheckBox1Click(Sender:%20TObject);.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;;.">{$R *.dfm}TForm1.EdNKeyPress(Sender: TObject; var Key: Char);(Key='.')or (Key=',') then:=DecimalSeparatornot ((Key<='9')and(Key>='0') or (Key=#8)or (Key='-')) then:=#0;;(pos(Key,edN.Text)>0) and ((key=decimalSeparator) or (key='-')) then:=#0;;TForm1.EdNKeyUp(Sender: TObject; var Key: Word;: TShiftState);.Caption:='tay/h^2= '+FloatToStr(StrToFloat(EdTay.Text)/sqr(1/StrToFloat(EdN.Text)));;TForm1.EdTayKeyPress(Sender: TObject; var Key: Char);(Key='.')or (Key=',') then:=DecimalSeparatornot ((Key<='9')and(Key>='0') or (Key=#8)or (Key='-')) then:=#0;;(pos(Key,edTay.Text)>0) and ((key=decimalSeparator) or (key='-')) then:=#0;;u(x,t:real):real;:=sin(pi*x)*t;;fij(x,t:real):real;:=sin(pi*x)+sqr(pi)*t*sin(pi*x);;TForm1.BtnJavnClick(Sender: TObject);tay,h,l:real;,i,j,m,q:integer;,t:mas;,f:matr;i:=0 to 15 do Chart1.Series[i].Clear;:=StrToInt(EdN.Text);:=1/n;:=StrToFloat(EdTay.Text);:=round(1/tay);:=m+1;:=n+1;(y,m,n);(f,m,n);(x,n);(t,m);:=n-1;:=m-1;[0]:=StrToFloat(EdT1.Text);[1]:=StrToFloat(EdT2.Text);[2]:=StrToFloat(EdT3.Text);[3]:=StrToFloat(EdT4.Text);q:=0 to 3 do:=round(time[q]/tay);j:=0 to m do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0 to n do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0 to m doi:=0 to n do f[j,i]:=fij(x[i],t[j]);j:=0 to m-1 doi:=1 to n-1 do[j+1,i]:=tay*y[j,i+1]/sqr(h)+(1-2*tay/sqr(h))*y[j,i]+tay*y[j,i-1]/sqr(h)+tay*f[j,i];:=0;l<=1 do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0 to n do.series[q+4].AddXY(x[i],y[m,i]);;;TForm1.BtnNeJavnClick(Sender: TObject);,h,l: real;,i,j,p,m,q: integer;,y: matr;,t,al,bt,a,b,c: mas;: array[0..3] of real;i:=0 to 15 do Chart1.Series[i].Clear;:=strtoint(EdN.Text);[0]:=strtofloat(EdT1.Text);[1]:=strtofloat(EdT2.Text);[2]:=strtofloat(EdT3.Text);[3]:=strtofloat(EdT4.Text);q:=0 to 3 do begin:=1/n;(n);:=strtofloat(EdTay.Text);:=round(time[q]/tay);(m);(t,m);(y,m,n);(f,m,n);(x,n);(al,n);(bt,n);(a,n);(b,n);(c,n);(m);(n);i:=0 to n do[i]:=-tay;[i]:=-tay;[i]:=sqr(h)+2*tay;;[0]:=0;[n]:=0;[0]:=1;[n]:=1;[0]:=0;[n]:=0;j:=0 to m do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0 to n do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0 to m doi:=0 to n do f[j,i]:=fij(x[i],t[j]);j:=0 to m-1 do[n-1]:=-a[n]/b[n];[n-1]:=sqr(h)*(f[j,n]*tay+y[j,n])/b[n];p:=n-1 downto 1 do[p-1]:=-a[p]/(al[p]*c[p]+b[p]);[p-1]:=(sqr(h)*(f[j,p]*tay+y[j,p])-bt[p]*c[p])/(al[p]*c[p]+b[p]);;i:=0 to n-2 do y[j+1,i+1]:=al[i]*y[j+1,i]+bt[i];;:=0;l<=1 do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0 to n do chart1.Series[q+8].AddXY(x[i],y[m,i]);// chart1.Series[j+4].AddXY(x[i],f[j,i]);;;TForm1.BtnSimClick(Sender: TObject);,h,l: real;,i,j,p,m,q: integer;,y: matr;,t,al,bt,a,b,c: mas;: array[0..3] of real;i:=0 to 15 do Chart1.Series[i].Clear;:=strtoint(EdN.Text);[0]:=strtofloat(EdT1.Text);[1]:=strtofloat(EdT2.Text);[2]:=strtofloat(EdT3.Text);[3]:=strtofloat(EdT4.Text);q:=0 to 3 do begin:=1/n;(n);:=strtofloat(EdTay.Text);:=round(time[q]/tay);(m);(t,m);(y,m,n);(f,m,n);(x,n);(al,n);(bt,n);(a,n);(b,n);(c,n);(m);(n);i:=0 to n do[i]:=-tay;[i]:=-tay;[i]:=2*(sqr(h)+tay);;[0]:=0;[n]:=0;[0]:=1;[n]:=1;[0]:=0;[n]:=0;j:=0 to m do[j]:=j*tay;[j,0]:=0;[j,n]:=0;;i:=0 to n do[i]:=i*h;[0,i]:=u(x[i],0);;j:=0 to m doi:=0 to n do f[j,i]:=fij(x[i],t[j]+tay/2);j:=0 to m-1 do[n-1]:=-a[n]/b[n];[n-1]:=(2*tay*sqr(h)*f[j,n]+{tay*y[j,n+1]}+tay*y[j,n-1]-y[j,n]*(2*tay-2*sqr(h)))/b[n];p:=n-1 downto 1 do[p-1]:=-a[p]/(al[p]*c[p]+b[p]);[p-1]:=(2*tay*sqr(h)*f[j,p]+tay*y[j,p+1]+tay*y[j,p-1]-y[j,p]*(2*tay-2*sqr(h))-bt[p]*c[p])/(al[p]*c[p]+b[p]);;i:=0 to n-2 do y[j+1,i+1]:=al[i]*y[j+1,i]+bt[i];;:=0;l<=1 do.Series[q].AddXY(l,u(l,t[m]));:=l+0.001;;i:=0 to n do chart1.Series[q+12].AddXY(x[i],y[m,i]);;;TForm1.CheckBox1Click(Sender: TObject);.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox1.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox2.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox3.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;.Active:=CheckBox4.Checked;;.

 

Похожие работы

< 1 2