Group Abstract

Message Boards

WOLFRAM COMMUNITY

4.1K Views

5 Replies

6 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Calculus Wolfram Language

Transforming the equation into the relationship between t and dt

James James

Posted 2 years ago

POSTED BY: James James

5 Replies

Sort By:

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 2 years ago

Why solving for dt if you already know its value? You can try this: FindRoot[Simplify[X[[1]] == 0 /. dt -> 0.00006], {t, .05}] but you are working with extremely small numbers and the results are not very reliable.

POSTED BY: Gianluca Gorni

James James

Posted 2 years ago

Okay, haha, what if I write it like this? {r = 22, l = 2 10^-1, c = 1 10^-4, vi = 24}; \[CapitalDelta]vi = 0; A = {{0, -1/l}, {1/c, -1/(r c)}}; G = Inverse[A]; B = {1/l, 0}; S1 = Inverse[DiagonalMatrix[{1, 1}] - dtA + 1/2dtdtA . A]; S2 = Inverse[DiagonalMatrix[{1, 1}] - dtA]; STAR1 = S1 . G . (Bvi + G . B\[CapitalDelta]vi/dt) - G . (B(vi + \[CapitalDelta]vi) + G . B\[CapitalDelta]vi/dt); STAR2 = S2 . G . (Bvi + G . B\[CapitalDelta]vi/dt) - G . (B(vi + \[CapitalDelta]vi) + G . B*\[CapitalDelta]vi/dt); X0 = {0, 0}; X = (MatrixPower[S1, t/dt] . Log[S1]/dt - MatrixPower[S2, t/dt] . Log[S2]/dt) . X0 - MatrixPower[S1, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S1] . STAR1 . Log[S1]/dt + MatrixPower[S2, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S2] . STAR2 . Log[S2]/dt; Solve[X[[1]] == 0 && dt == 0.00006, {t, dt}]

Okay, haha, what if I write it like this?

{r = 22, l = 2 10^-1, c = 1 10^-4, vi = 24};
\[CapitalDelta]vi = 0;
A = {{0, -1/l}, {1/c, -1/(r c)}};
G = Inverse[A];
B = {1/l, 0};
S1 = Inverse[DiagonalMatrix[{1, 1}] - dt*A + 1/2*dt*dt*A . A];
S2 = Inverse[DiagonalMatrix[{1, 1}] - dt*A];
STAR1 = S1 . G . (B*vi + G . B*\[CapitalDelta]vi/dt) - 
   G . (B*(vi + \[CapitalDelta]vi) + G . B*\[CapitalDelta]vi/dt);
STAR2 = S2 . G . (B*vi + G . B*\[CapitalDelta]vi/dt) - 
   G . (B*(vi + \[CapitalDelta]vi) + G . B*\[CapitalDelta]vi/dt);
X0 = {0, 0};
X = (MatrixPower[S1, t/dt] . Log[S1]/dt - 
      MatrixPower[S2, t/dt] . Log[S2]/dt) . X0 - 
   MatrixPower[S1, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S1] . 
     STAR1 . Log[S1]/dt + 
   MatrixPower[S2, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S2] . 
     STAR2 . Log[S2]/dt;
Solve[X[[1]] == 0 && dt == 0.00006, {t, dt}]

POSTED BY: James James

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 2 years ago

Right away I see a problem with Solve[X == 0 && dt == 0.00006, {dt,t}] Since `X` is two-dimensional, it is a system of three equations in two unknowns, You should not expect it to have solutions.

POSTED BY: Gianluca Gorni

James James

Posted 2 years ago

Thank you for your answer! This time, I brought in the specific numerical value and wanted to find the corresponding value of t when X==0&&dt=0.00006. I used the following writing method (Solve instruction), but it seems that I cannot solve it. {r = 22, l = 2 10^-1, c = 1 10^-4, vi = 24}; \[CapitalDelta]vi = 0; A = {{0, -1/l}, {1/c, -1/(r c)}}; G = Inverse[A]; B = {1/l, 0}; S1 = Inverse[DiagonalMatrix[{1, 1}] - dtA + 1/2dtdtA . A]; S2 = Inverse[DiagonalMatrix[{1, 1}] - dtA]; STAR1 = S1 . G . (Bvi + G . B\[CapitalDelta]vi/dt) - G . (B(vi + \[CapitalDelta]vi) + G . B\[CapitalDelta]vi/dt); STAR2 = S2 . G . (Bvi + G . B\[CapitalDelta]vi/dt) - G . (B(vi + \[CapitalDelta]vi) + G . B*\[CapitalDelta]vi/dt); X0 = {0, 0}; X = (MatrixPower[S1, t/dt] . Log[S1]/dt - MatrixPower[S2, t/dt] . Log[S2]/dt) . X0 - MatrixPower[S1, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S1] . STAR1 . Log[S1]/dt + MatrixPower[S2, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S2] . STAR2 . Log[S2]/dt; Solve[X == 0 && dt == 0.00006, {dt,t}]

Thank you for your answer! This time, I brought in the specific numerical value and wanted to find the corresponding value of t when X==0&&dt=0.00006. I used the following writing method (Solve instruction), but it seems that I cannot solve it.

{r = 22, l = 2 10^-1, c = 1 10^-4, vi = 24};
\[CapitalDelta]vi = 0;
A = {{0, -1/l}, {1/c, -1/(r c)}};
G = Inverse[A];
B = {1/l, 0};
S1 = Inverse[DiagonalMatrix[{1, 1}] - dt*A + 1/2*dt*dt*A . A];
S2 = Inverse[DiagonalMatrix[{1, 1}] - dt*A];
STAR1 = S1 . G . (B*vi + G . B*\[CapitalDelta]vi/dt) - 
   G . (B*(vi + \[CapitalDelta]vi) + G . B*\[CapitalDelta]vi/dt);
STAR2 = S2 . G . (B*vi + G . B*\[CapitalDelta]vi/dt) - 
   G . (B*(vi + \[CapitalDelta]vi) + G . B*\[CapitalDelta]vi/dt);
X0 = {0, 0};
X = (MatrixPower[S1, t/dt] . Log[S1]/dt - 
      MatrixPower[S2, t/dt] . Log[S2]/dt) . X0 - 
   MatrixPower[S1, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S1] . 
     STAR1 . Log[S1]/dt + 
   MatrixPower[S2, t/dt] . Inverse[DiagonalMatrix[{1, 1}] - S2] . 
     STAR2 . Log[S2]/dt;
Solve[X == 0 && dt == 0.00006, {dt,t}]

POSTED BY: James James

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 2 years ago

The last case can be solved symbolically: S1 = 1 - dtA + 1/2dtdtAA; S2 = 1 - dtA; STAR1 = S1B; STAR2 = S2B; Error[t_] := (S1^(t/dt) - S2^(t/dt))X0 + (1 - S1^(t/dt))/(1 - S1) STAR1 - (1 - S2^(t/dt))/(1 - S2)*STAR2 X = Error[t]; Solve[D[X, t] == 0, t] // FullSimplify

The last case can be solved symbolically:

S1 = 1 - dt*A + 1/2*dt*dt*A*A;
S2 = 1 - dt*A;
STAR1 = S1*B;
STAR2 = S2*B;
Error[t_] := (S1^(t/dt) - S2^(t/dt))*X0 + (1 - S1^(t/dt))/(1 - S1)*
   STAR1 - (1 - S2^(t/dt))/(1 - S2)*STAR2
X = Error[t];
Solve[D[X, t] == 0, t] // FullSimplify

POSTED BY: Gianluca Gorni

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback