%% L2SPI-UE4CC1-20/10/2014-(B)
% champ ES cree en M par q en P
champES=@(q,P,M) 9e9*q*(M-P)/norm(M-P)^3;
O=[0;0;0];
% q1
q1=+10e-9;
P1=[1;1;1]*1e-2;
E1=champES(q1,P1,O);
% q2
q2=-30e-9;
P2=[1;0;2]*1e-2;
E2=champES(q2,P2,O);
% q3
q3=+50e-9;
P3=[3;1;2]*1e-2;
E3=champES(q3,P3,O);
% F
Q=-20e-9;
F=Q*(E1+E2+E3);
% sortie
E1,E2,E3,F
%