       Re: MeijerG again

• To: mathgroup at smc.vnet.net
• Subject: [mg55705] Re: [mg55688] MeijerG again
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Mon, 4 Apr 2005 00:59:11 -0400 (EDT)
• Reply-to: hanlonr at cox.net
• Sender: owner-wri-mathgroup at wolfram.com

```\$Version

5.1 for Mac OS X (January 27, 2005)

Clear[f,x,t];
f[t_] = FullSimplify[f[t] /.DSolve[
{Sin[t]*f''[t]+Cos[t]*f'[t]+3/4*Sin[t]*f[t]==0,
f[-Pi/2]==1, f'[-Pi/2]==0},f[t],t][]]

(8*Sqrt[Pi]*(Pi*LegendreP[1/2, Cos[t]]*LegendreQ[-(1/2), 0] -
2*EllipticK[1/2]*LegendreQ[1/2, Cos[t]]))/
(8*Pi^(3/2) + EllipticK[1/2]*Gamma[-(1/4)]^2)

{f[-Pi/2]//FullSimplify,f'[-Pi/2]}

{1,0}

Bob Hanlon

>
> From: "Zakir F. Seidov" <seidov at bgumail.bgu.ac.il>
To: mathgroup at smc.vnet.net
> Date: 2005/04/03 Sun AM 05:50:56 EDT
> To: mathgroup at smc.vnet.net
> Subject: [mg55705] [mg55688] MeijerG again
>
> Dear Mathematica gurus!
> I need to solve (a rather simple?) ODE:
> DSolve[{Sin[t]*f''[t]+Cos[t]*f'[t]+3/4*Sin[t]*f[t]==
> 0}, f[t], t]
> Mathematica 4 gives:
> {{f[t] ->C*Hypergeometric2F1[-(1/4), 3/4, 1, Sin[t]^2]
+C*MeijerG[{{},{1/4, 5/4}},{{0, 0},{}},Sin[t]^2]}}
> It's OK, but I need initial conditions: f[-Pi/2]=1 and f'[-Pi/2]=0.
> Mathematica 4 refuses to find C and C.
> Pleeeese HHHEEELLLPPP!!!
>
>

```

• Prev by Date: Re: Front End Memory usage while exporting many graphics
• Next by Date: Re: MultipleListPlot Prolem
• Previous by thread: MeijerG again
• Next by thread: NSolve an equation involving NIntegrate