Advanced Search

Lenin Araujo Castillo

Prof. Lenin Araujo Castillo

1790 Reputation

15 Badges

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

Social Networks and Content at Maplesoft.com

Contact Prof. Lenin Araujo Castillo
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

Pearson linear...

Lenin Araujo Castillo 1790
June 21 2019
1 2

Your data tends to a linear relationship.

Solution...

Lenin Araujo Castillo 1790
November 09 2017
1 0


 

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

In Maple 18...

Lenin Araujo Castillo 1790
June 02 2017
2 5


 

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

Check your computer....

Lenin Araujo Castillo 1790
February 14 2015
2 0

Hello friend.
Everything works fine.
Maple reinstall.

 

...version 18.

Selected first with shifth + right key...

Lenin Araujo Castillo 1790
October 05 2013
3 0

Control+C    copy

Control+v     paste

 

or use Snagit !!!

 

Page 1 of 1