% UEA4 CC1 2015
%% A %%
clear
r0=53e-12
me=9.1e-31
mp=1.7e-27
e=1.6e-19
G=6.7e-11
ke=9e9
g=9.8
Fg=G*me*mp/r0^2
Pe=me*g
Pp=mp*g
Fe=ke*e^2/r0^2
[Fg Pe Pp Fe]
[Fg Pe Pp Fe]/Fe
%% B %%
clear
q1= 10e-9
q2=-30e-9
q3= 50e-9
P1=[1 1 1]'*1e-2
P2=[1 0 2]'*1e-2
P3=[3 1 2]'*1e-2
dist=@(A,B) norm(A-B);
unit=@(A,B) (B-A)/dist(A,B);
r13=dist(P1,P3);
r23=dist(P2,P3);
[r13 r23]
u13=unit(P1,P3);
u23=unit(P2,P3);
[u13 u23]
ke=9e9
F13=ke*q1*q3*u13/r13^2;
F23=ke*q2*q3*u23/r23^2;
[F13 F23]
%% C %%
clear
q1=75e-6
v1=200
E1=30
theta1=30
p1=q1*E1*v1*cosd(theta1);
q2=2e-6
v2=[-85 -15 25]'
E2=[220 220 0]'
p2=q2*dot(E2,v2);
[p1 p2]
%% D %%
clear
q=2e-6
B=[220 220 0]'*1e-3
v=[-85 -15 25]'
F=q*cross(v,B)
