Re: The use of Piecewise function
- To: mathgroup at smc.vnet.net
- Subject: [mg95240] Re: [mg95221] The use of Piecewise function
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Mon, 12 Jan 2009 06:23:43 -0500 (EST)
- Reply-to: hanlonr at cox.net
M[x_] := Piecewise[{{Subscript[V, A] x, 0 <= x < b},
{Subscript[V, A] x - P (x - b), b <= x <= a + b}}];
soln = y[x] /. DSolve[{y''[x] == M[x], y[a + b] == 0,
y'[a + b] == 0}, y[x], x][[1]];
Y[x_] = FullSimplify[PiecewiseExpand[soln],
{a >= 0, b > 0, x >= 0}]
Piecewise[{{(1/6)*(Subscript[V, A]*(a + b - x)^2*(2*(a + b) + x) -
P*(a + b)*(2*a^2 + a*(b - 3*x) - b*(b - 3*x))), b > x},
{(1/6)*(a + b - x)^2*(Subscript[V, A]*(2*(a + b) + x) +
P*(-(2*a) + b - x)),
a + b >= x && b <= x}}, (1/6)*(a +
b)*(P*(-(2*a^2) - a*b + 3*a*x + b^2 - 3*b*x) +
(a + b)*Subscript[V, A]*(2*(a + b) - 3*x))]
Bob Hanlon
---- Miguel <misvrne at gmail.com> wrote:
=============
Hi all,
How can I to use the Piecewise function for symbolic calculations. For
example, let the equation of ellastic line of a beam
In[]: M[x_]:=Piecewise[{{Subscript[V, A]x,0<=x<b},{Subscript[V, A]x-P
(x-b),b<=x<=a+b}}];
DSolve[{y''[x]==M[x],y[a+b]==0,y'[a+b]==0},y[x],x];
Y[x_]=y[x]/.%[[1]]
Out[]:-\[Piecewise]1/12 a^2 (2 a+3 b) P a+b>=0\[And]-a>0
1/4 (2 b (a+b)^2-1/3 b (3 a^2+6 b a+2 b^2)) P -a<=0
+ etc, etc
I have proved with Assumptions, Assuming, but it does'nt work.