Modified | DDT |>| TUE.JUN,990601,9:20-4 | CoSy/Home ; CoSy/Current         ?Wha? © Coherent Systems Inc .

CoSy/NoteComputer/Computations
  
 A sequence of statements demonstrating the essential actions of APL .
  |       1 + 2           |>| 3         |
  |       1 + 2 3         |>| 3 4       |
  |       4 3 2 + 2 0 "2  |>| 6 3 0     | Because APL allows strings of
  |    +/ 4 3 2 + 2 0 "2  |>| 9         | numbers , it needs a special symbol
  |       4 3 2 = 2 3 "2  |>| 0 1 0     | for negative as opposed to  subtract
  |       'yea' = 'yes'   |>| 1 1 0
  | and / 'yea' = 'yes'   |>| 0         | Thus word processing !
              |#|
 |#| Each of these lines may be re-executed by tapping  ctrlF5 .
 Execution stops working its way down the page when it hits a  ' |#| ' .

       LN '-+'    | Line below created by tapping  F6  ( an older mechanism )
  -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

 Some calculations done in a bar recently having to do with weights and
 dollars .  ' r ' holds the result of the last calculation .

  15 x 4 |>| 60   |  r % 16 32 64   |>| 3.75 1.88 0.94
  |  ( 1 TAKE r ) % 28  |>| 0.13       |                               |#|

       LN '+-'    | Line below created by tapping  F6  ( an older mechanism )

  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-

 Some computations of stock price recently
   |12:4| T | .0001 FMT  49 + 7 15 % 8 16 |>| 49.875 49.9375

 Calculating how many degrees I needed to tip a 240 by 320 pixel image for
   CoSy/Art  
       |( |  1 2 3 circle N  | are  sin cos tan  of N respectively . The
         respective negatives are the inverse ( arc- ) functions . )|

  "3 circle 240 % 320 |>| 0.64 | r x  180 % pi 1 |>| 36.87

  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -

 )| CALCULATING Screen sizes from their advertized diagonals .

  600 800 * 2   |>| 360000 640000      | Squares of standard screen pixels
  D PROPOFTOT r |>| 0.36 0.64          | Amazingly simple squares !  | |#|
       |( " Duplicate ProportionsOfTotal of results of last computation " )|
  11.4 12.1 13.3 14.1 * 2              | Squares of advertized diagonals .
129.96 146.41 176.89 198.81
  ( r .x T ) * % 2                    | Table of square roots of
  6.84  9.12                           | proportions x diagonals .
  7.26  9.68
  7.98 10.64                                                              |(

   - + x % *  - + x % *  - + x % *  - + x % *  - + x % *  - + x % *  - + x %

 )| RATIOs for .GIFs :
       4 3 outer x  1 2 3 4 5 6 7 8 9  | and their multiples x 10 * 1 2
  4  8 12 16 20 24 28 32 36            | of course .
  3  6  9 12 15 18 21 24 27                                               |(

  - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -

 )| TS ts |>| 9711031359 |( Nobel winner : FranscoModigliani on Relation :
  Stock vs Bond Mkts , mentioned  | format 1 % 7 |>| 0.1428571429
   "3 FMT mix P  % D  1 THRU 10      | Tapped  F6 .
 0 3 3 3 6 6 6 9 9 9  0 0 0 0 0 0 0 0 0 0
  1     2     3     4     5     6     7     8     9    10
  1     0.5   0.33  0.25  0.2   0.17  0.14  0.13  0.11  0.1

   + -  + -  + -  + -  + -  + -  + -  + -  + -  + -  + -  + -  + -  + -  + -
 Annualize  monthly rates of growth .

   3 format ( mix P w ( D 1 + .001 THRU .01 w .001 .015 .02 .05  ) * 12 ) - 1
  .001  .002  .003  .004  .005  .006  .007  .008  .009  .010  .015  .020  .050
  .012  .024  .037  .049  .062  .074  .087  .100  .114  .127  .196  .268  .796

  - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -

  ============================: TUE.NOV,971111 :============================
Veteran`s Day | Ganz Picasso sold at Christee`s went for 48.4M$ .
 Bought in `41 for  $7000 | D 48.4E6 % 7E3 |>| 6914.29  |
        97 - 41 |>| 56    | P * % r        |>| 1.17          |#|
 Thats what  .17 per year return for half a century looks like .

       LN '|#| '
  |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#
   Unbelievably , Windows95 does not seem to have any general purpose file
   examination utility . FMTBYTES  below may be reason enough to download
   CoSy .

       FMTBYTES 128 TAKE NREAD '\COSY\COSY.BAT'  | Tap  F6
   0 00 | 45 43 48 4F 20 4F 46 46 0D 0A 44 45 4C 20 43 48 ECHO OFF..DEL CH
  16 10 | 41 49 4E 2E 42 41 54 0D 0A 49 46 20 6E 6F 74 20 AIN.BAT..IF not
  32 20 | 45 58 49 53 54 20 43 3A 5C 41 50 4C 2E 56 57 53 EXIST C:\APL.VWS
  48 30 | 20 67 6F 74 6F 20 6F 6B 0D 0A 63 68 6F 69 63 65  goto ok..choice
  64 40 | 20 44 65 6C 65 74 65 20 6F 6C 64 20 56 57 53 20  Delete old VWS
  80 50 | 66 69 6C 65 20 26 20 73 74 61 72 74 20 6E 65 77 file & start new
  96 60 | 20 5B 79 5D 20 20 4F 52 20 20 4C 6F 6F 6B 20 66  [y]  OR  Look f
 112 70 | 6F 72 20 72 75 6E 6E 69 6E 67 20 43 6F 53 79 20 or running CoSy

  |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#

 

 CoSy NoteComputing Environment & Language ;
CoSy The
NoteComputer
 Current , WallSt , MotorBoard , Art
Feedback :
bob@cosy.com
NB : I reserve the right to post all communications I receive or generate to CoSy website for further reflection .