7 lines
550 B
Text
7 lines
550 B
Text
add(a,b)=if(type(a)==type(b), a+b, if(type(a)=="t_VEC",a+[b,0],b+[a,0]));
|
|
sub(a,b)=if(type(a)==type(b), [a[1]-b[1],a[2]+b[2]], if(type(a)=="t_VEC",a-[b,0],[a,0]-b));
|
|
mult(a,b)=if(type(a)=="t_VEC", if(type(b)=="t_VEC", [a[1]*b[1], abs(a[1]*b[1])*sqrt(norml2([a[2]/a[1],b[2]/b[1]]))], [b*a[1], abs(b)*a[2]]), [a*b[1], abs(a)*b[2]]);
|
|
div(a,b)=if(type(b)!="t_VEC", mult(a,1/b), mult(a,[1/b[1],b[2]/b[1]^2]));
|
|
pow(a,b)=[a[1]^b, abs(a[1]^b*b*a[2]/a[1])];
|
|
x1=[100,1.1];y1=[50,1.2];x2=[200,2.2];y2=[100,2.3];
|
|
pow(add(pow(sub(x1,x2),2),pow(sub(y1,y2),2)),.5)
|