Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: OutputResponse issue

  • To: mathgroup at smc.vnet.net
  • Subject: [mg128932] Re: OutputResponse issue
  • From: "Eduardo M. A. M. Mendes" <emammendes at gmail.com>
  • Date: Tue, 4 Dec 2012 04:15:10 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <20121202095840.E142D6877@smc.vnet.net> <20121203090307.D04A96857@smc.vnet.net>

Hello there


Many thanks.  Unfortunately if you increase the maximum time of the 
simulation from 10 to 30. gibberish will appear by the end of the plot.  



Manipulate[outResponse[k_,t_]=OutputResponse[TransferFunctionModel[k/(k+2 s+3 s^2+s^3),s],UnitStep[t],t]//FullSimplify;
=
Plot[Chop[outResponse[k,t]],{t,0,30},Frame->True,Axes->False,PlotRange->{0,1.5},FrameLabel->(Style[#,Bold,14]&/@{"t","Output  Response\n"})],{{k,0.53},.05,2.5,.01,Appearance->"Labeled"}]

Any ideas of what is going on.

Cheers

Ed




On Dec 3, 2012, at 7:03 AM, Bob Hanlon <hanlonr357 at gmail.com> wrote:

> outResponse[k_: 0.53, t_] =
>  OutputResponse[
>    TransferFunctionModel[
>     k/(k + 2 s + 3 s^2 + s^3), s],
>    UnitStep[t], t] // FullSimplify;
>
> Plot[
> Evaluate[
>  Table[
>   Tooltip[
>    outResponse[k, t],
>    "k = " <> ToString[k]],
>   {k, 0.53 {1, 2, 3}}]],
> {t, 0, 10},
> Frame -> True, Axes -> False,
> FrameLabel -> (Style[#, Bold, 14] & /@
>    {"t",
>     "Output  Response\n"})]
>
> Manipulate[outResponse[k_, t_] =
>  OutputResponse[
>    TransferFunctionModel[
>     k/(k + 2 s + 3 s^2 + s^3), s],
>    UnitStep[t], t] // FullSimplify;
> Plot[
>  Chop[outResponse[k, t]],
>  {t, 0, 10},
>  Frame -> True, Axes -> False,
>  PlotRange -> {0, 1.5},
>  FrameLabel -> (Style[#, Bold, 14] & /@
>     {"t",
>      "Output  Response\n"})],
> {{k, 0.53}, .05, 2.5, .01,
>  Appearance -> "Labeled"}]
>
>
> Bob Hanlon
>
>
> On Sun, Dec 2, 2012 at 4:58 AM, Eduardo M. A. M. Mendes
> <emammendes at gmail.com> wrote:
>>
>> Hello
>>
>> Can anyone help me with the following issue?
>>
>> Plot[Chop at OutputResponse[TransferFunctionModel[0.53/(0.53+2 s+3 s s+s =
s s),s],UnitStep[t],t],{t,0,10}]
>>
>> which returns
>>
>> OutputResponse::nsymb :  "0.0002042857142857143` must be a symbol. \
>> =91=99=98ButtonBox["",
>> Appearance->{Automatic, None},
>> BaseStyle->"Link",
>> ButtonData:>"paclet:ref/OutputResponse",
>> ButtonNote->"OutputResponse::nsymb"]"
>>
>> and several other msgs.
>>
>> I have tried a different approach
>>
>> restfmf[t_,k_]:=OutputResponse[TransferFunctionModel[(k 1.06)/(k =
1.06+2 s+3 s s+s s s),s],UnitStep[t],t];
>>
>> Plot[Chop@Evaluate@restfmf[t, 0.5], {t, 0, 10}]
>>
>> but got the same error messages
>>
>> What am I missing here?
>>
>> Many thanks
>>
>> Ed
>>
>>
>>
>




  • Prev by Date: Re: v9: variable name colour?
  • Next by Date: Re: V9 !!!
  • Previous by thread: Re: OutputResponse issue
  • Next by thread: Re: OutputResponse issue