Tokoro

115 Reputation

5 Badges

3 years, 219 days

MaplePrimes Activity


These are questions asked by Tokoro

I make new cone puzzle. However, I cat't make function l(θ). Can maple solve this puzzle?

θ=90 degree is a YouTube problem I found. 

 

:RLC circuit I want to solve.

restart

with(DynamicSystems); with(inttrans)

E := 1; J := 3; R := 3; L := 1; C := 1/2

(1/s-6/s^2)/(s+3+2/s)

(1/s-6/s^2)/(s+3+2/s)

(1)

i__RL := proc (t) options operator, arrow; invlaplace((1/s-6/s^2)/(s+3+2/s), s, t) end proc

proc (t) options operator, arrow; invlaplace((1/s-6/s^2)/(s+3+2/s), s, t) end proc

(2)

"(->)"

-4*exp(-2*t)-3+7*exp(-t)

(3)

e__C := proc (t) options operator, arrow; E-i__RL(t)*R-L*(diff(i__RL(t), t)) end proc

proc (t) options operator, arrow; E-i__RL(t)*R-L*(diff(i__RL(t), t)) end proc

(4)

"(->)"

10+4*exp(-2*t)-14*exp(-t)

(5)

plot([-4*exp(-2*t)-3+7*exp(-t), 10+4*exp(-2*t)-14*exp(-t)], t = 0 .. 10, color = [red, blue], thickness = 3, labels = ["t", "i(t)_red and vc(t)_blue"])

 

NULL

(1/s-6/s^2)/(s+3+2/s)

(1/s-6/s^2)/(s+3+2/s)

(6)

"(->)"

[diff(x1(t), t) = x2(t), diff(x2(t), t) = -(1/3)*x3(t), diff(x3(t), t) = 6*x2(t)-3*x3(t)-3*u1(t), y1(t) = -6*x1(t)+x2(t)]

(7)

How to solve this by Maple? The answer I want to solve is the plot shown above.

Download DynamicSystem-How_to_ODE.mw

How to plot  the intersection of Zc and Zs?

restart; with(plots)

m := 1; n := 2

``

Zc := proc (x, y) options operator, arrow; m*cos((1/180)*x*Pi)+n*cos((1/180)*y*Pi) end proc

Zs := proc (x, y) options operator, arrow; m*sin((1/180)*x*Pi)+n*sin((1/180)*y*Pi) end proc

plot3d([Zc(x, y), Zs(x, y)], x = 0 .. 180, y = 0 .. 180)

 

Z := proc (x, y) options operator, arrow; `intersect`(Zc(x, y), Zs(x, y)) end proc

proc (x, y) options operator, arrow; `intersect`(Zc(x, y), Zs(x, y)) end proc

(1)

"How to plot intersect of Zc and Zs"?""

Download plot-15.mw

How to plot F(R) for R=0..100 ?

Maple 2021 sheet attached.

restart; i := I``

with(LinearAlgebra)

E := 100

100

(1)

"Z(R):=((5+5 i)*(R-10 i))/((5+5 i)+(R-10 i))"

proc (R) options operator, arrow, function_assign; (5+5*i)*(R-10*i)/(5-5*i+R) end proc

(2)

"`I__R`(R):=E/(Z(R))"

proc (R) options operator, arrow, function_assign; E/Z(R) end proc

(3)

"F(R):=|`I__R`(R)|"

proc (R) options operator, arrow, function_assign; abs(I__R(R)) end proc

(4)

"plot(F(R),R=0..100)->"

 

NULL

Download How_to_plot_IR.mw

plot(F(R), R = 0 .. 100)

1 2 3 Page 1 of 3