Question: Explore plot in which variable and parameters are table

Hello

Could you plese help me to plot my function. i want to plot a function in which variables are have able formatting. I have attache my file.

Thank you.


restart

L[b] := 400:

L[c] := 400:

q := 5:

M[ab] := VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(2, E), I[c]), 1/L[c]), theta[b]):``

M[ba] := VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(2, E), I[c]), 1/L[c]), VectorCalculus:-`*`(2, theta[b])):

M[bc] := VectorCalculus:-`+`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(2, E), I[b]), 1/L[b]), VectorCalculus:-`+`(VectorCalculus:-`*`(2, theta[b]), theta[c])), VectorCalculus:-`*`(VectorCalculus:-`*`(q, L[b]^2), 1/12)):

M[cb] := VectorCalculus:-`+`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(2, E), I[b]), 1/L[b]), VectorCalculus:-`+`(theta[b], VectorCalculus:-`*`(2, theta[c]))), VectorCalculus:-`-`(VectorCalculus:-`*`(VectorCalculus:-`*`(q, L[b]^2), 1/12))):

M[cd] := VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(2, E), I[c]), 1/L[c]), VectorCalculus:-`*`(2, theta[c])):

M[dc] := VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(2, E), I[c]), 1/L[c]), theta[c]):

eq1 := VectorCalculus:-`+`(VectorCalculus:-`*`(VectorCalculus:-`+`(M[ab], M[ba]), 1/L[c]), VectorCalculus:-`*`(VectorCalculus:-`+`(M[cd], M[dc]), 1/L[c])) = 0:

eq2 := VectorCalculus:-`+`(M[ba], M[bc]) = 0:

solve([eq1, eq2], {theta[b], theta[c]})

{theta[b] = -(40000000/3)/(E*(I[b]+2*I[c])), theta[c] = (40000000/3)/(E*(I[b]+2*I[c]))}

(1)

theta[b] := rhs({theta[b] = -(40000000/3)/(E*(I[b]+2*I[c])), theta[c] = (40000000/3)/(E*(I[b]+2*I[c]))}[1]):

theta[c] := rhs({theta[b] = -(40000000/3)/(E*(I[b]+2*I[c])), theta[c] = (40000000/3)/(E*(I[b]+2*I[c]))}[2]):

subs(theta[b] = theta[b], M[ba])

-(400000/3)*I[c]/(I[b]+2*I[c])

(2)

subs(theta[b] = theta[b], M[bc]):

``

EXplore(plot(M[ba], I[b] = 1 .. 10), parameters = [I[c] = 1 .. 20])

Error, (in plot) unexpected option: I[b] = 1 .. 10

 

``


Download shiboft2.mw

Please Wait...