HP PRIME - Bode and Black plots - first attempt



#2

Hello,

Here is a small attempt for a basic program which help to plot Bode and Black plots... Assumes that applets "Bode" and "Black" were created derived from function app for Bode and parametric app for Black. These basic code work... Can you comment and help me improve?


EXPORT SLDI()
BEGIN
Bode.F1:="1/(1+'X'+'X'^2)";
input(Bode.F1,"Entrez la fonction de transfert","FT(X)=","Attention utilisation de 'X' ");
Bode.F2:=eval("20*LOG(abs(Bode.F1(i*ALOG('X'))))");
Bode.F3:=eval("ARG(Bode.F1(i*ALOG('X')))");
Black.X1:=eval("ARG(Bode.F1(i*'T'))");
Black.Y1:=eval("20*LOG(abs(Bode.F1(i*'T')))");
END;

I have two questions :

1) How can I do in program something like these :

Bode.F2:=Bode.F1('i*X');

To obtain the expression developed in Bode.F2(X). In fact get the same thing as the soft button "Eval" in Symb view.

2) How can I get the display of the "plot" view of the applet "Bode" or "Black" from inside the program with a choose box for example...

3) Can we create a page containing both "input" area and "choose" area. In a single page: input the transfer function and check a choose box for black or Bode plot and then launch the plot view of bode or Black...

My apologise for my bad English...


Possibly Related Threads…
Thread Author Replies Views Last Post
  [HP Prime] Plots containing complex numbers bug? Chris Pem10 7 3,673 12-05-2013, 07:40 AM
Last Post: cyrille de Brébisson
  [PRIME] RPN: another attempt at returning more than one value to the RPN stack Marcus von Cube, Germany 5 2,508 11-05-2013, 02:44 AM
Last Post: Marcus von Cube, Germany
  HP PRIME -- How to plot a phase Bode plot ? dg1969 0 960 11-02-2013, 03:22 PM
Last Post: dg1969
  Creeping black pattern on HP-11C screen Larry Gagnon 6 2,132 04-12-2013, 10:09 AM
Last Post: Peter Murphy (Livermore)
  Colorful Plots (OT) Eddie W. Shore 4 1,681 04-08-2013, 11:25 PM
Last Post: Namir
  HP 48GX with Black LCD - S/N ID Jeff Kearns 4 1,861 12-15-2012, 03:55 PM
Last Post: aurelio
  RPN HP39gII : An attempt to summarize our discusion Gilles Carpentier 18 4,775 07-27-2012, 06:44 PM
Last Post: Gilles Carpentier
  HP 67 Black Box Fouad M. Kaadou 9 2,547 09-20-2011, 11:29 AM
Last Post: Jim Horn
  An Attempt to Challenge the Bisection method for root findin Namir 6 2,154 08-14-2011, 05:57 PM
Last Post: Paul Dale
  black HP17bII Jose Gonzalez Divasson 5 1,935 06-17-2011, 05:20 PM
Last Post: Don Shepherd

Forum Jump: