Advanced Search

Question: please help me i want to solve the problem of diff equations

Question:please help me i want to solve the problem of diff equations

eslamelidy 20 Maple 18
differential-equations
December 18 2018
1

NULL

 

> 

Typesetting:-delayDotProduct(with, DEtools, true):
> 

with(IntegrationTools):
> 

z := 'z';

z

 (1)
> 

whattype(z)

symbol

 (2)
> 

``
> 

eq := proc (z) options operator, arrow; evalf(Int(-(2*I)*exp((-1)*.5*I*t)/(sqrt(t^2+1)*exp(sqrt(t^2+1))), t = -500 .. z)) end proc

proc (z) options operator, arrow; evalf(Int(-(2*I)*exp((-1)*.5*I*t)/(sqrt(t^2+1)*exp(sqrt(t^2+1))), t = -500 .. z)) end proc

 (3)
> 

f(500)

f(500)

 (4)
> 

a := 2*t^2+5*t

2*t^2+5*t

 (5)
> 

s := t^2+t+1

t^2+t+1

 (6)
> 

d := t^2+t-9

t^2+t-9

 (7)
> 

``
> 

 

> 

 

> 

sys := {diff(x(t), t) = eq(z)*y(t)+a*x(t), diff(y(t), t) = s*x(t)+d*y(t)}

{diff(x(t), t) = (Int(-(2.*I)*exp(-(.5*I)*t)/((t^2+1.)^(1/2)*exp((t^2+1.)^(1/2))), t = -500. .. z))*y(t)+(2*t^2+5*t)*x(t), diff(y(t), t) = (t^2+t+1)*x(t)+(t^2+t-9)*y(t)}

 (8)
> 

IC_1 := {x(-1) = 0, y(-1) = 1}

{x(-1) = 0, y(-1) = 1}

 (9)
> 

dsol3 := dsolve(`union`(sys, IC_1), numeric, parameters = [z], method = rkf45, range = -500 .. 500, output = procedurelist)

"dsol3:=proc(x_rkf45) ... end proc"

 (10)
> 

dsol3(parameters)

[z = undefined]

 (11)
> 

``
> 

dsol3(parameters = [500])

Error, (in evalf/int) invalid arguments

  
> 

dsol3(500);

Error, (in dsol3) parameters must be initialized before solution can be computed

  
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``
> 

``

Download eslam_().mw
Please Wait...