Current issue

Volumes

© 1984-2026
British APL Association
All rights reserved.

This is the historical archive of the British APL Association.

The current active Journal can be found at the Vector Site.

Registered contributors can author their own material for posting on this site. Go to Vector find out more.

Follow this link to find out more about the British APL Association.

Volume 22, No.1

Pascal =: i. !/ i. Pascal 51 1 1 1 10 1 2 3 4 0 0 1 3 6 0 0 0 1 4 0 0 0 0 1 load 'viewmat' $pt50=. Pascal 50 50 50 viewmat 5\|pt50 load 'logo' 'save*' names 3 saveBMPFl saveBMPFl 'C:\amisc\j\nycjug\Pascal50mod5.bmp'
viewmat 11\|pt50 saveBMPFl 'C:\amisc\j\nycjug\Pascal50mod11.bmp'
viewmat 3\|pt50 saveBMPFl 'C:\amisc\j\nycjug\Pascal50mod3.bmp' NB. Why does it look "broken" on the right? >./,pt50 6 .3205303e13 /:~,pt50 0 0 0 0 0 0... \:~,pt50 6.3205303e13 6.3205303e13 5.8343357e13... 3\|10{.\:~,pt50 0 0 0 0 0 0 0 0 0 0 NB. Aha! Looks suspicious……………..
$pt50=. Pascal 50x 50 50 \:~,pt50 63205303218876 63205303218876... 3\|10{.\:~,pt50 0 0 0 0 1 1 1 1 0 0 viewmat 3\|pt50 saveBMPFl 'C:\amisc\j\nycjug\Pascal50xmod3.bmp'

Pascal =: i. !/ i. Pascal 51 1 1 1 10 1 2 3 4 0 0 1 3 6 0 0 0 1 4 0 0 0 0 1 load 'viewmat' $pt50=. Pascal 50 50 50 viewmat 5\|pt50 load 'logo' 'save*' names 3 saveBMPFl saveBMPFl 'C:\amisc\j\nycjug\Pascal50mod5.bmp'
viewmat 11\|pt50 saveBMPFl 'C:\amisc\j\nycjug\Pascal50mod11.bmp'
viewmat 3\|pt50 saveBMPFl 'C:\amisc\j\nycjug\Pascal50mod3.bmp' NB. Why does it look "broken" on the right? >./,pt50 6 .3205303e13 /:~,pt50 0 0 0 0 0 0... \:~,pt50 6.3205303e13 6.3205303e13 5.8343357e13... 3\|10{.\:~,pt50 0 0 0 0 0 0 0 0 0 0 NB. Aha! Looks suspicious……………..
$pt50=. Pascal 50x 50 50 \:~,pt50 63205303218876 63205303218876... 3\|10{.\:~,pt50 0 0 0 0 1 1 1 1 0 0 viewmat 3\|pt50 saveBMPFl 'C:\amisc\j\nycjug\Pascal50xmod3.bmp'