Tokoro

95 Reputation

5 Badges

0 years, 265 days

MaplePrimes Activity


These are questions asked by Tokoro

: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)

Electric circuit problem.
How to solve this four resistors circuit by Syrup? ... EDIT; This is not my electric circuit problem. My exercise how to use Maple. Below is the problem.

This electric circuit problem is very hard to solve. Maple or other math program must need to solve.

How to make one ohm by using one-ohm resistors while each resistor must flow different current.

Using 1 A current source, node 1 shows 1 V.

The electric circuit below shows 1 ohm, however, the current of each resistor is same.

So, this is not the answer.

NULL

restart; with(Syrup); ckt := [-Iin(1), `&//`(R1(1), R2(1)), `&//`(R3(1), R4(1))]; Draw(ckt)

 

NULL

Download Make_one_ohm_by_one_ohm.mw

NULL

restart;

with(plots):with(plottools):

Solve diagonal resistance of nodes (0,0,0)-(3,4,5), (Edge length = ohm).(156/47 ohm)

   

plots[display]([nodes, node2, plotlinesx], scaling = constrained, style = wireframe, axes = boxed, orientation = [-50, 70, 0])

 

Solve minimum diagonal surface distance of nodes (0,0,0)-(3,4,5).(sqrt(74))
NULL

NULL

Download Resistance-345.mw

Solve diagonal resistance of nodes (0,0,0)-(3,4,5),

Edge length = ohm, therefore, each edge has 3, 4 and 5 ohm, respectivery. (156/47 ohm)

Solve minimum diagonal surface distance of nodes (0,0,0)-(3,4,5). (sqrt(74))

Electric circuit study.

Tokoro.

1 2 3 Page 1 of 3