Filter
Top Products
524 Programming in HP PPL
These views will be activated by pressing M and P,
but the function Plot() in our app program will actually
launch the latter view after doing some configuration.
Before entering the
following program, press
S I to open the
Info editor and enter the
text shown in the figure.
This note will be
attached to the app and
will be displayed when
the user selects the Start option from the View menu (or
presses
S I).
The program discussed earlier in this chapter to get the
number of sides for a dice is expanded here, so that the
possible sums of two such die are stored in dataset D1.
Enter the following sub-routines into the program for the
DiceSimulation app.
The DiceSimulation
program
DICESIMVARS();
ROLLDIE();
EXPORT SIDES,ROLLS;
EXPORT DiceSimulation()
BEGIN
END;
VIEW "Start",START()
BEGIN
D1:={};
D2:={};
SetSample(H1,D1);
SetFreq(H1,D2);
H1Type:=1;
STARTVIEW(6,1);
END;
VIEW "Roll Dice",ROLLMANY()
BEGIN
LOCAL k,roll;
D1:= MAKELIST(X+1,X,1,2*SIDES-1,1);
D2:= MAKELIST(0,X,1,2*SIDES-1,1);