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 2,929 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,003 11-05-2013, 02:44 AM
Last Post: Marcus von Cube, Germany
  HP PRIME -- How to plot a phase Bode plot ? dg1969 0 789 11-02-2013, 03:22 PM
Last Post: dg1969
  Creeping black pattern on HP-11C screen Larry Gagnon 6 1,706 04-12-2013, 10:09 AM
Last Post: Peter Murphy (Livermore)
  Colorful Plots (OT) Eddie W. Shore 4 1,403 04-08-2013, 11:25 PM
Last Post: Namir
  HP 48GX with Black LCD - S/N ID Jeff Kearns 4 1,477 12-15-2012, 03:55 PM
Last Post: aurelio
  RPN HP39gII : An attempt to summarize our discusion Gilles Carpentier 18 3,898 07-27-2012, 06:44 PM
Last Post: Gilles Carpentier
  HP 67 Black Box Fouad M. Kaadou 9 1,984 09-20-2011, 11:29 AM
Last Post: Jim Horn
  An Attempt to Challenge the Bisection method for root findin Namir 6 1,742 08-14-2011, 05:57 PM
Last Post: Paul Dale
  black HP17bII Jose Gonzalez Divasson 5 1,603 06-17-2011, 05:20 PM
Last Post: Don Shepherd

Forum Jump: