How to write the Skewness program?

1-) Click on the button PRGM. Scroll to the right and select NEW.  CLICK ENTER

2-) Using the ALPHA button write the name "SKEW".  CLICK ENTER

3-) Click the key PRGM, and scroll to the right to I/O. Scroll down and select "Prompt". CLICK ENTER

4-) Select 2nd LIST. Scroll to the right to OPS. Scroll down till letter B. You should see a symbol like L. CLICK ENTER. Click ALPHA A. CLICK ENTER . (As a result you should see Prompt LA) 

5-) Click on 2nd CATALOG (number 0) and scroll down and find function "dim". CLICK ENTER

6-) Select 2nd LIST. Scroll to the right to OPS. Scroll down till letter B. You should see a symbol like L. CLICK ENTER. Click ALPHA A. CLICK ENTER . Close parentheses. Then, click [STO->], and select ALPHA N. (As a result you should see dim ( LA)->N)

7-) From CATALOG select the function mean(. CLICK ENTER

8-) Select 2nd LIST. Scroll to the right to OPS. Scroll down till letter B. You should see a symbol like L. CLICK ENTER. Click ALPHA A. CLICK ENTER . Close parentheses. Then, click [STO->], and select ALPHA M. (As a result you should see mean( LA)->M)

9-) From CATALOG select the function stdDev(. CLICK ENTER

10-) Select 2nd LIST. Scroll to the right to OPS. Scroll down till letter B. You should see a symbol like L. CLICK ENTER. Click ALPHA A. CLICK ENTER . Close parentheses. Then, click [STO->], and select ALPHA S. (As a result you should see StdDev( LA)->S)

11-) Click 0 STO-> ALPHA T . CLICK ENTER . ( As a result you should see 0->T)

12-) Click on the button PRGM and select the instruction FOR(. CLICK ENTER

13-) Type Alpha I. Type Comma(,). Type number 1. Type Comma(,). Type Alpha N. Close parenthesis. ENTER. (You should see this: For(I,1,N))

14-) Now, type this in the same order you see it!:

( N / ( ( N – 1 ) * ( N – 2 ) ) * ( LA(I) – M ) ^ 3 / S ^ 3 + T -> T

(The instruction ^ is the button located under the button CLEAR,

 and the arrow -> you get using the button STO->)

15-) Now, click PRGM and select the number 7, END. CLICK ENTER

Now, click PRGM and scroll to the right until I/O. Scroll down until “Disp”.

CLICK ENTER

16-) Now, using the ALPHA key, type : "SKEW", T

You should see:  Disp "SKEW", T

That's it!....test your program. 

To test the program, introduce the values: 1,2,2,3,3,3,4,4,4,4,5 into the  list L1.

Run SKEW program. Click Prgm. Select SKEW. CLICK ENTER  

Select the List 1 using the instruction 2nd List. CLICK ENTER.

CLICK ENTER again.

You should see the result :SKEW  -0.422465427 

Done

  The program looks like this:

PROGRAM SKEW
:Prompt
LA
:dim ( LA)->N
:
mean(
LA)->M
:
stdDev(
LA)->S
:
0->T
:For(I,1,N)
:
( N / ( ( N – 1 ) * ( N – 2 )))*(
LA(I) – M ) ^ 3 / S ^ 3 + T -> T
:End
:Disp "SKEW",T

 

BACK