## 90 Reputation

6 years, 288 days
UNIVERSITY OF LAGOS, AKOKA YABA, LAGOS
LAGOS, Nigeria

Maple
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 (1)
 >
 >
 (2)
 >

## Error, (in fproc) unable to store 'HFloa...

Maple

Please anyone, I have been battling with this problem for a while yet the error message keeps coming. Would be happy if responded to.

Thanks

 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 (1)
 >
 (2)
 >
 (3)
 >
 >
 (4)
 >
 >
 >
 (5)
 >
 (6)
 >
 (7)
 >
 (8)
 >
 (9)
 >
 >
 >
 >
 >
 >
 >
 (10)
 >
 (11)
 >
 (12)
 >
 >
 >
 (13)
 >
 (14)
 >
 >

 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 (1)
 >
 (2)
 >
 (3)
 >
 >
 (4)
 >
 >
 >
 (5)
 >
 (6)
 >
 (7)
 >
 (8)
 >
 (9)
 >
 >
 >
 >
 >
 >
 >
 (10)
 >
 (11)
 >
 (12)
 >
 >
 >
 (13)
 >
 (14)
 >
 >

## cubic b spline to solve ode...

Maple

I need to solve an ode of the type ay''+by'+cy=f(x) using cubic b spline.

can any one help me with the code or algorithm. Thanks

Maple

restart; Digits := 10; Ha := 2; R := 2; `&theta;r` := .5; Rt := 1; B := 1.5; Xi := 0; U[0] := 0; U[1] := alpha; U[2] := -6+(1/16)*Rt*Xi; U[3] := (1/6)*beta; Theta[0] := -(1/2)*Rt Theta[1]:=phi:   delta:=(k)->`if`(k=0, 1,0);   for k  from 0 to 20do    U[k+4]:=((Ha^(2)+R)*U[k+2]+Xi*Theta[k+2])/(4(k+3)*(k+4))

Theta[k+2] := (-4*R*`&theta;r`*(`&theta;r`*Theta[k]+1)^2*(sum((i+1)*Theta[i+1]*(k-i+1)*Theta[k-i+1], i = 0 .. k))-B*(sum((i+1)*U[i+1]*(k-i+1)*U[k-i+1], i = 0 .. k))+(1/4)*Ha^2*B*(sum(U[i]*(k-i)*U[k-i], i = 0 .. k)))/((1+(4/3)*R*(`&theta;r`*Theta[k]+1)^3)*(k+1)*(k+2))

od:  u:=0:  theta:=0:  for k from 0 to 20 do  u:=u+U[k]*y^k:  theta:=theta+Theta[k]*y^k:  od:  print(expand(u)):