Vector Operations

xxxxxxxxxx

 

1

r.eval("""

2

c<-c(2,0,-2); d<-c(1,2,1)

3

vector_product3d<-function(x,y){

4

    c(x[2]*y[3]-x[3]*y[2],

5

      -x[1]*y[3]+x[3]*y[1],

6

      x[1]*y[2]-x[2]*y[1])}

7

cat('    c+d   ||c*d||   cxd   \n\n',

8

     toString(c+d),'||',

9

     toString(c%*%d),'||',

10

     toString(vector_product3d(c,d)),'\n\n')

11

""")

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages