**HP Prime and TI-84 Plus C Silver Edition: Pie Charts**

Both programs take an argument a list up to 15 segments long.

PIECHART, HP Prime |

**HP Prime: PIECHART**

Notes:

* The % character is either retrieved by pressing [Shift],
[Vars] (Chars), or typed if you are using the emulator.

* The program sets
the calculator to Radian and Standard modes.

EXPORT PIECHART(l1)

BEGIN

//
Pie Chart EWS

//
2015-05-11

//
initialization

LOCAL
l2,l3,colors,s,k,θ,c;

//
Radian mode

HAngle:=0;

//
Standard Mode

HFormat:=0;

//
set colors (15)

colors:={#FFh,#FF0000h,#0h,

#FF00FFh,#FF00h,#FFA500h,

#964B00h,#80h,#87CEEBh,

#FFFF00h,#FFFFFFh,#C0C0C0h,

#808080h,#404040h,#101010h};

c:=1;

//
error conditions

IF
SIZE(l1)>15 THEN

MSGBOX("The
list is too long.");

KILL;

END;

//
calculations

l2:=l1;

FOR
k FROM 2 TO SIZE(l1) DO

l2[k]:=l2[k]+l2[k-1];

END;

l2:=2*π*l2/ΣLIST(l1);

l2:=CONCAT({0},l2);

s:=SIZE(l2);

//
window setup

Xmin:=−10;
Xmax:=10;

Ymin:=−10;
Ymax:=10;

RECT();

//
draw pie graph

FOR
k FROM 1 TO s-1 DO

FOR
θ FROM l2[k] TO l2[k+1]

STEP
π/200 DO

LINE(2.5,0,5*COS(θ)+2.5,5*SIN(θ),

colors[c]);

END;

c:=c+1;

END;

//
display legends and percentages

l3:=l1/ΣLIST(l1)*100;

FOR
k FROM 1 TO SIZE(l1) DO

TEXTOUT(STRING(l1[k]),-10,10-(k-1),

2,colors[k]);

TEXTOUT(STRING(l3[k],2,1)+"%",

-6,10-(k-1),2,colors[k]);

END;

WAIT(0);

END;

**TI-84 Plus C Silver Edition**

Notes:

* Comments in this
program will be marked with double slashes (//). Do not type them in. They are there only to explain parts of the
program. I intend to leave comments in
every program publish from here on out if explanation is warranted.

* To type the percentage sign: [ 2

^{ND}], [ANGLE], 1 (°), [ ÷ ], [ . ]. There is no native percent sign (%) on the TI-84, this is the best I can do.
* Float and Radian
modes are set.

// Initialization, turn off axes

FnOff

Float

Radian

AxesOff

// ask for list of data

Input L₁

If dim(L₁)>15:Then

Disp "L₁>15":Stop

End

// calculation

2π*cumSum(L₁)/sum(L₁)→L₂

augment({0},L₂)→L₂

dim(L₂)→S

// set color variables

10→C

10→D

L₁/sum(L₁)*100→L₃

// prepare draw screen

ZStandard

ClrDraw

// draw the pie chart

For(I,1,S-1)

For(θ,L₂(I),L₂(I+1),π/100)

Line(2.5,0,5cos(θ)+2.5,5sin(θ),1,C)

End

C+1→C

End

// draw the legend, draw commands have to remain together

For(K,1,dim(L₃))

TextColor(D)

Text(12K,0,round(L₃(K),1))

Text(12K,30,"°/.")

D+1→D

End

Pause

// turn axes on, Disp by itself just shows the home screen

AxesOn

FnOn

Disp

Hope you find this program useful!

In TI-84 Plus CE news.
I heard back from the company I ordered my CE from and I am to expect
delivery around May 25. I plan to give a
review of it at the end of May if not early June.

Take care,

Eddie

This blog is property of Edward Shore. 2015.

## No comments:

## Post a Comment