Happy Easter!

Happy 4/20 Day!

Happy Sunday!

These two programs for the HP Prime illustrate the use of DRAWMENU and MOUSE.

EC

Using DRAWMENU to draw a customized menu.

Functions featured:

head: 1st element of a list

tail: all elements of a list except the 1st

l2norm: L-2 norm of a vector

ker: kernel of a matrix

SPECRAD: spectral radius of a matrix

even: is the number even?

Input: EC(argument)

The argument needs to be appropriate type of what you want to do.

For head and tail: the argument needs to be a list.

For l2norm: the argument needs to be a vector.

For ker and SPECRAD: the argument needs to be matrix

For even: we need an integer

Examples:

EC({7,8,9}), choosing head will return {7} while tail returns {8,9}.

EC([7,2,6,9]) while choosing l2norm returns √170.

EC([[1,4],[-3,-12]]) while choosing ker returns [[4, -1]].

EC([[1, 4],[-3, -12]]) while choosing SPECRAD returns 13.0384048104 (approximately)

For even, a result of 1 indicates that the number is even and 0 if the number is odd.

Program:

EXPORT EC(x)

BEGIN

// CAS Custom Menu

// EWS 2014-04-20

LOCAL m,m1,mx,my;

WHILE MOUSE(1)≥0 DO END;

RECT;

TEXTOUT_P("Choose the function.",1,1,4);

TEXTOUT_P("head: 1st element of a list",1,18,4);

TEXTOUT_P("tail: all elements of a list except the 1st",1,35,4);

TEXTOUT_P("l2norm: L-2 norm of a vector",1,52,4);

TEXTOUT_P("ker: kernel of a matrix",1,69,4);

TEXTOUT_P("SPECRAD: spectral radius of a matrix",1,86,4);

TEXTOUT_P("even: is the number even?",1,103,4);

DRAWMENU("head","tail","l2norm","ker","SPECRAD","even");

REPEAT

m:=MOUSE;

m1:=m(1);

UNTIL SIZE(m1)>0;

mx:=m1(1);

my:=m1(2);

IF my≥220 AND my≤239 THEN

IF mx≥0 AND mx≤51 THEN

RETURN SUB(x,1,1);

END;

IF mx≥53 AND mx≤104 THEN

RETURN SUB(x,2,SIZE(x));

END;

IF mx≥106 AND mx≤157 THEN

RETURN exact(ABS(x));

END;

IF mx≥159 AND mx≤210 THEN

RETURN ker(x);

END;

IF mx≥212 AND mx≤263 THEN

RETURN CAS.SPECNORM(x);

END;

IF mx≥265 AND mx≤319 THEN

RETURN even(x);

END;

END;

END;

BLOTCH

Blotch Drawing Program

S = size of the square blotch

D = size of each box in the blotch. Each box is a randomized color.

To draw a square blotch, just touch the screen outside the menu.

Input: BLOTCH( )

Program:

EXPORT BLOTCH( )

BEGIN

// EWS 04-20-2014

// Initialize

LOCAL m,m1,mx,my,j,k,r;

WHILE MOUSE(1)≥0 DO END;

// Clear Canvas

RECT;

LOCAL s:=50, d:=4;

// Menu - to be redrawn

DRAWMENU("Clear","S+5","S-5","D+2","D-2","Exit");

// Start main loop

REPEAT

// Get mouse data

REPEAT

m:=MOUSE; m1:=m(1);

UNTIL SIZE(m1)>0;

mx:=m1(1); my:=m1(2);

DRAWMENU("Clear","S+5","S-5","D+2","D-2","Exit");

// Clear Screen

IF (my≥220 AND my≤319) AND (mx≥0 AND mx≤51) THEN

RECT;

END;

// Change Size

IF (my≥220 AND my≤319) AND (mx≥53 AND mx≤104) THEN

IF s<80 THEN s:=s+5; END;

END;

IF (my≥220 AND my≤319) AND (mx≥106 AND mx≤157) THEN

IF s>5 THEN s:=s-5; END;

END;

// Change Depth

IF (my≥220 AND my≤319) AND (mx≥159 AND mx≤210) THEN

IF d<8 THEN d:=d+2; END;

END;

IF (my≥220 AND my≤319) AND (mx≥212 AND mx≤263) THEN

IF d>2 THEN d:=d-2; END;

END;

// Exit Key

IF (my≥220 AND my≤319) AND (mx≥256 AND mx≤319) THEN

BREAK;

END;

// Draw Blotch

FOR j FROM mx-s/2 TO mx+s/2 STEP d DO

FOR k FROM my-s/2 TO my+s/2 STEP d DO

r:=RANDINT(1677215);

RECT_P(j,k,j+d-1,k+d-1,r);

END; END;

// Close main loop

UNTIL (my≥220 AND my≤319) AND (mx≥256 AND mx≤319);

RECT_P(0,220,319,239);

TEXTOUT_P("DONE!",146,220,4,#FF0000h);

WAIT(-1);

END;

As always, thank you for your comments, compliments, and questions. Happy Sunday everyone!

I will be heading to Seattle later this week - hope to blog from the Original Starbucks when I am there.

This blog is property of Edward Shore. 2014

## No comments:

## Post a Comment