Quantcast
Channel: MaplePrimes - Questions and Posts tagged with system
Viewing all articles
Browse latest Browse all 164
↧

How to solve this PDE system?

June 19, 2016, 7:05 am
$
0
0

hi .please help me for solve this equations.

bbb2.mw

restart; d[11] := 1; mu[11] := 1; q[311] := 1; d[33] := 1; mu[33] := 1; a[11] := 1; e[311] := 1; a[33] := 1; A := 1; g[111111] := 1; c[1111] := 1; g[113113] := 1; f[3113] := 1; beta[11] := 1; `ΔT` := 1; II := 1; L := 1

J := d[11]*(diff(Phi(x, z), x, x))+mu[11]*(diff(psi(x, z), x, x))+q[311]*(diff(w(x), x, x))+d[33]*(diff(Phi(x, z), z, z))+mu[33]*(diff(psi(x, z), z, z));

diff(diff(Phi(x, z), x), x)+diff(diff(psi(x, z), x), x)+diff(diff(w(x), x), x)+diff(diff(Phi(x, z), z), z)+diff(diff(psi(x, z), z), z)

(1)

B := a[11]*(diff(Phi(x, z), x, x))+d[11]*(diff(psi(x, z), x, x))+e[311]*(diff(w(x), x, x))+a[33]*(diff(Phi(x, z), z, z))+d[33]*(diff(psi(x, z), z, z));

diff(diff(Phi(x, z), x), x)+diff(diff(psi(x, z), x), x)+diff(diff(w(x), x), x)+diff(diff(Phi(x, z), z), z)+diff(diff(psi(x, z), z), z)

(2)

R := A*(g[111111]*(diff(u[0](x), x, x, x, x))-c[1111]*(diff(u[0](x), x, x)+(1/2)*(diff((diff(w(x), x))^2, x)))+e[311]*(diff(diff(Phi(x, z), z), x))+q[311]*(diff(diff(psi(x, z), z), x)));

diff(diff(diff(diff(u[0](x), x), x), x), x)-(diff(diff(u[0](x), x), x))-(diff(w(x), x))*(diff(diff(w(x), x), x))+diff(diff(Phi(x, z), x), z)+diff(diff(psi(x, z), x), z)

(3)

S := -II*g[111111]*(diff(w(x), x, x, x, x, x, x))-II*c[1111]*(diff(w(x), x, x, x, x))+A*g[113113]*(diff(w(x), x, x, x, x))-A*f[3113]*(diff(diff(Phi(x, z), z), x, x))-A*(c[1111]*(diff(u[0](x), x, x)+(1/2)*(diff((diff(w(x), x))^2, x)))+e[311]*(diff(diff(Phi(x, z), z), x))+q[311]*(diff(diff(psi(x, z), z), x)))*(diff(w(x), x))-A*(diff(w(x), x, x))*(c[1111]*(diff(u[0](x), x)+(1/2)*(diff(w(x), x))^2)+e[311]*(diff(Phi(x, z), z))+q[311]*(diff(psi(x, z), z))-beta[11]*`ΔT`);

-(diff(diff(diff(diff(diff(diff(w(x), x), x), x), x), x), x))-(diff(diff(diff(Phi(x, z), x), x), z))-(diff(diff(u[0](x), x), x)+(diff(w(x), x))*(diff(diff(w(x), x), x))+diff(diff(Phi(x, z), x), z)+diff(diff(psi(x, z), x), z))*(diff(w(x), x))-(diff(diff(w(x), x), x))*(diff(u[0](x), x)+(1/2)*(diff(w(x), x))^2+diff(Phi(x, z), z)+diff(psi(x, z), z)-1)

(4)

dsys := {B, J, R, S}; BCS := {D@@2*w(0) = 0, D@@2*w(L) = 0, Phi(x = 0) = 0, Phi(x = L) = 0, Phi(z = -(1/2)*h) = 0, Phi(z = (1/2)*h) = 0, psi(x = 0) = 0, psi(x = L) = 0, psi(z = -(1/2)*h) = 0, psi(z = (1/2)*h) = 0, w(x = 0) = 0, w(x = L) = 0, u[0](x = 0) = 0, u[0](x = L) = 0, (D(w))(0) = 0, (D(w))(L) = 0, (D(u[0]))(0) = 0, (D(u[0]))(L) = 0}

{D@@2*w(0) = 0, D@@2*w(L) = 0, Phi(x = 0) = 0, Phi(x = L) = 0, Phi(z = -(1/2)*h) = 0, Phi(z = (1/2)*h) = 0, psi(x = 0) = 0, psi(x = L) = 0, psi(z = -(1/2)*h) = 0, psi(z = (1/2)*h) = 0, w(x = 0) = 0, w(x = L) = 0, u[0](x = 0) = 0, u[0](x = L) = 0, (D(w))(0) = 0, (D(w))(L) = 0, (D(u[0]))(0) = 0, (D(u[0]))(L) = 0}

(5)

dsol5 := dsolve(dsys, numeric)

Error, (in dsolve/numeric/process_input) missing differential equations and initial or boundary conditions in the first argument: dsys

 

NULL

NULL

NULL

if former equations are not solvable , please help me for another way, in which at first two equation solve..in this way in equation [J and B] assume that q[311]=e[311]=0 and dsolve perform to find Φ and  ψ

after by finding Φ and  ψ is use for detemine w and u0

please see attached file below[bbb2_2.mw]

bbb2_2.mw

Download bbb2.mw

↧
Search
Viewing all articles
Browse latest Browse all 164

Trending Articles

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

Download: FK ft Shenky – Nakuyewa ”Prod by: Shenky”

February 16, 2017, 4:24 pm

How to win at Markstrat (Markstrat Tips and Tricks) – Vodites

January 5, 2014, 10:34 pm

Ominde Commission Report and Recommendations – Ominde Report of 1964

March 16, 2015, 5:14 am

Bureau of Internal Revenue: Regional Offices (Directory)

January 9, 2014, 11:06 pm

GO 53 on Enhancement of Ex-gratia upto 5 Lakhs Toddy Tappers in Telangana

March 26, 2017, 11:23 pm

Cakewalk CA-2A Leveling Amplifier v2.0.1.97 WiN, v2.0.1.96 OSX Incl Keygen

October 17, 2016, 7:20 am

Mp3 Download: Mdu - Kunjenjenjena

December 7, 2017, 8:16 am

How the kill the job , when DTP request running for long hours.

July 26, 2013, 2:41 am

Microsoft Intune から展開しているアプリのアップデートについて

October 17, 2016, 4:11 am

18-year-old girl was beaten for half an hour by two Northampton men in 'an...

September 1, 2017, 10:00 pm

Car crash in Dunton Bassett leaves driver in critical condition

October 7, 2014, 7:51 am

Macky 2, Two Others In Road Accident

March 29, 2015, 5:34 am

Application log 00000000000000089514: Could not convert queue DLVST90CLNT

May 14, 2015, 11:27 pm

Detroit mafia: D’Anna Brothers agree to plea deal

April 21, 2016, 6:56 am

Delivery block field greyed out using VA02

January 26, 2016, 2:52 pm

Muloraki Au

June 22, 2016, 1:44 am

【個人撮影】スマホのプライベート映像♪「中に出さないで///」カラオケ屋での生ハメ撮りが流出ｗ【リベンジポルノ】＠PornHub

October 12, 2017, 2:23 pm

BREAKING NEWS: Diamond Platnumz Is Reported Dead After Ghastly Car Accident

February 9, 2018, 4:56 am

FIAT 500 B0111 B0112

July 5, 2018, 10:31 am
Search