Skip to main content
deleted 215 characters in body
Source Link
yode
  • 27.2k
  • 4
  • 66
  • 174

I have a question here regarding how to derive multiple output from OutputResponse or in general. Here is a screenshot of the codesenter image description here

As seen, I have only one quantity plotted. Tried google but didn't manage to find a solution.

Thanks in advance!

The codes are here:

\[Omega]ω = 2. Pi*50; Mag = 1; \[Theta]θ = 0.;

T\[Alpha]\[Beta]2dqInv22Tαβ2dqInv22 = {{Cos[\[Omega]Cos[ω t], -Sin[\[Omega]Sin[ω t]}, \
{Sin[\[Omega]Sin[ω t], Cos[\[Omega]Cos[ω t]}};
T\[Alpha]\[Beta]2dq22Tαβ2dq22 = {{Cos[\[Omega]Cos[ω t], 
    Sin[\[Omega]Sin[ω t]}, {-Sin[\[Omega]Sin[ω t], Cos[\[Omega]Cos[ω t]}};

Input\[Alpha]\[Beta]22Inputαβ22 = {Mag Cos[\[Omega]Cos[ω t + \[Theta]]θ], 
   Mag Cos[\[Omega]Cos[ω t + \[Theta]]θ]};
(*Input\[Alpha]\[Beta]22=*Inputαβ22={Mag ,Mag};*)

Out\[Alpha]\[Beta]2dq22Outαβ2dq22 = 
  FullSimplify[T\[Alpha]\[Beta]2dq22FullSimplify[Tαβ2dq22.Input\[Alpha]\[Beta]22]Inputαβ22] // 
   TrigReduce;

g[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Out\[Alpha]\[Beta]2dq22[[1]]Outαβ2dq22[[1]], t];
f[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Out\[Alpha]\[Beta]2dq22[[2]]Outαβ2dq22[[2]], t];

Plot[{g[t], f[t]}, {t, 0, 0.2}, PlotRange -> Automatic]

I have a question here regarding how to derive multiple output from OutputResponse or in general. Here is a screenshot of the codesenter image description here

As seen, I have only one quantity plotted. Tried google but didn't manage to find a solution.

Thanks in advance!

The codes are here:

\[Omega] = 2. Pi*50; Mag = 1; \[Theta] = 0.;

T\[Alpha]\[Beta]2dqInv22 = {{Cos[\[Omega] t], -Sin[\[Omega] t]}, \
{Sin[\[Omega] t], Cos[\[Omega] t]}};
T\[Alpha]\[Beta]2dq22 = {{Cos[\[Omega] t], 
    Sin[\[Omega] t]}, {-Sin[\[Omega] t], Cos[\[Omega] t]}};

Input\[Alpha]\[Beta]22 = {Mag Cos[\[Omega] t + \[Theta]], 
   Mag Cos[\[Omega] t + \[Theta]]};
(*Input\[Alpha]\[Beta]22={Mag ,Mag};*)

Out\[Alpha]\[Beta]2dq22 = 
  FullSimplify[T\[Alpha]\[Beta]2dq22.Input\[Alpha]\[Beta]22] // 
   TrigReduce;

g[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Out\[Alpha]\[Beta]2dq22[[1]], t];
f[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Out\[Alpha]\[Beta]2dq22[[2]], t];

Plot[{g[t], f[t]}, {t, 0, 0.2}, PlotRange -> Automatic]

I have a question here regarding how to derive multiple output from OutputResponse or in general. Here is a screenshot of the codesenter image description here

As seen, I have only one quantity plotted. Tried google but didn't manage to find a solution.

Thanks in advance!

The codes are here:

ω = 2. Pi*50; Mag = 1; θ = 0.;

Tαβ2dqInv22 = {{Cos[ω t], -Sin[ω t]}, 
{Sin[ω t], Cos[ω t]}};
Tαβ2dq22 = {{Cos[ω t], 
    Sin[ω t]}, {-Sin[ω t], Cos[ω t]}};

Inputαβ22 = {Mag Cos[ω t + θ], 
   Mag Cos[ω t + θ]};
(*Inputαβ22={Mag ,Mag};*)

Outαβ2dq22 = 
  FullSimplify[Tαβ2dq22.Inputαβ22] // 
   TrigReduce;

g[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Outαβ2dq22[[1]], t];
f[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Outαβ2dq22[[2]], t];

Plot[{g[t], f[t]}, {t, 0, 0.2}, PlotRange -> Automatic]
edited tags
Link
Source Link
Peng
  • 125
  • 6

Multiple Output with OutputResponse in Mathematica

I have a question here regarding how to derive multiple output from OutputResponse or in general. Here is a screenshot of the codesenter image description here

As seen, I have only one quantity plotted. Tried google but didn't manage to find a solution.

Thanks in advance!

The codes are here:

\[Omega] = 2. Pi*50; Mag = 1; \[Theta] = 0.;

T\[Alpha]\[Beta]2dqInv22 = {{Cos[\[Omega] t], -Sin[\[Omega] t]}, \
{Sin[\[Omega] t], Cos[\[Omega] t]}};
T\[Alpha]\[Beta]2dq22 = {{Cos[\[Omega] t], 
    Sin[\[Omega] t]}, {-Sin[\[Omega] t], Cos[\[Omega] t]}};

Input\[Alpha]\[Beta]22 = {Mag Cos[\[Omega] t + \[Theta]], 
   Mag Cos[\[Omega] t + \[Theta]]};
(*Input\[Alpha]\[Beta]22={Mag ,Mag};*)

Out\[Alpha]\[Beta]2dq22 = 
  FullSimplify[T\[Alpha]\[Beta]2dq22.Input\[Alpha]\[Beta]22] // 
   TrigReduce;

g[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Out\[Alpha]\[Beta]2dq22[[1]], t];
f[t_] = OutputResponse[
   TransferFunctionModel[(0.67/(0.0025 s + 1) + 1)/(0.0025 s), s], 
   Out\[Alpha]\[Beta]2dq22[[2]], t];

Plot[{g[t], f[t]}, {t, 0, 0.2}, PlotRange -> Automatic]