Sponsored links: Algebra eBooks
 

Related

stardisp-true

V:4/3 * %pi * r^3;

stardisp:true;

V:4/3 * %pi * r^3;

Calculate

stardisp-true

V:4/3 * %pi * r^3;

stardisp:true;

V:4/3 * %pi * r^3;

Calculate

stardisp

Run Example
(%i1)stardisp:true;
(%o1)                                true
(%i2) s_x = 1;
(%o2)                               s_x = 1
(%i3) s_y = 1;
(%o3)                               s_y = 1
(%i4) sk_x = 0.1;
(%o4)                             sk_x = 0.1
(%i5) sk_y = 0.1;
(%o5)                             sk_y = 0.1
(%i6) alpha = 10;
(%o6)                             alpha = 10
(%i7) x = -50;
(%o7)                              x = - 50
(%i8) y = 100;
(%o8)                               y = 100
(%i9) vec:matrix([x], [y]);
                                     [ x ]
(%o9)                                [   ]
                                     [ y ]
(%i10) s:matrix([s_x, sk_y], [sk_x, s_y]);
                                [ s_x   sk_y ]
(%o10)                          [            ]
                                [ sk_x  s_y  ]
(%i11) rot:matrix([cos(alpha), -sin(alpha)], [sin(alpha), cos(alpha)] );
                         [ cos(alpha)  - sin(alpha) ]
(%o11)                   [                          ]
                         [ sin(alpha)   cos(alpha)  ]
(%i12) res_1:rot.vec;
                        [ cos(alpha)*x - sin(alpha)*y ]
(%o12)                  [                             ]
                        [ cos(alpha)*y + sin(alpha)*x ]
(%i13) res_2:s.res_1;
(%o13) matrix([s_x*(cos(alpha)*x - sin(alpha)*y)
 + sk_y*(cos(alpha)*y + sin(alpha)*x)], 
[sk_x*(cos(alpha)*x - sin(alpha)*y) + s_y*(cos(alpha)*y + sin(alpha)*x)])
(%i14) 
Run Example
stardisp:true;
(%o1)                                true
(%i2) numer:false;
(%o2)                                false
(%i3) s_x:1;
(%o3)                                  1
(%i4) s_y:1;
(%o4)                                  1
(%i5) sk_x:0.1;
(%o5)                                 0.1
(%i6) sk_y:0.1;
(%o6)                                 0.1
(%i7) alpha:10;
(%o7)                                 10
(%i8) x:-50;
(%o8)                                - 50
(%i9) y:100;
(%o9)                                 100
(%i10) vec:matrix([x], [y]);
                                   [ - 50 ]
(%o10)                             [      ]
                                   [ 100  ]
(%i11) s:matrix([s_x, sk_y], [sk_x, s_y]);
                                 [  1   0.1 ]
(%o11)                           [          ]
                                 [ 0.1   1  ]
(%i12) rot:matrix([cos(alpha), -sin(alpha)], [sin(alpha), cos(alpha)] );
                            [ cos(10)  - sin(10) ]
(%o12)                      [                    ]
                            [ sin(10)   cos(10)  ]
(%i13) answer:s.rot.vec;
       [  - 100*sin(10) + 0.1*(100*cos(10) - 50*sin(10)) - 50*cos(10)  ]
(%o13) [                                                               ]
       [ - 50*sin(10) + 0.1*(- 100*sin(10) - 50*cos(10)) + 100*cos(10) ]
(%i14) 
Run Example
stardisp:true;
(%o1)                                true
(%i2) s_x:1;
(%o2)                                  1
(%i3) s_y:1;
(%o3)                                  1
(%i4) sk_x:0.1;
(%o4)                                 0.1
(%i5) sk_y:0.1;
(%o5)                                 0.1
(%i6) alpha:10;
(%o6)                                 10
(%i7) x:-50;
(%o7)                                - 50
(%i8) y:100;
(%o8)                                 100
(%i9) vec:matrix([x], [y]);
                                   [ - 50 ]
(%o9)                              [      ]
                                   [ 100  ]
(%i10) s:matrix([s_x, sk_y], [sk_x, s_y]);
                                 [  1   0.1 ]
(%o10)                           [          ]
                                 [ 0.1   1  ]
(%i11) rot:matrix([cos(alpha), -sin(alpha)], [sin(alpha), cos(alpha)] );
                            [ cos(10)  - sin(10) ]
(%o11)                      [                    ]
                            [ sin(10)   cos(10)  ]
(%i12) res_1:rot.vec;
                        [ - 100*sin(10) - 50*cos(10) ]
(%o12)                  [                            ]
                        [  100*cos(10) - 50*sin(10)  ]
(%i13) res_2:s.res_1, numer;
                            [  90.68507780644193  ]
(%o13)                      [                     ]
                            [ - 47.07052860890079 ]
(%i14) 

Related Help

Help for Stardisp