Lenin Araujo Castillo

Prof. Lenin Araujo Castillo

1790 Reputation

15 Badges

15 years, 199 days
Physics Pure || Computer Science
Trujillo/La Libertad, Peru

Social Networks and Content at Maplesoft.com

Maple Application Center
Simulation Specialist for Dynamic Systems with Maple Classic and Modern Physics. Mathematical Modeling by Maple problems. Basic Science Teaching using ICT's. Business Data Analyst at Maple and MapleSim environment. Expertise in the development of mathematics with embedded components for mobile devices.

MaplePrimes Activity


These are answers submitted by Lenin Araujo Castillo

Your data tends to a linear relationship.


 

restart; with(VectorCalculus)

SetCoordinates(cartesian[x, y, z])

r[1] := `<,>`(0, 0, 0)

r[2] := `<,>`(s, 0, 0)

r[3] := `<,>`(s, s, 0)

r[4] := `<,>`(0, s, 0)

r[5] := `<,>`(0, 0, s)

r[6] := `<,>`(s, 0, s)

r[7] := `<,>`(s, s, s)

r[8] := `<,>`(0, s, s)

r[p] := `<,>`(2*s, 0, 0)

F__T := sum(seq((k*q*q)*(r[p]-r[i])/LinearAlgebra[Norm](r[p]-r[i])^3, i = 1 .. 8)[j], j = 1 .. 8)

F__N := `assuming`([unapply(simplify(F__T), s)], [s > 0])

evalf(F__N(1.0), 5)

2.6434*k*q^2*e[x]-.70348*k*q^2*e[y]-.70348*k*q^2*e[z]

(1)

  

``

 

  Inserte las posiciones:

   r1  =     r2  =    

   r3  =     r4  =  

   r5  =     r6  =  

   r7  =     r8 =  

   rp  =     s =

    

   

``

  

   

    Solution depending on s

   

   Solution with evaluated s

   

 

 

``


 

Download force_net.mw


 

restart

with(VectorCalculus):

with(DEtools):

ly := VectorCalculus:-`*`(9.4607, 10^15);

0.9460700000e16

(1)

M0 := VectorCalculus:-`*`(1.99, 10^30);

0.1990000000e31

(2)

M1 := VectorCalculus:-`*`(2.20, M0);

0.4378000000e31

(3)

M2 := VectorCalculus:-`*`(2.00, M0);

0.3980000000e31

(4)

M3 := VectorCalculus:-`*`(1.50, M0);

0.2985000000e31

(5)

M4 := VectorCalculus:-`*`(3.00, M0);

0.5970000000e31

(6)

r1 := VectorCalculus:-`*`(`<,>`(-3, 3, 0), ly);

Vector[column]([[-0.283821000000000e17], [0.283821000000000e17], [0.]], ["x", "y", "z"])

(7)

r2 := VectorCalculus:-`*`(`<,>`(0, -2, 0), ly);

Vector[column]([[0.], [-0.189214000000000e17], [0.]], ["x", "y", "z"])

(8)

r3 := VectorCalculus:-`*`(`<,>`(1, 2, 0), ly);

Vector[column]([[0.946070000000000e16], [0.189214000000000e17], [0.]], ["x", "y", "z"])

(9)

r4 := VectorCalculus:-`*`(`<,>`(6, 4, 0), ly);

Vector[column]([[0.567642000000000e17], [0.378428000000000e17], [0.]], ["x", "y", "z"])

(10)

v1 := VectorCalculus:-`*`(`<,>`(25, 15, 0), 10^3);

Vector[column]([[25000], [15000], [0]], ["x", "y", "z"])

(11)

v2 := VectorCalculus:-`*`(`<,>`(20, -20, 0), 10^3);

Vector[column]([[20000], [-20000], [0]], ["x", "y", "z"])

(12)

v3 := VectorCalculus:-`*`(`<,>`(-5, -25, 0), 10^3);

Vector[column]([[-5000], [-25000], [0]], ["x", "y", "z"])

(13)

v4 := VectorCalculus:-`*`(`<,>`(15, 0, 0), 10^3);

Vector[column]([[15000], [0], [0]], ["x", "y", "z"])

(14)

Mtot := VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`+`(M1, M2), M3), M4);

0.1731300000e32

(15)

rcm := VectorCalculus:-`*`(VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`*`(M1, r1), VectorCalculus:-`*`(M2, r2)), VectorCalculus:-`*`(M3, r3)), VectorCalculus:-`*`(M4, r4)), 1/Mtot);

Vector[column]([[0.140279344824496e17], [0.191388873559002e17], [0.]], ["x", "y", "z"])

(16)

vcm := VectorCalculus:-`*`(VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`*`(M1, v1), VectorCalculus:-`*`(M2, v2)), VectorCalculus:-`*`(M3, v3)), VectorCalculus:-`*`(M4, v4)), 1/Mtot);

Vector[column]([[15229.8850571357], [-5114.94252862295], [0.]], ["x", "y", "z"])

(17)

Ltot := VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`+`(CrossProduct(r1, VectorCalculus:-`*`(M1, v1)), CrossProduct(r2, VectorCalculus:-`*`(M2, v2))), CrossProduct(r3, VectorCalculus:-`*`(M3, v3))), CrossProduct(r4, VectorCalculus:-`*`(M4, v4))), VectorCalculus:-`-`(CrossProduct(rcm, VectorCalculus:-`*`(Mtot, vcm))));

Vector[column]([[0.], [0.], [-0.987865632978228e51]], ["x", "y", "z"])

(18)

``

``

``


 

Download version18.mw

Hello friend.
Everything works fine.
Maple reinstall.

 

...version 18.

Control+C    copy

Control+v     paste

 

or use Snagit !!!

 

Page 1 of 1