;
| NoteComputer | 
|
NB : I reserve the right to post all communications I receive or generate to CoSy website for further reflection .
| Modified | DDT |>| TUE.JUN,990601,9:20-4 | | CoSy/Home ; CoSy/Current ?Wha? | © Coherent Systems Inc . |
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
|#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#| |#
|
;
| NoteComputer |
|