Fun With Pascal’s Triangle
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' |