kill(all)$

programmming : how to enter : data ,info ,etc
peter.vlasschaert@gmail.com,19/06/2019

how to use : Menu
==============

=>  menu : Algebra : Enter matrix
1e) rows : 3
2e) columns :3
3e) general , diagonal ,symmetric ,...
4e)  v

v: matrix(
 [a,0,0], 
 [0,b,0], 
 [0,0,c]
);

interactive : enter 'data,....'
====================
use : block statement : enter and return

rem : return need block : return inside block statement.

rem : show output
==============
how repeat problem with other values . ' enter the values from keyboard '

block( do( ii:read( " repeat until :type :'yes' from the keyboard ,? "),
          if (ii = yes) then
                 (  x:read(" Enter values for x = "),
                 print ( " value = ",x," f(x) =  ",sin(x),float(sin(x))))
        else 
                 return()
                 )
      )$

rem:

kill(x);

l:[1,2,3,4]$

table_form(l)$

rem : example("....")
=> do,.....

example("do");