Re: a small problem from a newbee...
- To: mathgroup at smc.vnet.net
- Subject: [mg58210] Re: [mg58193] a small problem from a newbee...
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Thu, 23 Jun 2005 05:33:46 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Vzf[x_] := Evaluate[Simplify[y[x]/.
DSolve[{y''[x]-g1*y[x]+g2*Cosh[k*x]/Cosh[k]+g3==0,
y[-1]==0,y[1]==0},y[x],x][[1]]]];
Vzf[x]
(1/((1 + E^(2*Sqrt[g1]))*g1*(g1 - k^2)))*
((E^(Sqrt[g1]*x)*g3*(g1 - k^2) + E^(Sqrt[g1]*(x + 2))*g3*(g1 - k^2) +
E^(Sqrt[g1]*(2*x + 1))*(g3*k^2 - g1*(g2 + g3)) + E^Sqrt[g1]*(g3*k^2 - g1*
(g2 + g3)) +
E^(Sqrt[g1]*x)*(1 + E^(2*Sqrt[g1]))*g1*g2*Cosh[k*x]*Sech[k])/E^(Sqrt[g1]
*x))
Vzf[1]//Simplify
0
Vzf[-1]//Simplify
0
Bob Hanlon
>
> From: dibyadeep at gmail.com
To: mathgroup at smc.vnet.net
> Date: 2005/06/22 Wed AM 01:55:36 EDT
> Subject: [mg58210] [mg58193] a small problem from a newbee...
>
> hi ...i m writing a function in which i have to assign the solution of
> a ode to a variable..i wrote the function like this...but it doesnot
> work..cud u suggest a alternative...
>
> Vzf=Function[x,DSolve[{y''[x] - g1*y[x] + g2*Cosh[k*x]/Cosh[k] +
> g3 == 0, y[-1] == 0, y[1] == 0}, y, x]; Vz = y[x] /. %]
>
> the program doesnot work bcoz thres no output wheni put a ; after
> solution to the ode...so the assignment doesnot work..
> plss help me out...i just cannot find a solution
>
>