tasks a-s

This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions

View file

@ -0,0 +1,3 @@
num=: {."1
unc=: {:@}."1 : ,.
dist=: +/&.:*:

View file

@ -0,0 +1,5 @@
x1=: 100 unc 1.1
y1=: 50 unc 1.2
x2=: 200 unc 2.2
y2=: 100 unc 2.3

View file

@ -0,0 +1,4 @@
num x1
100
unc x1
1.1

View file

@ -0,0 +1,4 @@
num 100
100
unc 100
0

View file

@ -0,0 +1,2 @@
3 dist 4
5

View file

@ -0,0 +1,5 @@
add=: +&num unc dist&unc
sub=: -&num unc dist&unc
mul=: *&num unc |@(*&num * dist&(unc%num))
div=: %&num unc |@(%&num * dist&(unc%num))
exp=: ^&num unc |@(^&num * dist&(unc%num))

View file

@ -0,0 +1,2 @@
exp&0.5 (x1 sub x2) add&(exp&2) y1 sub y2
111.803 2.48717