Griselda

INICIO

"Vector A", txtXa,txtYa;

"Vector B" , txtXb,txtYb;

"Cargas", txtQi,txtQj;

(Producto Punto)

Ppunto = Punto1-Punto2;

(Punto)

punto=txtXa-txtYb;

punto=txtXb-txtYb;

"Producto Punto ", Ppunto

(Magnitud)

Ppunto=Ppunto;

Magnitud =

"Magnitud del Vector", Magnitud;

(Direccion)

Ppunto, Magnitud

Direccion = Ppunto/Magnitud;

(Magnitud Fuerza)

K = 8.9875517873681764 + 10^9;

Qi=txtQi;

Qj=txtQj;

MVector= txtMagnitud;

MFuerza = K * ((Qi*Qj)/(MVector*MVector));

"Direccion Vector", Direccion;

"Magnitud de la fuerza", MFuerza;

(Direccion de la Fuerza)

Ppunto, MFuerza

Direccion = Ppunto/Fuerza;

"Direccion de la fuerza", Direccion;

(Graficacion de Vectores)

Datos.add (txtX1,txtY1,"Vector 1");

Datos.add (txtX2,txtY2,"Vector 2");

"Imprimir Grafica", Datos(X,Y);

Fin