MATLAB (Manual Programacion Interface Vectores - 1ra Edicion)

MATLAB MANUAL DE PROGRAMACION DE INTERFACE Implementacion de un Programa de una Caja de Control Con funciones para graficar vectores en 2D, vectores en 3D y vectores posición en 2D

Autor:

Ingeniero Electrónico: Monteza Zevallos Fidel Tomas Octubre de 2017 (Primera Edición)

V. J. M. J. / A. M. M. J.

Índice general Introducción 1. Líneas del algoritmo de la función: vector2d (Vector en dos dimensiones) 2. Líneas del algoritmo de la función: vector3d (Vector en tres dimension es) 3. Líneas del algoritmo de la función: vector2d3funcaja3 (Captura informacion punto inicial y pu nto final de un vector 2D d esde una Caja de Control para el grafico de vectores 2D) 4. Líneas del algoritmo de la función: vector3d3funcaja3 (Captura información punto inicial y pu nto final de un vector 3D d esde una Caja de Control para el grafico de vectores 3D) 5. Líneas del algoritmo de la función: vectorposfuncaja3 (Captura información punto final de un vector posición 2D desde una Caja de Control para el grafico de vectores 2D) 6. Líneas del programa de la Caja de Control para el grafico de vectores 2D, vectores 3D y vectores de posición 2D. 7. Secuencia de trabajo del proyecto: Caja de Control para el grafico de vectores 2D, vectores 3D y vectores de posición 2 D

Introducción En física, un vector (también l lamado vector Euclidiano o vector Geométrico) es una magnitud física definida en un sistema de referencia que se caracteriza por tener módulo (o longitud) y una dirección (u orientación). En matemáticas se define un vector como un elemento de un espacio vectorial. Esta noción es más abstracta y para muchos espacios vectoriales no es posible representar sus vectores mediante el módulo y la dirección. En particular los espacios de dimensión infinita sin producto escalar no son representables de ese modo. Los vectores en un espacio Euclídeo se pueden representar geométricamente como segmentos de recta dirigidos («flechas») en el plano R2 o en el espacio R3. Algunos ejemplos de magnitudes físicas que son magnitudes vectoriales: la velocidad con que se desplaza un móvil, ya que no queda definida tan solo por su módulo que es lo que marca el velocímetro, en el caso de un automóvil, sino que se requiere indicar la dirección (hacia donde también, se dirige);elladesplazamiento fuerza que actúa un objeto, ya necesario que su efecto depende además su del magnitud o módulo, de la dirección en la que actúa; de sobre un objeto, pues es definir el punto inicial yde final movimiento

Con esta interface se puede graficar desde uno hasta seis vectores en dos dimensiones, desde uno hasta nueve vectores posición en tres dimensiones y desde uno hasta seis vectores posición en dos dimensiones. Se podrá seguir las líneas de programación de acuerdo a su secuencia de operación.

1. Líneas del algoritmo de la función: vector2d (Vector en dos dimensiones) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Programa que permite visualizar UNICAMENTE el grafico de vectores de posicion en 2D % Ejemplo de un vector 2D: v = [4 5]; % Coordenadas del punto final del vector v % color = 'r' % Color rojo seleccionado % ancho = 10 % Grozor del vector % vector2d(v,color,ancho) % % Debe ingresar los valores de: (v color s) tal como se indica lineas arriba en el Command Window % O puede tipear directamente en el Command Window: vector2d([4 5],'r',10) % vector2d(v,color,s) grafica el vector v usando el color especificado en el segundo argumento % Si no hubiese segundo argumento el color por default sera el rojo % El punto inicial estara en el srcen. Un vector sera dibujado hacia el punto final % Los ejes seran colocados en [-s s,-s s]. Si el tercer argumento no es especificado sera por default 5 % % INGENIERO ELECTRONICO MONTEZA ZEVALLOS FIDEL TOMAS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % v, color, s son parametros de entrada; handle es el parametro de salida donde se estalece un valor definido para cada vector % v es el vector de par ordenado (x,y); color es el color a ser establecido; s es la longitud de los ejes del sistema 2D function[handle]=vector2d(v,color,s); if nargin==1 color = 'r'; end if nargin < 3 s=5; end % % % % %

% nargin es el numero de los argumentos de entrada de la funcion drawvec1 % Si solo hubiese un argumento de entrada (El vector v) el color por defaul sera rojo % Si nargin solo identificase dos argumentos de entrada (El vector y el color) % La variable s de longitud para los ejes sera establecida por default en 5

Un handle es un objeto que indirectamente referencia su data. Cuando un handle es construido, un objeto con valores de sus propiedades es creado La construccion retorna un handle a este objeto. Cuando un objeto handle es copiado Por ejemplo durante una asignacion o cuando es pasado a una funcion en MATLAB el handle es copiado pero no sobreescribe los valores de la propieadad del objeto.

% v(1)= Tomamos el primer elemento del vector fila v (parametro de entrada) % v(2)= Tomamos el segundo elemento del vector fila v (parametro de entrada) handle = plot([0,v(1)],[0,v(2)],color) % handle recibe un valor especifico para cada vector a ser graficado %plot([0,v(1)],[0,v(2)],color); % Se grafica el vector posicion de acuerdo al valor del par ordenado ingresado grid on axis([-s,s,-s,s]) % Se ajusta el sistema de ejes segun el valor del argumento ingresado %axis('square') % Se ajusta el sistema de ejes a un cuadrilatero exacto hold on [m,n]=size(v); % Para la matriz v, size retorna el numero de filas (m) y columnas (n) en v. if n==1 % nargin es el numero de los argumentos de entrada de la funcion drawvec1, si es igual a 1 v=v'; % Se cambia el vector v del tipo 1 fila y varias columnas al tipo 1 columna y varias filas end atip=tip(v,s); % Se envia el vector ingresado como parametro v y el parametro s para los ejes a la funcion tip fill(atip(1,:),atip(2,:),color) % Se rellena el poligono 2-D definido con el color especificado %hold off

% Esta funcion interna llamada tip es para dibujar la cabeza de flecha del vector % v, width son parametros de entrada; arrow es el parametro de salida que sera una matriz de 2 filas x 3 columnas function arrow=tip(v,width); [t,r]=cart2pol(-v(1),-v(2)); % Transformacion de coordenadas cartesianas a coordenadas polares con cart2pol if r
Se tipea la funcion vector2d en el Command Window con sus respectivos datos

Grafico de un vector posicion 2D con los datos ingresados en la funcion vector2d

2. Líneas del algoritmo de la función: vector3d (Vector en tres dimension es) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Programa que permite visualizar el grafico de vectores. Importante en esta funcion las lineas se encuentran comentadas % Esta funcion puede graficar vectores 2D y vectores 3D con flechas dependiendo de las dimensiones de entrada % % Ejemplo de un vector 3D: p0 = [1 2 3]; % Coordenadas del punto inicial p0 % p1 = [4 5 6]; % Coordenadas del punto final p1 % color = 'r' % Color rojo seleccionado % ancho = 10 % Grozor del vector % vector3d(p0,p1,color,ancho) % % Ejemplo de un vector 2D: p0 = [1 2]; % Coordenadas del punto inicial p0 % p1 = [4 5]; % Coordenadas del punto final p1 % color = 'r' % Color rojo seleccionado % ancho = 10 % Grozor del vector % vector3d(p0,p1,color,ancho) % % Debe ingresar los valores de p0 p1 color tal como se indica lineas arriba en el Command Window % Tipeando vector3d(p0,p1,color,ancho) en el Command Window se graficara la linea de un vector con una flecha % desde el punto p0 al punto p1 en color rojo y con un grozor de 10 % Otra alternativa es que puede tipear directamente en el Command Window: % vector3d([1 2 3],[4 5 6],'r',10) % Visulizara un vector en 3D % vector3d([1 2],[4 5],'r',10) % Visulizara un vector en 2D % Puede seleccionar cualquier color tan solo cambiando el tercer elemento de la funcion % Puede seleccionar cualquier grozor tan solo cambiando el cuarto elemento de la funcion % Si no desea trabajar directamente con la funcion, puede ejecutar el archivo VECTOR2D1. % % INGENIERO ELECTRONICO MONTEZA ZEVALLOS FIDEL TOMAS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % p0, p1, color, ancho son parametros de entrada. Se dibuja una flecha que representa un vector desde p0 a p1 function vector3d(p0,p1,color,ancho) %Con estas lineas se podra lograr la grafica de vectores en un sistema 3D (x,y,z) if max(size(p0))==3 % El maximo tamaño de valores de p0 (x0,y0,z0) debe ser 3 (Representa el punto inicial del vector 3D) if max(size(p1))==3 % El maximo tamaño de valores de p1(x1,y1,z1) debe ser 3 (Representa el punto final del vector 3D) x0 = p0(1); % El valor que se ingrese en la primera posicion de p0 sera asignado a la variable x0 y0 = p0(2); % El valor que se ingrese en la segunda posicion de p0 sera asignado a la variable y0 z0 = p0(3); % El valor que se ingrese en la tercera posicion de p0 sera asignado a la variable z0 x1 = p1(1); % El valor que se ingrese en la primera posicion de p1 sera asignado a la variable x1 y1 = p1(2); % El valor que se ingrese en la segunda posicion de p1 sera asignado a la variable y1 z1 = p1(3); % El valor que se ingrese en la tercera posicion de p1 sera asignado a la variable z1 plot3([x0;x1],[y0;y1],[z0;z1],color,'LineWidth',ancho); % Se grafica una linea entre el punto p0 y el punto p1 p = p1-p0; alpha = 0.07; beta = 0.2;

% Restamos los valores del punto final (p1) menos los valores del punto inicial (p0) % Tamaño de la cabeza de flecha relativo a la longitud del vector % Ancho de la base de la cabeza de flecha relativo a su longitud

hu = [x1-alpha*(p(1)+beta*(p(2)+eps)); x1; x1-alpha*(p(1)-beta*(p(2)+eps))]; hv = [y1-alpha*(p(2)-beta*(p(1)+eps)); y1; y1-alpha*(p(2)+beta*(p(1)+eps))]; hw = [z1-alpha*p(3);z1;z1-alpha*p(3)]; hold on % Mantenemos el grafico de de la linea que represnta al vector 3D plot3(hu(:),hv(:),hw(:),color,'LineWidth',ancho) % Se grafica la cabeza de flecha del vector

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %Estas lineas se activaran SOLO si se ejecuta la funcion desde el Command Window tal como se sugiere en los comentarios de cabecera% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % grid on % xlabel('EJE X','Color','r') % Dar nombre al eje X % ylabel('EJE Y','Color','g') % Dar nombre al eje Y % zlabel('EJE Z','Color','b') % Dar nombre al eje Z % hold off %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% hold off else error('p0 y p1 deben tener las mismas dimensiones') % ALERTA para solo aceptar que p0 y p1 sean de igual extension end %Con estas lineas se podra lograr la grafica de vectores en un sistema 2D (x,y) elseif max(size(p0))==2 % El maximo tamaño de valores de p0 (x0,y0) debe ser 2 (Representa el punto inicial del vector 2D) if max(size(p1))==2 % El maximo tamaño de valores de p1 (x0,y0) debe ser 2 (Representa el punto inicial del vector 2D) x0 = p0(1); % El valor que se ingrese en la primera posicion de p0 sera asignado a la variable x0 y0 = p0(2); % El valor que se ingrese en la segunda posicion de p0 sera asignado a la variable y0 x1 = p1(1); % El valor que se ingrese en la primera posicion de p1 sera asignado a la variable x1 y1 = p1(2); % El valor que se ingrese en la segunda posicion de p1 sera asignado a la variable y1 plot([x0;x1],[y0;y1],color,'LineWidth',ancho); % Se grafica una linea entre el punto p0 y el punto p1 p = p1-p0; alpha = 0.1; beta = 0.1;

% Restamos los valores del punto final (p1) menos los valores del punto inicial (p0) % Tamaño de la cabeza de flecha relativo a la longitud del vector % Ancho de la base de la cabeza de flecha relativo a su longitud

hu = [x1-alpha*(p(1)+beta*(p(2)+eps)); x1; x1-alpha*(p(1)-beta*(p(2)+eps))]; hv = [y1-alpha*(p(2)-beta*(p(1)+eps)); y1; y1-alpha*(p(2)+beta*(p(1)+eps))]; hold on plot(hu(:),hv(:),color,'LineWidth',ancho)

% Se grafica la cabeza de flecha

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %Estas lineas se activaran SOLO si se ejecuta la funcion desde el Command Window tal como se sugiere en los comentarios de cabecera% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % grid on % xlabel('EJE X','Color','r') % Dar nombre al eje X % ylabel('EJE Y','Color','g') % Dar nombre al eje Y % hold off %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% else error('p0 y p1 deben tener las mismas dimensiones') % ALERTA para solo aceptar que p0 y p1 seab de igual extension end else error('ATENCION: Esta funcion solo acepta vectores 2D o 3D') % ALERTA que indica los dos tipos de sistemas vectoriales a graficar end

Se tipea la funcion vector3d en el Command Window con sus respectivos datos para obtener un vector 2D

Grafico de un vector 2D con los datos ingresados en la funcion vector3d

Se tipea la funcion vector3d en el Command Window con sus respectivos datos para obtener un vector 3D

Grafico de un vector 3D con los datos ingresados en la funcion vector3d

3. Líneas del algoritmo de la función: vector2d3funcaja3 (Captura información punto inicial y pu nto final de un vector 2D d esde una Caja de Control para el grafico de vectores 2D) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Programa de una funcion que permite capturar la informacion de los puntos iniciales y finales de un vector 2D. % Cuando se ejecuta el archivo llamado VECTORCAJACONTROL se llama a esta funcion % Los valores de los vectores se pueden ingresar individualmente en el Command Window segun el programa. % Los vectores deben tener su punto inicial y su punto final. % Una vez realizada la captura se grafican la cantidad de vectores seleccionada con la funcion vector3D % % Las lineas se encuentran comentadas % Importante este archivo se usa con la funcion vector3d para n vectores en 2D y en 3D % % INGENIERO ELECTRONICO MONTEZA ZEVALLOS FIDEL TOMAS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function vector2d3funcaja3(action) if action == 1 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar UN solo vector % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE UN VECTOR EN 2D')

% Se visualizara en el Command Window este mensaje

xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String'))

% % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y

p0 = [x1 y1]; p1 = [x2 y2];

la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle

% Coordenadas del punto inicial p0 del vector v % Coordenadas del punto final p1 del vector v

p = [(x2-x1) (y2-y1)]

% Coordenadas del primer vector respecto al eje de coordenadas

fprintf('\n EL VALOR DE LA LONGITUD (NORMA) DEL VECTOR p ES:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2)) % Hallamos la norma del vector p % % Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado % if Longitud1A > 0 % b = Longitud1A; % elseif Longitud1A = 0 % b = 10; % end b = Longitud1A;

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado

subplot(1,3,3) vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D grid on

title('Grafico de un vector en 2D'); xlabel('Eje X') ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b

elseif action == 2 clear; clc; subplot(1,3,3,'replace')

% Dar nombre a los ejes % El sistema tiene sus ejes definidos en dos dimensiones

% CONDICION Si se ha elegido graficar DOS vectores % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE DOS VECTORES EN 2D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) p0 p1 q0 q1

= = = =

[x1 [x2 [x3 [x4

y1]; y2]; y3]; y4];

p = [(x2-x1) (y2-y1)] q = [(x4-x3) (y4-y3)]

% Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y % % % %

Coordenadas Coordenadas Coordenadas Coordenadas

del del del del

la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4

punto punto punto punto

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle

inicial p0 del vector v final p1 del vector v inicial q0 del vector w final q1 del vector w

% Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p Y Longitud1A = norm(p); % Hallamos la Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2)) % Hallamos Longitud2A = norm(q); % Hallamos la Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2)) % Hallamos

q SON:' ); norma del vector p la norma del vector p norma del vector q la norma del vector q

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A b = Longitud1A; elseif Longitud2A>Longitud1A b = Longitud2A; elseif Longitud1A==Longitud2A b = Longitud1A; end subplot(1,3,3)

vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D grid on title('Grafico de dos vectores en 2D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b % El sistema tiene sus ejes definidos en dos dimensiones

elseif action == 3 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar TRES vectores % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE TRES VECTORES EN 2D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) p0 p1 q0 q1 r0 r1

= = = = = =

[x1 [x2 [x3 [x4 [x5 [x6

y1]; y2]; y3]; y4]; y5]; y6];

p = [(x2-x1) (y2-y1)] q = [(x4-x3) (y4-y3)] r = [(x6-x5) (y6-y5)]

% Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de x5 de get retorna el valor de xhandle y findobj retorna el valor de y5 de get retorna el valor de yhandle y findobj retorna el valor de x6 de get retorna el valor de xhandle y findobj retorna el valor de y6 de get retorna el valor de yhandle y % % % % % %

Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas

del del del del del del

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en x5 Caja Ingreso ubica en y5 Caja Ingreso ubica en x6 Caja Ingreso ubica en y6

punto punto punto punto punto punto

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (x5text) y lo ubica en xhandle Datos (y5text) y lo ubica en yhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle

inicial p0 del vector v final p1 del vector v inicial q0 del vector w final q1 del vector w inicial r0 del vector r final r1 del vector r

% Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q Y r SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p

Longitud1B Longitud2A Longitud2B Longitud3A Longitud3B

= = = = =

sqrt(((x2-x1)^2+(y2-y1)^2)) norm(q); sqrt(((x4-x3)^2+(y4-y3)^2)) norm(r); sqrt(((x6-x5)^2+(y6-y5)^2))

% Hallamos % Hallamos la % Hallamos % Hallamos la % Hallamos

la norma del vector p norma del vector q la norma del vector q norma del vector r la norma del vector r

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A b = Longitud3A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) hold on vector3d(q0,q1,'g',1) hold on vector3d(r0,r1,'b',1) grid on title('Grafico de tres xlabel('Eje X') ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b

% Graficamos el primer vector 3D % Graficamos el segundo vector 3D % Graficamos el tercer vector 3D vectores en 2D');

elseif action == 4 clear; clc; subplot(1,3,3,'replace')

% Dar nombre a los ejes % El sistema tiene sus ejes definidos en dos dimensiones % CONDICION Si se ha elegido graficar CUATRO vectores % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE CUATRO VECTORES EN 2D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text');

% Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de x5 de get retorna el valor de xhandle y findobj retorna el valor de y5 de

la lo la lo la lo la lo la lo la lo la lo la lo la lo la

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en x5 Caja Ingreso

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (x5text) y lo ubica en xhandle Datos (y5text) y lo ubica en yhandle

y5 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 p q r s

= = = = = = = =

= = = =

[x1 [x2 [x3 [x4 [x5 [x6 [x7 [x8

% % % % % % % % % % % % %

get retorna el valor de yhandle y findobj retorna el valor de x6 de get retorna el valor de xhandle y findobj retorna el valor de y6 de get retorna el valor de yhandle y findobj retorna el valor de x7 de get retorna el valor de xhandle y findobj retorna el valor de y7 de get retorna el valor de yhandle y findobj retorna el valor de x8 de get retorna el valor de xhandle y findobj retorna el valor de y8 de get retorna el valor de yhandle y

y1]; y2]; y3]; y4]; y5]; y6]; y7]; y8];

[(x2-x1) [(x4-x3) [(x6-x5) [(x8-x7)

(y2-y1)] (y4-y3)] (y6-y5)] (y8-y7)]

% % % % % % % %

Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas % % % %

del del del del del del del del

Coordenadas Coordenadas Coordenadas Coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES v Y Longitud1A = norm(p); % Hallamos la Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2)) % Hallamos Longitud2A = norm(q); % Hallamos la Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2)) % Hallamos Longitud3A = norm(r); % Hallamos la Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2)) % Hallamos Longitud4A = norm(s); % Hallamos la Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2)) % Hallamos

lo la lo la lo la lo la lo la lo la lo

ubica en y5 Caja Ingreso ubica en x6 Caja Ingreso ubica en y6 Caja Ingreso ubica en x7 Caja Ingreso ubica en y7 Caja Ingreso ubica en x8 Caja Ingreso ubica en y8

punto punto punto punto punto punto punto punto

del del del del

Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (x7text) y lo ubica en xhandle Datos (y7text) y lo ubica en yhandle Datos (x8text) y lo ubica en xhandle Datos (y8text) y lo ubica en yhandle

inicial p0 del vector final p1 del vector v inicial q0 del vector final q1 del vector w inicial r0 del vector final r1 del vector r inicial s0 del vector final s1 del vector s

w r s

primer vector respecto al eje de coordenadas segundo vector respecto al eje de coordenadas tercer vector respecto al eje de coordenadas cuarto vector respecto al eje de coordenadas

w ES:' ); norma del vector p la norma del vector norma del vector q la norma del vector norma del vector r la norma del vector norma del vector s la norma del vector

p q r s

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A b = Longitud4A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D hold on vector3d(r0,r1,'b',1) % Graficamos el tercer vector 3D

v

hold on vector3d(s0,s1,'m',1) % Graficamos el cuarto vector 3D grid on title('Grafico de cuatro vectores en 2D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b % El sistema tiene sus ejes definidos en dos dimensiones

elseif action == 5 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar CINCO vectores % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE CINCO VECTORES EN 2D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x9text'); x9 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y9text'); y9 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x10text'); x10 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text');

% Se visualizara en el Command Window este mensaje % findobj retorna el valor de x1 de la Caja Ingreso Datos (x1text) y % get retorna el valor de xhandle y lo ubica en x1 % findobj retorna el valor de y1 de la Caja Ingreso Datos (y1text) y % get retorna el valor de yhandle y lo ubica en y1 % findobj retorna el valor de x2 de la Caja Ingreso Datos (x2text) y % get retorna el valor de xhandle y lo ubica en x2 % findobj retorna el valor de y2 de la Caja Ingreso Datos (y2text) y % get retorna el valor de yhandle y lo ubica en y2 % findobj retorna el valor de x3 de la Caja Ingreso Datos (x3text) y % get retorna el valor de xhandle y lo ubica en x3 % findobj retorna el valor de y3 de la Caja Ingreso Datos (y3text) y % get retorna el valor de yhandle y lo ubica en y3 % findobj retorna el valor de x4 de la Caja Ingreso Datos (x4text) y % get retorna el valor de xhandle y lo ubica en x4 % findobj retorna el valor de y4 de la Caja Ingreso Datos (y4text) y % get retorna el valor de yhandle y lo ubica en y4 % findobj retorna el valor de x5 de la Caja Ingreso Datos (x5text) y % get retorna el valor de xhandle y lo ubica en x5 % findobj retorna el valor de y5 de la Caja Ingreso Datos (y5text) y % get retorna el valor de yhandle y lo ubica en y5 % findobj retorna el valor de x6 de la Caja Ingreso Datos (x6text) y % get retorna el valor de xhandle y lo ubica en x6 % findobj retorna el valor de y6 de la Caja Ingreso Datos (y6text) y % get retorna el valor de yhandle y lo ubica en y6 % findobj retorna el valor de x7 de la Caja Ingreso Datos (x7text) y % get retorna el valor de xhandle y lo ubica en x7 % findobj retorna el valor de y7 de la Caja Ingreso Datos (y7text) y % get retorna el valor de yhandle y lo ubica en y7 % findobj retorna el valor de x8 de la Caja Ingreso Datos (x8text) y % get retorna el valor de xhandle y lo ubica en x8 % findobj retorna el valor de y8 de la Caja Ingreso Datos (y8text) y % get retorna el valor de yhandle y lo ubica en y8 % findobj retorna el valor de x9 de la Caja Ingreso Datos (x9text) y % get retorna el valor de xhandle y lo ubica en x9 % findobj retorna el valor de y9 de la Caja Ingreso Datos (y9text) y % get retorna el valor de yhandle y lo ubica en y9 % findobj retorna el valor de x10 de la Caja Ingreso Datos (x10text) % get retorna el valor de xhandle y lo ubica en x10 % findobj retorna el valor de y10 de la Caja Ingreso Datos (y10text)

lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle y lo ubica en xhandle y lo ubica en yhandle

y10 = eval(get(yhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 t0 t1 p q r s t

= = = = = = = = = =

= = = = =

% get retorna el valor de yhandle y lo ubica en y10

[x1 y1]; [x2 y2]; [x3 y3]; [x4 y4]; [x5 y5]; [x6 y6]; [x7 y7]; [x8 y8]; [x9 y9]; [x10 y10];

% % % % % % % % % %

[(x2-x1) (y2-y1)] [(x4-x3) (y4-y3)] [(x6-x5) (y6-y5)] [(x8-x7) (y8-y7)] [(x10-x9) (y10-y9)]

Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas

% % % % %

del del del del del del del del del del

Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas

punto punto punto punto punto punto punto punto punto punto

del del del del del

inicial p0 del vector final p1 del vector v inicial q0 del vector final q1 del vector w inicial r0 del vector final r1 del vector r inicial s0 del vector final s1 del vector s inicial t0 del vector final t1 del vector t

v w r s t

primer vector respecto al eje de coordenadas segundo vector respecto al eje de coordenadas tercer vector respecto al eje de coordenadas cuarto vector respecto al eje de coordenadas quinto vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r,s Y t SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2)) % Hallamos la norma del vector Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2)) % Hallamos la norma del vector Longitud3A = norm(r); % Hallamos la norma del vector r Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2)) % Hallamos la norma del vector Longitud4A = norm(s); % Hallamos la norma del vector s Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2)) % Hallamos la norma del vector Longitud5A = norm(t); % Hallamos la norma del vector t Longitud5B = sqrt(((x10-x9)^2+(y10-y9)^2)) % Hallamos la norma del vector

p q r s t

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A | Longitud1A>Longitud5A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A | Longitud2A>Longitud5A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A | Longitud3A>Longitud5A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A | Longitud4A>Longitud5A b = Longitud4A; elseif Longitud5A>Longitud1A | Longitud5A>Longitud2A | Longitud5A>Longitud3A | Longitud5A>Longitud4A b = Longitud5A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) hold on vector3d(q0,q1,'g',1) hold on vector3d(r0,r1,'b',1) hold on vector3d(s0,s1,'m',1) hold on vector3d(t0,t1,'c',1) grid on

% Graficamos el primer vector 3D % Graficamos el segundo vector 3D % Graficamos el tercer vector 3D % Graficamos el cuarto vector 3D % Graficamos el quinto vector 3D

title('Grafico de cinco vectores en 2D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b % El sistema tiene sus ejes definidos en dos dimensiones

elseif action == 6 clear; clc; subplot(1,3,3,'replace') disp('GRAFICO DE SEIS VECTORES EN 2D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x9text'); x9 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y9text'); y9 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x10text'); x10 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text'); y10 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x11text'); x11 = eval(get(xhandle,'String'))

% CONDICION Si se ha elegido graficar SEIS vectores % Limpiamos el Workspace % Limpiamos el Command Window % Se visualizara en el Command Window este mensaje % findobj retorna el valor de x1 de la Caja Ingreso Datos (x1text) y % get retorna el valor de xhandle y lo ubica en x1 % findobj retorna el valor de y1 de la Caja Ingreso Datos (y1text) y % get retorna el valor de yhandle y lo ubica en y1 % findobj retorna el valor de x2 de la Caja Ingreso Datos (x2text) y % get retorna el valor de xhandle y lo ubica en x2 % findobj retorna el valor de y2 de la Caja Ingreso Datos (y2text) y % get retorna el valor de yhandle y lo ubica en y2 % findobj retorna el valor de x3 de la Caja Ingreso Datos (x3text) y % get retorna el valor de xhandle y lo ubica en x3 % findobj retorna el valor de y3 de la Caja Ingreso Datos (y3text) y % get retorna el valor de yhandle y lo ubica en y3 % findobj retorna el valor de x4 de la Caja Ingreso Datos (x4text) y % get retorna el valor de xhandle y lo ubica en x4 % findobj retorna el valor de y4 de la Caja Ingreso Datos (y4text) y % get retorna el valor de yhandle y lo ubica en y4 % findobj retorna el valor de x5 de la Caja Ingreso Datos (x5text) y % get retorna el valor de xhandle y lo ubica en x5 % findobj retorna el valor de y5 de la Caja Ingreso Datos (y5text) y % get retorna el valor de yhandle y lo ubica en y5 % findobj retorna el valor de x6 de la Caja Ingreso Datos (x6text) y % get retorna el valor de xhandle y lo ubica en x6 % findobj retorna el valor de y6 de la Caja Ingreso Datos (y6text) y % get retorna el valor de yhandle y lo ubica en y6 % findobj retorna el valor de x7 de la Caja Ingreso Datos (x7text) y % get retorna el valor de xhandle y lo ubica en x7 % findobj retorna el valor de y7 de la Caja Ingreso Datos (y7text) y % get retorna el valor de yhandle y lo ubica en y7 % findobj retorna el valor de x8 de la Caja Ingreso Datos (x8text) y % get retorna el valor de xhandle y lo ubica en x8 % findobj retorna el valor de y8 de la Caja Ingreso Datos (y8text) y % get retorna el valor de yhandle y lo ubica en y8 % findobj retorna el valor de x9 de la Caja Ingreso Datos (x9text) y % get retorna el valor de xhandle y lo ubica en x9 % findobj retorna el valor de y9 de la Caja Ingreso Datos (y9text) y % get retorna el valor de yhandle y lo ubica en y9 % findobj retorna el valor de x10 de la Caja Ingreso Datos (x10text) % get retorna el valor de xhandle y lo ubica en x10 % findobj retorna el valor de y10 de la Caja Ingreso Datos (y10text) % get retorna el valor de yhandle y lo ubica en y10 % findobj retorna el valor de x11 de la Caja Ingreso Datos (x11text) % get retorna el valor de xhandle y lo ubica en x11

lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle lo ubica en xhandle lo ubica en yhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en xhandle

yhandle = findobj('Tag','y11text'); y11 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x12text'); x12 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y12text'); y12 = eval(get(yhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 t0 t1 u0 u1 p q r s t u

= = = = = = = = = = = =

= = = = = =

[x1 y1]; [x2 y2]; [x3 y3]; [x4 y4]; [x5 y5]; [x6 y6]; [x7 y7]; [x8 y8]; [x9 y9]; [x10 y10]; [x11 y11]; [x12 y12];

[(x2-x1) (y2-y1)] [(x4-x3) (y4-y3)] [(x6-x5) (y6-y5)] [(x8-x7) (y8-y7)] [(x10-x9) (y10-y9)] [(x12-x11) (y12-y11)]

% % % % % %

findobj retorna el valor de y11 get retorna el valor de yhandle findobj retorna el valor de x12 get retorna el valor de xhandle findobj retorna el valor de y12 get retorna el valor de yhandle % % % % % % % % % % % %

Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas

de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica

del del del del del del del del del del del del

punto punto punto punto punto punto punto punto punto punto punto punto

Ingreso Datos (y11text) y lo ubica en yhandle en y11 Ingreso Datos (x12text) y lo ubica en xhandle en x12 Ingreso Datos (y12text) y lo ubica en yhandle en y12

inicial p0 del vector final p1 del vector v inicial q0 del vector final q1 del vector w inicial r0 del vector final r1 del vector r inicial s0 del vector final s1 del vector s inicial t0 del vector final t1 del vector t inicial u0 del vector final u1 del vector u

v w r s t u

% Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas % Coordenadas del cuarto vector respecto al eje de coordenadas % Coordenadas del quinto vector respecto al eje de coordenadas % Coordenadas del sexto vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES v Y w ES:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2)) % Hallamos la norma del vector p Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2)) % Hallamos la norma del vector q Longitud3A = norm(r); % Hallamos la norma del vector r Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2)) % Hallamos la norma del vector r Longitud4A = norm(s); % Hallamos la norma del vector s Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2)) % Hallamos la norma del vector s Longitud5A = norm(t); % Hallamos la norma del vector t Longitud5B = sqrt(((x10-x9)^2+(y10-y9)^2)) % Hallamos la norma del vector t Longitud6A = norm(u); % Hallamos la norma del vector t Longitud6B = sqrt(((x12-x11)^2+(y12-y11)^2)) % Hallamos la norma del vector t % Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A | Longitud1A>Longitud5A | Longitud1A>Longitud6A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A | Longitud2A>Longitud5A | Longitud2A>Longitud6A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A | Longitud3A>Longitud5A | Longitud3A>Longitud6A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A | Longitud4A>Longitud5A | Longitud4A>Longitud6A b = Longitud4A; elseif Longitud5A>Longitud1A | Longitud5A>Longitud2A | Longitud5A>Longitud3A | Longitud5A>Longitud4A | Longitud5A>Longitud6A b = Longitud5A; elseif Longitud6A>Longitud1A | Longitud6A>Longitud2A | Longitud6A>Longitud3A | Longitud6A>Longitud4A | Longitud6A>Longitud5A b = Longitud6A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A b = Longitud1A; end

subplot(1,3,3) vector3d(p0,p1,'r',1) hold on vector3d(q0,q1,'g',1) hold on vector3d(r0,r1,'b',1) hold on vector3d(s0,s1,'m',1) hold on vector3d(t0,t1,'c',1) hold on vector3d(u0,u1,'y',1) grid on title('Grafico de seis xlabel('Eje X') ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b end end

% Graficamos el primer vector 3D % Graficamos el segundo vector 3D % Graficamos el tercer vector 3D % Graficamos el cuarto vector 3D % Graficamos el quinto vector 3D % Graficamos el sexto vector 3D vectores en 2D'); % Dar nombre a los ejes % El sistema tiene sus ejes definidos en dos dimensiones

4. Líneas del algoritmo de la función: vector3d3funcaja3 (Captura información punto inicial y pu nto final de un vector 3D d esde una Caja de Control para el grafico de vectores 3D) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Programa de una funcion que permite capturar la informacion de los puntos iniciales y finales de un vector 3D. % Cuando se ejecuta el archivo llamado VECTORCAJACONTROL se llama a esta funcion % Los valores de los vectores se pueden ingresar individualmente en el Command Window segun el programa. % Los vectores deben tener su punto inicial y su punto final. % Una vez realizada la captura se grafican la cantidad de vectores seleccionada con la funcion vector3D % % Las lineas se encuentran comentadas % Importante este archivo se usa con la funcion vector3d para n vectores en 2D y en 3D % % INGENIERO ELECTRONICO MONTEZA ZEVALLOS FIDEL TOMAS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function vector3d3funcaja3(action) if action == 1 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar UN solo vector % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE VECTORES EN 3D')

% Se visualizara en el Command Window este mensaje

xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String'))

% % % % % % % % % % % % % % % % % % % % % % % %

p0 = [x1 y1 z1]; p1 = [x2 y2 z2]; p = [(x2-x1) (y2-y1) (z2-z1)]

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de z4 de get retorna el valor de zhandle y

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en z4

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (z4text) y lo ubica en zhandle

% Coordenadas del punto inicial p0 del vector p % Coordenadas del punto final p1 del vector p % Coordenadas del primer vector respecto al eje de coordenadas

fprintf('\n EL VALOR DE LA LONGITUD (NORMA) DEL VECTOR p ES:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector p b = Longitud1A; % Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado subplot(1,3,3) vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D grid on title('Grafico de un vector en 3D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b % El sistema tiene sus ejes definidos en tres dimensiones elseif action == 2 clear; clc; subplot(1,3,3,'replace') disp('GRAFICO DE DOS VECTORES EN 3D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) p0 p1 q0 q1

= = = =

[x1 [x2 [x3 [x4

y1 y2 y3 y4

z1]; z2]; z3]; z4];

p = [(x2-x1) (y2-y1) (z2-z1)] q = [(x4-x3) (y4-y3) (z4-z3)]

% CONDICION Si se ha elegido graficar DOS vectores % Limpiamos el Workspace % Limpiamos el Command Window % Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de z4 de get retorna el valor de zhandle y % % % %

Coordenadas Coordenadas Coordenadas Coordenadas

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo del del del del

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en z4 punto punto punto punto

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (z4text) y lo ubica en zhandle

inicial p0 del vector p final p1 del vector p inicial q0 del vector q final q1 del vector q

% Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p Y q SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p

Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) Longitud2A = norm(q); Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2))

% Hallamos la norma del vector p % Hallamos la norma del vector q % Hallamos la norma del vector q

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A b = Longitud1A; elseif Longitud2A>Longitud1A b = Longitud2A; elseif Longitud1A==Longitud2A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D grid on title('Grafico de dos vectores en 3D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b % El sistema tiene sus ejes definidos en tres dimensiones elseif action == 3 clear; clc; subplot(1,3,3,'replace') disp('GRAFICO DE TRES VECTORES EN 3D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x5text');

% CONDICION Si se ha elegido graficar TRES vectores % Limpiamos el Workspace % Limpiamos el Command Window % Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de z4 de get retorna el valor de zhandle y findobj retorna el valor de x5 de

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en z4 Caja Ingreso

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (z4text) y lo ubica en zhandle Datos (x5text) y lo ubica en xhandle

x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z5text'); z5 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z6text'); z6 = eval(get(zhandle,'String')) p0 p1 q0 q1 r0 r1

= = = = = =

[x1 [x2 [x3 [x4 [x5 [x6

y1 y2 y3 y4 y5 y6

% % % % % % % % % % %

get retorna el valor de xhandle y findobj retorna el valor de y5 de get retorna el valor de yhandle y findobj retorna el valor de z5 de get retorna el valor de zhandle y findobj retorna el valor de x6 de get retorna el valor de xhandle y findobj retorna el valor de y6 de get retorna el valor de yhandle y findobj retorna el valor de z6 de get retorna el valor de zhandle y

z1]; z2]; z3]; z4]; z5]; z6];

% % % % % %

p = [(x2-x1) (y2-y1) (z2-z1)] q = [(x4-x3) (y4-y3) (z4-z3)] r = [(x6-x5) (y6-y5) (z6-z5)]

Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas

lo la lo la lo la lo la lo la lo del del del del del del

ubica en x5 Caja Ingreso ubica en y5 Caja Ingreso ubica en z5 Caja Ingreso ubica en x6 Caja Ingreso ubica en y6 Caja Ingreso ubica en z6 punto punto punto punto punto punto

Datos (y5text) y lo ubica en yhandle Datos (z5text) y lo ubica en zhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (z6text) y lo ubica en zhandle

inicial p0 del vector p final p1 del vector p inicial q0 del vector q final q1 del vector q inicial r0 del vector r final r1 del vector r

% Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q Y r SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector p Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) % Hallamos la norma del vector q Longitud3A = norm(r); % Hallamos la norma del vector r Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) % Hallamos la norma del vector r % Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A b = Longitud3A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) hold on vector3d(q0,q1,'g',1) hold on vector3d(r0,r1,'b',1) grid on title('Grafico de tres xlabel('Eje X') ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b

elseif action == 4

% Graficamos el primer vector 3D % Graficamos el segundo vector 3D % Graficamos el tercer vector 3D vectores en 3D'); % Dar nombre a los ejes % El sistema tiene sus ejes definidos en tres dimensiones

% CONDICION Si se ha elegido graficar CUATRO vectores

clear; clc; subplot(1,3,3,'replace')

% Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE CUATRO VECTORES EN 3D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z5text'); z5 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z6text'); z6 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z7text'); z7 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z8text'); z8 = eval(get(zhandle,'String')) p0 = [x1 y1 z1]; p1 = [x2 y2 z2];

% Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de z4 de get retorna el valor de zhandle y findobj retorna el valor de x5 de get retorna el valor de xhandle y findobj retorna el valor de y5 de get retorna el valor de yhandle y findobj retorna el valor de z5 de get retorna el valor de zhandle y findobj retorna el valor de x6 de get retorna el valor de xhandle y findobj retorna el valor de y6 de get retorna el valor de yhandle y findobj retorna el valor de z6 de get retorna el valor de zhandle y findobj retorna el valor de x7 de get retorna el valor de xhandle y findobj retorna el valor de y7 de get retorna el valor de yhandle y findobj retorna el valor de z7 de get retorna el valor de zhandle y findobj retorna el valor de x8 de get retorna el valor de xhandle y findobj retorna el valor de y8 de get retorna el valor de yhandle y findobj retorna el valor de z8 de get retorna el valor de zhandle y

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en z4 Caja Ingreso ubica en x5 Caja Ingreso ubica en y5 Caja Ingreso ubica en z5 Caja Ingreso ubica en x6 Caja Ingreso ubica en y6 Caja Ingreso ubica en z6 Caja Ingreso ubica en x7 Caja Ingreso ubica en y7 Caja Ingreso ubica en z7 Caja Ingreso ubica en x8 Caja Ingreso ubica en y8 Caja Ingreso ubica en z8

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (z4text) y lo ubica en zhandle Datos (x5text) y lo ubica en xhandle Datos (y5text) y lo ubica en yhandle Datos (z5text) y lo ubica en zhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (z6text) y lo ubica en zhandle Datos (x7text) y lo ubica en xhandle Datos (y7text) y lo ubica en yhandle Datos (z7text) y lo ubica en zhandle Datos (x8text) y lo ubica en xhandle Datos (y8text) y lo ubica en yhandle Datos (z8text) y lo ubica en zhandle

% Coordenadas del punto inicial p0 del vector p % Coordenadas del punto final p1 del vector p

q0 q1 r0 r1 s0 s1 p q r s

= = = = = =

= = = =

[x3 [x4 [x5 [x6 [x7 [x8

y3 y4 y5 y6 y7 y8

z3]; z4]; z5]; z6]; z7]; z8];

[(x2-x1) [(x4-x3) [(x6-x5) [(x8-x7)

(y2-y1) (y4-y3) (y6-y5) (y8-y7)

% % % % % % (z2-z1)] (z4-z3)] (z6-z5)] (z8-z7)]

Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas Coordenadas % % % %

del del del del del del

Coordenadas Coordenadas Coordenadas Coordenadas

punto punto punto punto punto punto

del del del del

inicial q0 del vector q final q1 del vector q inicial r0 del vector r final r1 del vector r inicial s0 del vector s final s1 del vector s

primer vector respecto al eje de coordenadas segundo vector respecto al eje de coordenadas tercer vector respecto al eje de coordenadas cuarto vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r Y s SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) % Hallamos la norma del vector Longitud3A = norm(r); % Hallamos la norma del vector r Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) % Hallamos la norma del vector Longitud4A = norm(s); % Hallamos la norma del vector s Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2+(z8-z7)^2)) % Hallamos la norma del vector

p q r s

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A b = Longitud4A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D hold on vector3d(r0,r1,'b',1) % Graficamos el tercer vector 3D hold on vector3d(s0,s1,'m',1) % Graficamos el cuarto vector 3D grid on title('Grafico de cuatro vectores en 3D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b % El sistema tiene sus ejes definidos en tres dimensiones

elseif action == 5 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar CINCO vectores % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE CINCO VECTORES EN 3D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z5text'); z5 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z6text'); z6 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z7text'); z7 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z8text'); z8 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x9text'); x9 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y9text'); y9 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z9text'); z9 = eval(get(zhandle,'String'))

% Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de z4 de get retorna el valor de zhandle y findobj retorna el valor de x5 de get retorna el valor de xhandle y findobj retorna el valor de y5 de get retorna el valor de yhandle y findobj retorna el valor de z5 de get retorna el valor de zhandle y findobj retorna el valor de x6 de get retorna el valor de xhandle y findobj retorna el valor de y6 de get retorna el valor de yhandle y findobj retorna el valor de z6 de get retorna el valor de zhandle y findobj retorna el valor de x7 de get retorna el valor de xhandle y findobj retorna el valor de y7 de get retorna el valor de yhandle y findobj retorna el valor de z7 de get retorna el valor de zhandle y findobj retorna el valor de x8 de get retorna el valor de xhandle y findobj retorna el valor de y8 de get retorna el valor de yhandle y findobj retorna el valor de z8 de get retorna el valor de zhandle y findobj retorna el valor de x9 de get retorna el valor de xhandle y findobj retorna el valor de y9 de get retorna el valor de yhandle y findobj retorna el valor de z9 de get retorna el valor de zhandle y

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en z4 Caja Ingreso ubica en x5 Caja Ingreso ubica en y5 Caja Ingreso ubica en z5 Caja Ingreso ubica en x6 Caja Ingreso ubica en y6 Caja Ingreso ubica en z6 Caja Ingreso ubica en x7 Caja Ingreso ubica en y7 Caja Ingreso ubica en z7 Caja Ingreso ubica en x8 Caja Ingreso ubica en y8 Caja Ingreso ubica en z8 Caja Ingreso ubica en x9 Caja Ingreso ubica en y9 Caja Ingreso ubica en z9

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (z4text) y lo ubica en zhandle Datos (x5text) y lo ubica en xhandle Datos (y5text) y lo ubica en yhandle Datos (z5text) y lo ubica en zhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (z6text) y lo ubica en zhandle Datos (x7text) y lo ubica en xhandle Datos (y7text) y lo ubica en yhandle Datos (z7text) y lo ubica en zhandle Datos (x8text) y lo ubica en xhandle Datos (y8text) y lo ubica en yhandle Datos (z8text) y lo ubica en zhandle Datos (x9text) y lo ubica en xhandle Datos (y9text) y lo ubica en yhandle Datos (z9text) y lo ubica en zhandle

xhandle = findobj('Tag','x10text'); x10 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text'); y10 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z10text'); z10 = eval(get(zhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 t0 t1 p q r s t

= = = = = = = = = =

= = = = =

% % % % % %

findobj retorna el valor de x10 get retorna el valor de xhandle findobj retorna el valor de y10 get retorna el valor de yhandle findobj retorna el valor de z10 get retorna el valor de zhandle

[x1 y1 z1]; [x2 y2 z2]; [x3 y3 z3]; [x4 y4 z4]; [x5 y5 z5]; [x6 y6 z6]; [x7 y7 z7]; [x8 y8 z8]; [x9 y9 z9]; [x10 y10 z10];

[(x2-x1) (y2-y1) (z2-z1)] [(x4-x3) (y4-y3) (z4-z3)] [(x6-x5) (y6-y5) (z6-z5)] [(x8-x7) (y8-y7) (z8-z7)] [(x10-x9) (y10-y9) (z10-z9)]

de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica

Ingreso Datos (x10text) y lo ubica en xhandle en x10 Ingreso Datos (y10text) y lo ubica en yhandle en y10 Ingreso Datos (z10text) y lo ubica en zhandle en z10

% Coordenadas del punto inicial p0 del vector % Coordenadas del punto final p1 del vector p % Coordenadas del punto inicial q0 del vector % Coordenadas del punto final q1 del vector q % Coordenadas del punto inicial r0 del vector % Coordenadas del punto final r1 del vector r % Coordenadas del punto inicial s0 del vector % Coordenadas del punto final s1 del vector s % Coordenadas del punto inicial t0 del vector % Coordenadas del punto final t1 del vector t

q r s t

% Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas % Coordenadas del cuarto vector respecto al eje de coordenadas % Coordenadas del quinto vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r, s, Y t SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector p Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) % Hallamos la norma del vector q Longitud3A = norm(r); % Hallamos la norma del vector r Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) % Hallamos la norma del vector r Longitud4A = norm(s); % Hallamos la norma del vector s Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2+(z8-z7)^2)) % Hallamos la norma del vector s Longitud5A = norm(t); % Hallamos la norma del vector t Longitud5B = sqrt(((x10-x9)^2+(y10-y9)^2+(z10-z9)^2)) % Hallamos la norma del vector t % Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A | Longitud1A>Longitud5A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A | Longitud2A>Longitud5A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A | Longitud3A>Longitud5A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A | Longitud4A>Longitud5A b = Longitud4A; elseif Longitud5A>Longitud1A | Longitud5A>Longitud2A | Longitud5A>Longitud3A | Longitud5A>Longitud4A b = Longitud5A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'b',1) % Graficamos el segundo vector 3D hold on vector3d(r0,r1,'b',1) % Graficamos el tercer vector 3D

p

hold on vector3d(s0,s1,'m',1) % Graficamos el cuarto vector 3D hold on vector3d(t0,t1,'c',1) % Graficamos el quinto vector 3D grid on title('Grafico de cinco vectores en 3D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b % El sistema tiene sus ejes definidos en tres dimensiones

elseif action == 6 clear; clc; subplot(1,3,3,'replace') disp('GRAFICO DE SEIS VECTORES EN 3D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z5text'); z5 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z6text'); z6 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x7text');

% CONDICION Si se ha elegido graficar SEIS vectores % Limpiamos el Workspace % Limpiamos el Command Window % Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de z4 de get retorna el valor de zhandle y findobj retorna el valor de x5 de get retorna el valor de xhandle y findobj retorna el valor de y5 de get retorna el valor de yhandle y findobj retorna el valor de z5 de get retorna el valor de zhandle y findobj retorna el valor de x6 de get retorna el valor de xhandle y findobj retorna el valor de y6 de get retorna el valor de yhandle y findobj retorna el valor de z6 de get retorna el valor de zhandle y findobj retorna el valor de x7 de

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en z4 Caja Ingreso ubica en x5 Caja Ingreso ubica en y5 Caja Ingreso ubica en z5 Caja Ingreso ubica en x6 Caja Ingreso ubica en y6 Caja Ingreso ubica en z6 Caja Ingreso

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (z4text) y lo ubica en zhandle Datos (x5text) y lo ubica en xhandle Datos (y5text) y lo ubica en yhandle Datos (z5text) y lo ubica en zhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (z6text) y lo ubica en zhandle Datos (x7text) y lo ubica en xhandle

x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z7text'); z7 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z8text'); z8 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x9text'); x9 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y9text'); y9 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z9text'); z9 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x10text'); x10 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text'); y10 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z10text'); z10 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x11text'); x11 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y11text'); y11 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z11text'); z11 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x12text'); x12 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y12text'); y12 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z12text'); z12 = eval(get(zhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 t0 t1 u0 u1 p q r s t u

= = = = = = = = = = = =

= = = = = =

[x1 y1 z1]; [x2 y2 z2]; [x3 y3 z3]; [x4 y4 z4]; [x5 y5 z5]; [x6 y6 z6]; [x7 y7 z7]; [x8 y8 z8]; [x9 y9 z9]; [x10 y10 z10]; [x11 y11 z11]; [x12 y12 z12];

[(x2-x1) (y2-y1) (z2-z1)] [(x4-x3) (y4-y3) (z4-z3)] [(x6-x5) (y6-y5) (z6-z5)] [(x8-x7) (y8-y7) (z8-z7)] [(x10-x9) (y10-y9) (z10-z9)] [(x12-x11) (y12-y11) (z12-z11)]

% get retorna el valor de xhandle y lo ubica en x7 % findobj retorna el valor de y7 de la Caja Ingreso Datos (y7text) y % get retorna el valor de yhandle y lo ubica en y7 % findobj retorna el valor de z7 de la Caja Ingreso Datos (z7text) y % get retorna el valor de zhandle y lo ubica en z7 % findobj retorna el valor de x8 de la Caja Ingreso Datos (x8text) y % get retorna el valor de xhandle y lo ubica en x8 % findobj retorna el valor de y8 de la Caja Ingreso Datos (y8text) y % get retorna el valor de yhandle y lo ubica en y8 % findobj retorna el valor de z8 de la Caja Ingreso Datos (z8text) y % get retorna el valor de zhandle y lo ubica en z8 % findobj retorna el valor de x9 de la Caja Ingreso Datos (x9text) y % get retorna el valor de xhandle y lo ubica en x9 % findobj retorna el valor de y9 de la Caja Ingreso Datos (y9text) y % get retorna el valor de yhandle y lo ubica en y9 % findobj retorna el valor de z9 de la Caja Ingreso Datos (z9text) y % get retorna el valor de zhandle y lo ubica en z9 % findobj retorna el valor de x10 de la Caja Ingreso Datos (x10text) % get retorna el valor de xhandle y lo ubica en x10 % findobj retorna el valor de y10 de la Caja Ingreso Datos (y10text) % get retorna el valor de yhandle y lo ubica en y10 % findobj retorna el valor de z10 de la Caja Ingreso Datos (z10text) % get retorna el valor de zhandle y lo ubica en z10 % findobj retorna el valor de x11 de la Caja Ingreso Datos (x11text) % get retorna el valor de xhandle y lo ubica en x11 % findobj retorna el valor de y11 de la Caja Ingreso Datos (y11text) % get retorna el valor de yhandle y lo ubica en y11 % findobj retorna el valor de z11 de la Caja Ingreso Datos (z11text) % get retorna el valor de zhandle y lo ubica en z11 % findobj retorna el valor de x12 de la Caja Ingreso Datos (x12text) % get retorna el valor de xhandle y lo ubica en x12 % findobj retorna el valor de y12 de la Caja Ingreso Datos (y12text) % get retorna el valor de yhandle y lo ubica en y12 % findobj retorna el valor de z12 de la Caja Ingreso Datos (z12text) % get retorna el valor de zhandle y lo ubica en z12

lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en zhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en zhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en zhandle

% Coordenadas del punto inicial p0 del vector p % Coordenadas del punto final p1 del vector p % Coordenadas del punto inicial q0 del vector q % Coordenadas del punto final q1 del vector q % Coordenadas del punto inicial r0 del vector r % Coordenadas del punto final r1 del vector r % Coordenadas del punto inicial s0 del vector s % Coordenadas del punto final s1 del vector s % Coordenadas del punto inicial t0 del vector t % Coordenadas del punto final t1 del vector t % Coordenadas del punto inicial u0 del vector u % Coordenadas del punto final u1 del vector u % Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas % Coordenadas del cuarto vector respecto al eje de coordenadas % Coordenadas del quinto vector respecto al eje de coordenadas % Coordenadas del sexto vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r, s, t Y u SON:' );

Longitud1A Longitud1B Longitud2A Longitud2B Longitud3A Longitud3B Longitud4A Longitud4B Longitud5A Longitud5B Longitud6A Longitud6B

= = = = = = = = = = = =

norm(p); % sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) norm(q); % sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) norm(r); % sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) norm(s); % sqrt(((x8-x7)^2+(y8-y7)^2+(z8-z7)^2)) norm(t); % sqrt(((x10-x9)^2+(y10-y9)^2+(z10-z9)^2)) norm(u); % sqrt(((x12-x11)^2+(y12-y11)^2+(z12-z11)^2))

Hallamos la norma del vector p % Hallamos la norma del vector p Hallamos la norma del vector q % Hallamos la norma del vector q Hallamos la norma del vector r % Hallamos la norma del vector r Hallamos la norma del vector s % Hallamos la norma del vector s Hallamos la norma del vector t % Hallamos la norma del vector t Hallamos la norma del vector t % Hallamos la norma del vector t

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A | Longitud1A>Longitud5A | Longitud1A>Longitud6A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A | Longitud2A>Longitud5A | Longitud2A>Longitud6A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A | Longitud3A>Longitud5A | Longitud3A>Longitud6A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A | Longitud4A>Longitud5A | Longitud4A>Longitud6A b = Longitud4A; elseif Longitud5A>Longitud1A | Longitud5A>Longitud2A | Longitud5A>Longitud3A | Longitud5A>Longitud4A | Longitud5A>Longitud6A b = Longitud5A; elseif Longitud6A>Longitud1A | Longitud6A>Longitud2A | Longitud6A>Longitud3A | Longitud6A>Longitud4A | Longitud6A>Longitud5A b = Longitud6A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A b = Longitud1A; end subplot(1,3,3) vector3d(p0,p1,'r',1) hold on vector3d(q0,q1,'g',1) hold on vector3d(r0,r1,'b',1) hold on vector3d(s0,s1,'m',1) hold on vector3d(t0,t1,'c',1) hold on vector3d(u0,u1,'y',1) grid on title('Grafico de seis xlabel('Eje X') ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b

% Graficamos el primer vector 3D % Graficamos el segundo vector 3D % Graficamos el tercer vector 3D % Graficamos el cuarto vector 3D % Graficamos el quinto vector 3D % Graficamos el sexto vector 3D vectores en 3D');

elseif action == 7 clear; clc; subplot(1,3,3,'replace')

% Dar nombre a los ejes % El sistema tiene sus ejes definidos en tres dimensiones

% CONDICION Si se ha elegido graficar SIETE vectores % Limpiamos el Workspace % Limpiamos el Command Window % Desactivamos cualquier grafico anterior realizado (1 fila, 3 columnas y 3ra posicion)

disp('GRAFICO DE SIETE VECTORES EN 3D')

% Se visualizara en el Command Window este mensaje

xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z5text'); z5 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z6text'); z6 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z7text'); z7 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z8text'); z8 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x9text'); x9 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y9text'); y9 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z9text'); z9 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x10text'); x10 = eval(get(xhandle,'String'))

% findobj retorna el valor de x1 de la Caja Ingreso Datos (x1text) y % get retorna el valor de xhandle y lo ubica en x1 % findobj retorna el valor de y1 de la Caja Ingreso Datos (y1text) y % get retorna el valor de yhandle y lo ubica en y1 % findobj retorna el valor de z1 de la Caja Ingreso Datos (z1text) y % get retorna el valor de zhandle y lo ubica en z1 % findobj retorna el valor de x2 de la Caja Ingreso Datos (x2text) y % get retorna el valor de xhandle y lo ubica en x2 % findobj retorna el valor de y2 de la Caja Ingreso Datos (y2text) y % get retorna el valor de yhandle y lo ubica en y2 % findobj retorna el valor de z2 de la Caja Ingreso Datos (z2text) y % get retorna el valor de zhandle y lo ubica en z2 % findobj retorna el valor de x3 de la Caja Ingreso Datos (x3text) y % get retorna el valor de xhandle y lo ubica en x3 % findobj retorna el valor de y3 de la Caja Ingreso Datos (y3text) y % get retorna el valor de yhandle y lo ubica en y3 % findobj retorna el valor de z3 de la Caja Ingreso Datos (z3text) y % get retorna el valor de zhandle y lo ubica en z3 % findobj retorna el valor de x4 de la Caja Ingreso Datos (x4text) y % get retorna el valor de xhandle y lo ubica en x4 % findobj retorna el valor de y4 de la Caja Ingreso Datos (y4text) y % get retorna el valor de yhandle y lo ubica en y4 % findobj retorna el valor de z4 de la Caja Ingreso Datos (z4text) y % get retorna el valor de zhandle y lo ubica en z4 % findobj retorna el valor de x5 de la Caja Ingreso Datos (x5text) y % get retorna el valor de xhandle y lo ubica en x5 % findobj retorna el valor de y5 de la Caja Ingreso Datos (y5text) y % get retorna el valor de yhandle y lo ubica en y5 % findobj retorna el valor de z5 de la Caja Ingreso Datos (z5text) y % get retorna el valor de zhandle y lo ubica en z5 % findobj retorna el valor de x6 de la Caja Ingreso Datos (x6text) y % get retorna el valor de xhandle y lo ubica en x6 % findobj retorna el valor de y6 de la Caja Ingreso Datos (y6text) y % get retorna el valor de yhandle y lo ubica en y6 % findobj retorna el valor de z6 de la Caja Ingreso Datos (z6text) y % get retorna el valor de zhandle y lo ubica en z6 % findobj retorna el valor de x7 de la Caja Ingreso Datos (x7text) y % get retorna el valor de xhandle y lo ubica en x7 % findobj retorna el valor de y7 de la Caja Ingreso Datos (y7text) y % get retorna el valor de yhandle y lo ubica en y7 % findobj retorna el valor de z7 de la Caja Ingreso Datos (z7text) y % get retorna el valor de zhandle y lo ubica en z7 % findobj retorna el valor de x8 de la Caja Ingreso Datos (x8text) y % get retorna el valor de xhandle y lo ubica en x8 % findobj retorna el valor de y8 de la Caja Ingreso Datos (y8text) y % get retorna el valor de yhandle y lo ubica en y8 % findobj retorna el valor de z8 de la Caja Ingreso Datos (z8text) y % get retorna el valor de zhandle y lo ubica en z8 % findobj retorna el valor de x9 de la Caja Ingreso Datos (x9text) y % get retorna el valor de xhandle y lo ubica en x9 % findobj retorna el valor de y9 de la Caja Ingreso Datos (y9text) y % get retorna el valor de yhandle y lo ubica en y9 % findobj retorna el valor de z9 de la Caja Ingreso Datos (z9text) y % get retorna el valor de zhandle y lo ubica en z9 % findobj retorna el valor de x10 de la Caja Ingreso Datos (x10text) % get retorna el valor de xhandle y lo ubica en x10

lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle y lo ubica en xhandle

yhandle = findobj('Tag','y10text'); y10 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z10text'); z10 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x11text'); x11 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y11text'); y11 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z11text'); z11 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x12text'); x12 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y12text'); y12 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z12text'); z12 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x13text'); x13 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y13text'); y13 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z13text'); z13 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x14text'); x14 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y14text'); y14 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z14text'); z14 = eval(get(zhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 t0 t1 u0 u1 v0 v1 p q r s t u v

= = = = = = = = = = = = = =

= = = = = = =

[x1 y1 z1]; [x2 y2 z2]; [x3 y3 z3]; [x4 y4 z4]; [x5 y5 z5]; [x6 y6 z6]; [x7 y7 z7]; [x8 y8 z8]; [x9 y9 z9]; [x10 y10 z10]; [x11 y11 z11]; [x12 y12 z12]; [x13 y13 z13]; [x14 y14 z14];

[(x2-x1) (y2-y1) (z2-z1)] [(x4-x3) (y4-y3) (z4-z3)] [(x6-x5) (y6-y5) (z6-z5)] [(x8-x7) (y8-y7) (z8-z7)] [(x10-x9) (y10-y9) (z10-z9)] [(x12-x11) (y12-y11) (z12-z11)] [(x14-x13) (y14-y13) (z14-z13)]

% % % % % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de y10 get retorna el valor de yhandle findobj retorna el valor de z10 get retorna el valor de zhandle findobj retorna el valor de x11 get retorna el valor de xhandle findobj retorna el valor de y11 get retorna el valor de yhandle findobj retorna el valor de z11 get retorna el valor de zhandle findobj retorna el valor de x12 get retorna el valor de xhandle findobj retorna el valor de y12 get retorna el valor de yhandle findobj retorna el valor de z12 get retorna el valor de zhandle findobj retorna el valor de x13 get retorna el valor de xhandle findobj retorna el valor de y13 get retorna el valor de yhandle findobj retorna el valor de z13 get retorna el valor de zhandle findobj retorna el valor de x14 get retorna el valor de xhandle findobj retorna el valor de y14 get retorna el valor de yhandle findobj retorna el valor de z14 get retorna el valor de zhandle

de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica

Ingreso en y10 Ingreso en z10 Ingreso en x11 Ingreso en y11 Ingreso en z11 Ingreso en x12 Ingreso en y12 Ingreso en z12 Ingreso en x13 Ingreso en y13 Ingreso en z13 Ingreso en x14 Ingreso en y14 Ingreso en z14

Datos (y10text) y lo ubica en yhandle Datos (z10text) y lo ubica en zhandle Datos (x11text) y lo ubica en xhandle Datos (y11text) y lo ubica en yhandle Datos (z11text) y lo ubica en zhandle Datos (x12text) y lo ubica en xhandle Datos (y12text) y lo ubica en yhandle Datos (z12text) y lo ubica en zhandle Datos (x13text) y lo ubica en xhandle Datos (y13text) y lo ubica en yhandle Datos (z13text) y lo ubica en zhandle Datos (x14text) y lo ubica en xhandle Datos (y14text) y lo ubica en yhandle Datos (z14text) y lo ubica en zhandle

% Coordenadas del punto inicial p0 del vector p % Coordenadas del punto final p1 del vector p % Coordenadas del punto inicial q0 del vector q % Coordenadas del punto final q1 del vector q % Coordenadas del punto inicial r0 del vector r % Coordenadas del punto final r1 del vector r % Coordenadas del punto inicial s0 del vector s % Coordenadas del punto final s1 del vector s % Coordenadas del punto inicial t0 del vector t % Coordenadas del punto final t1 del vector t % Coordenadas del punto inicial u0 del vector u % Coordenadas del punto final u1 del vector u % Coordenadas del punto inicial v0 del vector v % Coordenadas del punto final v1 del vector v % Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas % Coordenadas del cuarto vector respecto al eje de coordenadas % Coordenadas del quinto vector respecto al eje de coordenadas % Coordenadas del sexto vector respecto al eje de coordenadas % Coordenadas del septimo vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r, s, t, u Y v SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector p Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) % Hallamos la norma del vector q

Longitud3A Longitud3B Longitud4A Longitud4B Longitud5A Longitud5B Longitud6A Longitud6B Longitud7A Longitud7B

= = = = = = = = = =

norm(r); % sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) norm(s); % sqrt(((x8-x7)^2+(y8-y7)^2+(z8-z7)^2)) norm(t); % sqrt(((x10-x9)^2+(y10-y9)^2+(z10-z9)^2)) norm(u); % sqrt(((x12-x11)^2+(y12-y11)^2+(z12-z11)^2)) norm(v); % sqrt(((x14-x13)^2+(y14-y13)^2+(z14-z13)^2))

Hallamos la norma del vector r % Hallamos la norma del vector r Hallamos la norma del vector s % Hallamos la norma del vector s Hallamos la norma del vector t % Hallamos la norma del vector t Hallamos la norma del vector t % Hallamos la norma del vector t Hallamos la norma del vector v % Hallamos la norma del vector v

% Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A | Longitud1A>Longitud5A | Longitud1A>Longitud6A | Longitud1A>Longitud7A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A | Longitud2A>Longitud5A | Longitud2A>Longitud6A | Longitud2A>Longitud7A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A | Longitud3A>Longitud5A | Longitud3A>Longitud6A | Longitud3A>Longitud7A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A | Longitud4A>Longitud5A | Longitud4A>Longitud6A | Longitud4A>Longitud7A b = Longitud4A; elseif Longitud5A>Longitud1A | Longitud5A>Longitud2A | Longitud5A>Longitud3A | Longitud5A>Longitud4A | Longitud5A>Longitud6A | Longitud5A>Longitud7A b = Longitud5A; elseif Longitud6A>Longitud1A | Longitud6A>Longitud2A | Longitud6A>Longitud3A | Longitud6A>Longitud4A | Longitud6A>Longitud5A | Longitud6A>Longitud7A b = Longitud6A; elseif Longitud7A>Longitud1A | Longitud7A>Longitud2A | Longitud7A>Longitud3A | Longitud7A>Longitud4A | Longitud7A>Longitud5A | Longitud7A>Longitud6A b = Longitud7A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A | Longitud1A==Longitud7A b = Longitud1A; end subplot(1,3,3) % Activamos el grafico en 1 fila, 3 columnas y 3ra posicion vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D hold on vector3d(r0,r1,'b',1) % Graficamos el tercer vector 3D hold on vector3d(s0,s1,'m',1) % Graficamos el cuarto vector 3D hold on vector3d(t0,t1,'c',1) % Graficamos el quinto vector 3D hold on vector3d(u0,u1,'y',1) % Graficamos el sexto vector 3D hold on vector3d(v0,v1,'k',1) % Graficamos el septimo vector 3D grid on title('Grafico de siete vectores en 3D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b % El sistema tiene sus ejes definidos en tres dimensiones elseif action == 8 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar OCHO vectores % Limpiamos el Workspace % Limpiamos el Command Window % Desactivamos cualquier grafico anterior realizado (1 fila, 3 columnas y 3ra posicion)

disp('GRAFICO DE OCHO VECTORES EN 3D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z5text'); z5 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z6text'); z6 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z7text'); z7 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z8text'); z8 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x9text'); x9 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y9text'); y9 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z9text'); z9 = eval(get(zhandle,'String'))

% Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y findobj retorna el valor de z4 de get retorna el valor de zhandle y findobj retorna el valor de x5 de get retorna el valor de xhandle y findobj retorna el valor de y5 de get retorna el valor de yhandle y findobj retorna el valor de z5 de get retorna el valor de zhandle y findobj retorna el valor de x6 de get retorna el valor de xhandle y findobj retorna el valor de y6 de get retorna el valor de yhandle y findobj retorna el valor de z6 de get retorna el valor de zhandle y findobj retorna el valor de x7 de get retorna el valor de xhandle y findobj retorna el valor de y7 de get retorna el valor de yhandle y findobj retorna el valor de z7 de get retorna el valor de zhandle y findobj retorna el valor de x8 de get retorna el valor de xhandle y findobj retorna el valor de y8 de get retorna el valor de yhandle y findobj retorna el valor de z8 de get retorna el valor de zhandle y findobj retorna el valor de x9 de get retorna el valor de xhandle y findobj retorna el valor de y9 de get retorna el valor de yhandle y findobj retorna el valor de z9 de get retorna el valor de zhandle y

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4 Caja Ingreso ubica en z4 Caja Ingreso ubica en x5 Caja Ingreso ubica en y5 Caja Ingreso ubica en z5 Caja Ingreso ubica en x6 Caja Ingreso ubica en y6 Caja Ingreso ubica en z6 Caja Ingreso ubica en x7 Caja Ingreso ubica en y7 Caja Ingreso ubica en z7 Caja Ingreso ubica en x8 Caja Ingreso ubica en y8 Caja Ingreso ubica en z8 Caja Ingreso ubica en x9 Caja Ingreso ubica en y9 Caja Ingreso ubica en z9

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (z4text) y lo ubica en zhandle Datos (x5text) y lo ubica en xhandle Datos (y5text) y lo ubica en yhandle Datos (z5text) y lo ubica en zhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (z6text) y lo ubica en zhandle Datos (x7text) y lo ubica en xhandle Datos (y7text) y lo ubica en yhandle Datos (z7text) y lo ubica en zhandle Datos (x8text) y lo ubica en xhandle Datos (y8text) y lo ubica en yhandle Datos (z8text) y lo ubica en zhandle Datos (x9text) y lo ubica en xhandle Datos (y9text) y lo ubica en yhandle Datos (z9text) y lo ubica en zhandle

xhandle = findobj('Tag','x10text'); x10 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text'); y10 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z10text'); z10 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x11text'); x11 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y11text'); y11 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z11text'); z11 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x12text'); x12 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y12text'); y12 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z12text'); z12 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x13text'); x13 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y13text'); y13 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z13text'); z13 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x14text'); x14 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y14text'); y14 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z14text'); z14 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x15text'); x15 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y15text'); y15 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z15text'); z15 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x16text'); x16 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y16text'); y16 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z16text'); z16 = eval(get(zhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 t0 t1 u0 u1 v0

= = = = = = = = = = = = =

[x1 y1 z1]; [x2 y2 z2]; [x3 y3 z3]; [x4 y4 z4]; [x5 y5 z5]; [x6 y6 z6]; [x7 y7 z7]; [x8 y8 z8]; [x9 y9 z9]; [x10 y10 z10]; [x11 y11 z11]; [x12 y12 z12]; [x13 y13 z13];

% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x10 get retorna el valor de xhandle findobj retorna el valor de y10 get retorna el valor de yhandle findobj retorna el valor de z10 get retorna el valor de zhandle findobj retorna el valor de x11 get retorna el valor de xhandle findobj retorna el valor de y11 get retorna el valor de yhandle findobj retorna el valor de z11 get retorna el valor de zhandle findobj retorna el valor de x12 get retorna el valor de xhandle findobj retorna el valor de y12 get retorna el valor de yhandle findobj retorna el valor de z12 get retorna el valor de zhandle findobj retorna el valor de x13 get retorna el valor de xhandle findobj retorna el valor de y13 get retorna el valor de yhandle findobj retorna el valor de z13 get retorna el valor de zhandle findobj retorna el valor de x14 get retorna el valor de xhandle findobj retorna el valor de y14 get retorna el valor de yhandle findobj retorna el valor de z14 get retorna el valor de zhandle findobj retorna el valor de x15 get retorna el valor de xhandle findobj retorna el valor de y15 get retorna el valor de yhandle findobj retorna el valor de z15 get retorna el valor de zhandle findobj retorna el valor de x16 get retorna el valor de xhandle findobj retorna el valor de y16 get retorna el valor de yhandle findobj retorna el valor de z16 get retorna el valor de zhandle

de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica

Ingreso en x10 Ingreso en y10 Ingreso en z10 Ingreso en x11 Ingreso en y11 Ingreso en z11 Ingreso en x12 Ingreso en y12 Ingreso en z12 Ingreso en x13 Ingreso en y13 Ingreso en z13 Ingreso en x14 Ingreso en y14 Ingreso en z14 Ingreso en x15 Ingreso en y15 Ingreso en z15 Ingreso en x16 Ingreso en y16 Ingreso en z16

Datos (x10text) y lo ubica en xhandle Datos (y10text) y lo ubica en yhandle Datos (z10text) y lo ubica en zhandle Datos (x11text) y lo ubica en xhandle Datos (y11text) y lo ubica en yhandle Datos (z11text) y lo ubica en zhandle Datos (x12text) y lo ubica en xhandle Datos (y12text) y lo ubica en yhandle Datos (z12text) y lo ubica en zhandle Datos (x13text) y lo ubica en xhandle Datos (y13text) y lo ubica en yhandle Datos (z13text) y lo ubica en zhandle Datos (x14text) y lo ubica en xhandle Datos (y14text) y lo ubica en yhandle Datos (z14text) y lo ubica en zhandle Datos (x15text) y lo ubica en xhandle Datos (y15text) y lo ubica en yhandle Datos (z15text) y lo ubica en zhandle Datos (x16text) y lo ubica en xhandle Datos (y16text) y lo ubica en yhandle Datos (z16text) y lo ubica en zhandle

% Coordenadas del punto inicial p0 del vector p % Coordenadas del punto final p1 del vector p % Coordenadas del punto inicial q0 del vector q % Coordenadas del punto final q1 del vector q % Coordenadas del punto inicial r0 del vector r % Coordenadas del punto final r1 del vector r % Coordenadas del punto inicial s0 del vector s % Coordenadas del punto final s1 del vector s % Coordenadas del punto inicial t0 del vector t % Coordenadas del punto final t1 del vector t % Coordenadas del punto inicial u0 del vector u % Coordenadas del punto final u1 del vector u % Coordenadas del punto inicial v0 del vector v

v1 = [x14 y14 z14]; w0 = [x15 y15 z15]; w1 = [x16 y16 z16]; p q r s t u v w

= = = = = = = =

[(x2-x1) (y2-y1) (z2-z1)] [(x4-x3) (y4-y3) (z4-z3)] [(x6-x5) (y6-y5) (z6-z5)] [(x8-x7) (y8-y7) (z8-z7)] [(x10-x9) (y10-y9) (z10-z9)] [(x12-x11) (y12-y11) (z12-z11)] [(x14-x13) (y14-y13) (z14-z13)] [(x16-x15) (y16-y15) (z16-z15)]

% Coordenadas del punto final v1 del vector v % Coordenadas del punto inicial w0 del vector w % Coordenadas del punto final w1 del vector w % Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas % Coordenadas del cuarto vector respecto al eje de coordenadas % Coordenadas del quinto vector respecto al eje de coordenadas % Coordenadas del sexto vector respecto al eje de coordenadas % Coordenadas del septimo vector respecto al eje de coordenadas % Coordenadas del octavo vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r, s, t, u, v Y w SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector p Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) % Hallamos la norma del vector q Longitud3A = norm(r); % Hallamos la norma del vector r Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) % Hallamos la norma del vector r Longitud4A = norm(s); % Hallamos la norma del vector s Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2+(z8-z7)^2)) % Hallamos la norma del vector s Longitud5A = norm(t); % Hallamos la norma del vector t Longitud5B = sqrt(((x10-x9)^2+(y10-y9)^2+(z10-z9)^2)) % Hallamos la norma del vector t Longitud6A = norm(u); % Hallamos la norma del vector u Longitud6B = sqrt(((x12-x11)^2+(y12-y11)^2+(z12-z11)^2)) % Hallamos la norma del vector u Longitud7A = norm(v); % Hallamos la norma del vector v Longitud7B = sqrt(((x14-x13)^2+(y14-y13)^2+(z14-z13)^2)) % Hallamos la norma del vector v Longitud8A = norm(w); % Hallamos la norma del vector w Longitud8B = sqrt(((x16-x15)^2+(y16-y15)^2+(z16-z15)^2)) % Hallamos la norma del vector w % Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A | Longitud1A>Longitud5A | Longitud1A>Longitud6A | Longitud1A>Longitud7A | Longitud1A>Longitud8A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A | Longitud2A>Longitud5A | Longitud2A>Longitud6A | Longitud2A>Longitud7A Longitud2A>Longitud8A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A | Longitud3A>Longitud5A | Longitud3A>Longitud6A | Longitud3A>Longitud7A Longitud3A>Longitud8A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A | Longitud4A>Longitud5A | Longitud4A>Longitud6A | Longitud4A>Longitud7A Longitud4A>Longitud8A b = Longitud4A; elseif Longitud5A>Longitud1A | Longitud5A>Longitud2A | Longitud5A>Longitud3A | Longitud5A>Longitud4A | Longitud5A>Longitud6A | Longitud5A>Longitud7A Longitud5A>Longitud8A b = Longitud5A; elseif Longitud6A>Longitud1A | Longitud6A>Longitud2A | Longitud6A>Longitud3A | Longitud6A>Longitud4A | Longitud6A>Longitud5A | Longitud6A>Longitud7A Longitud6A>Longitud8A b = Longitud6A; elseif Longitud7A>Longitud1A | Longitud7A>Longitud2A | Longitud7A>Longitud3A | Longitud7A>Longitud4A | Longitud7A>Longitud5A | Longitud7A>Longitud6A Longitud7A>Longitud8A b = Longitud7A; elseif Longitud8A>Longitud1A | Longitud8A>Longitud2A | Longitud8A>Longitud3A | Longitud8A>Longitud4A | Longitud8A>Longitud5A | Longitud8A>Longitud6A Longitud8A>Longitud7A b = Longitud8A;

| | | | | | |

elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A | Longitud1A==Longitud7A | Longitud1A==Longitud8A b = Longitud1A; end subplot(1,3,3) % Activamos el grafico en 1 fila, 3 columnas y 3ra posicion vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D hold on vector3d(r0,r1,'b',1) % Graficamos el tercer vector 3D hold on vector3d(s0,s1,'m',1) % Graficamos el cuarto vector 3D hold on vector3d(t0,t1,'c',1) % Graficamos el quinto vector 3D hold on vector3d(u0,u1,'y',1) % Graficamos el sexto vector 3D hold on vector3d(v0,v1,'k',1) % Graficamos el septimo vector 3D hold on vector3d(w0,w1,'r',1) % Graficamos el octavo vector 3D grid on title('Grafico de ocho vectores en 3D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b % El sistema tiene sus ejes definidos en tres dimensiones

elseif action == 9 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar NUEVE vectores % Limpiamos el Workspace % Limpiamos el Command Window % Desactivamos cualquier grafico anterior realizado (1 fila, 3 columnas y 3ra posicion)

disp('GRAFICO DE NUEVE VECTORES EN 3D') xhandle = findobj('Tag','x1text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y1text'); y1 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z1text'); z1 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x2text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y2 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z2text'); z2 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x3text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y3text'); y3 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z3text'); z3 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x4text'); x4 = eval(get(xhandle,'String'))

% Se visualizara en el Command Window este mensaje % % % % % % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de z1 de get retorna el valor de zhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de z2 de get retorna el valor de zhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de z3 de get retorna el valor de zhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y

la lo la lo la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en z1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en z2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en z3 Caja Ingreso ubica en x4

Datos (x1text) y lo ubica en xhandle Datos (y1text) y lo ubica en yhandle Datos (z1text) y lo ubica en zhandle Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (z2text) y lo ubica en zhandle Datos (x3text) y lo ubica en xhandle Datos (y3text) y lo ubica en yhandle Datos (z3text) y lo ubica en zhandle Datos (x4text) y lo ubica en xhandle

yhandle = findobj('Tag','y4text'); y4 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z4text'); z4 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x5text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y5text'); y5 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z5text'); z5 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x6text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y6 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z6text'); z6 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x7text'); x7 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y7text'); y7 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z7text'); z7 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x8text'); x8 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y8 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z8text'); z8 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x9text'); x9 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y9text'); y9 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z9text'); z9 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x10text'); x10 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text'); y10 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z10text'); z10 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x11text'); x11 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y11text'); y11 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z11text'); z11 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x12text'); x12 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y12text'); y12 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z12text'); z12 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x13text'); x13 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y13text'); y13 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z13text');

% findobj retorna el valor de y4 de la Caja Ingreso Datos (y4text) y % get retorna el valor de yhandle y lo ubica en y4 % findobj retorna el valor de z4 de la Caja Ingreso Datos (z4text) y % get retorna el valor de zhandle y lo ubica en z4 % findobj retorna el valor de x5 de la Caja Ingreso Datos (x5text) y % get retorna el valor de xhandle y lo ubica en x5 % findobj retorna el valor de y5 de la Caja Ingreso Datos (y5text) y % get retorna el valor de yhandle y lo ubica en y5 % findobj retorna el valor de z5 de la Caja Ingreso Datos (z5text) y % get retorna el valor de zhandle y lo ubica en z5 % findobj retorna el valor de x6 de la Caja Ingreso Datos (x6text) y % get retorna el valor de xhandle y lo ubica en x6 % findobj retorna el valor de y6 de la Caja Ingreso Datos (y6text) y % get retorna el valor de yhandle y lo ubica en y6 % findobj retorna el valor de z6 de la Caja Ingreso Datos (z6text) y % get retorna el valor de zhandle y lo ubica en z6 % findobj retorna el valor de x7 de la Caja Ingreso Datos (x7text) y % get retorna el valor de xhandle y lo ubica en x7 % findobj retorna el valor de y7 de la Caja Ingreso Datos (y7text) y % get retorna el valor de yhandle y lo ubica en y7 % findobj retorna el valor de z7 de la Caja Ingreso Datos (z7text) y % get retorna el valor de zhandle y lo ubica en z7 % findobj retorna el valor de x8 de la Caja Ingreso Datos (x8text) y % get retorna el valor de xhandle y lo ubica en x8 % findobj retorna el valor de y8 de la Caja Ingreso Datos (y8text) y % get retorna el valor de yhandle y lo ubica en y8 % findobj retorna el valor de z8 de la Caja Ingreso Datos (z8text) y % get retorna el valor de zhandle y lo ubica en z8 % findobj retorna el valor de x9 de la Caja Ingreso Datos (x9text) y % get retorna el valor de xhandle y lo ubica en x9 % findobj retorna el valor de y9 de la Caja Ingreso Datos (y9text) y % get retorna el valor de yhandle y lo ubica en y9 % findobj retorna el valor de z9 de la Caja Ingreso Datos (z9text) y % get retorna el valor de zhandle y lo ubica en z9 % findobj retorna el valor de x10 de la Caja Ingreso Datos (x10text) % get retorna el valor de xhandle y lo ubica en x10 % findobj retorna el valor de y10 de la Caja Ingreso Datos (y10text) % get retorna el valor de yhandle y lo ubica en y10 % findobj retorna el valor de z10 de la Caja Ingreso Datos (z10text) % get retorna el valor de zhandle y lo ubica en z10 % findobj retorna el valor de x11 de la Caja Ingreso Datos (x11text) % get retorna el valor de xhandle y lo ubica en x11 % findobj retorna el valor de y11 de la Caja Ingreso Datos (y11text) % get retorna el valor de yhandle y lo ubica en y11 % findobj retorna el valor de z11 de la Caja Ingreso Datos (z11text) % get retorna el valor de zhandle y lo ubica en z11 % findobj retorna el valor de x12 de la Caja Ingreso Datos (x12text) % get retorna el valor de xhandle y lo ubica en x12 % findobj retorna el valor de y12 de la Caja Ingreso Datos (y12text) % get retorna el valor de yhandle y lo ubica en y12 % findobj retorna el valor de z12 de la Caja Ingreso Datos (z12text) % get retorna el valor de zhandle y lo ubica en z12 % findobj retorna el valor de x13 de la Caja Ingreso Datos (x13text) % get retorna el valor de xhandle y lo ubica en x13 % findobj retorna el valor de y13 de la Caja Ingreso Datos (y13text) % get retorna el valor de yhandle y lo ubica en y13 % findobj retorna el valor de z13 de la Caja Ingreso Datos (z13text)

lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle lo ubica en xhandle lo ubica en yhandle lo ubica en zhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en zhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en zhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en zhandle y lo ubica en xhandle y lo ubica en yhandle y lo ubica en zhandle

z13 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x14text'); x14 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y14text'); y14 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z14text'); z14 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x15text'); x15 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y15text'); y15 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z15text'); z15 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x16text'); x16 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y16text'); y16 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z16text'); z16 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x17text'); x17 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y17text'); y17 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z17text'); z17 = eval(get(zhandle,'String')) xhandle = findobj('Tag','x18text'); x18 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y18text'); y18 = eval(get(yhandle,'String')) zhandle = findobj('Tag','z18text'); z18 = eval(get(zhandle,'String')) p0 p1 q0 q1 r0 r1 s0 s1 t0 t1 u0 u1 v0 v1 w0 w1 m0 m1 p q r s t u

= = = = = = = = = = = = = = = = = =

= = = = = =

[x1 y1 z1]; [x2 y2 z2]; [x3 y3 z3]; [x4 y4 z4]; [x5 y5 z5]; [x6 y6 z6]; [x7 y7 z7]; [x8 y8 z8]; [x9 y9 z9]; [x10 y10 z10]; [x11 y11 z11]; [x12 y12 z12]; [x13 y13 z13]; [x14 y14 z14]; [x15 y15 z15]; [x16 y16 z16]; [x17 y17 z17]; [x18 y18 z18];

[(x2-x1) (y2-y1) (z2-z1)] [(x4-x3) (y4-y3) (z4-z3)] [(x6-x5) (y6-y5) (z6-z5)] [(x8-x7) (y8-y7) (z8-z7)] [(x10-x9) (y10-y9) (z10-z9)] [(x12-x11) (y12-y11) (z12-z11)]

% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

get retorna el valor de zhandle findobj retorna el valor de x14 get retorna el valor de xhandle findobj retorna el valor de y14 get retorna el valor de yhandle findobj retorna el valor de z14 get retorna el valor de zhandle findobj retorna el valor de x15 get retorna el valor de xhandle findobj retorna el valor de y15 get retorna el valor de yhandle findobj retorna el valor de z15 get retorna el valor de zhandle findobj retorna el valor de x16 get retorna el valor de xhandle findobj retorna el valor de y16 get retorna el valor de yhandle findobj retorna el valor de z16 get retorna el valor de zhandle findobj retorna el valor de x17 get retorna el valor de xhandle findobj retorna el valor de y17 get retorna el valor de yhandle findobj retorna el valor de z17 get retorna el valor de zhandle findobj retorna el valor de x18 get retorna el valor de xhandle findobj retorna el valor de y18 get retorna el valor de yhandle findobj retorna el valor de z18 get retorna el valor de zhandle

y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica de la Caja y lo ubica

en z13 Ingreso en x14 Ingreso en y14 Ingreso en z14 Ingreso en x15 Ingreso en y15 Ingreso en z15 Ingreso en x16 Ingreso en y16 Ingreso en z16 Ingreso en x17 Ingreso en y17 Ingreso en z17 Ingreso en x18 Ingreso en y18 Ingreso en z18

Datos (x14text) y lo ubica en xhandle Datos (y14text) y lo ubica en yhandle Datos (z14text) y lo ubica en zhandle Datos (x15text) y lo ubica en xhandle Datos (y15text) y lo ubica en yhandle Datos (z15text) y lo ubica en zhandle Datos (x16text) y lo ubica en xhandle Datos (y16text) y lo ubica en yhandle Datos (z16text) y lo ubica en zhandle Datos (x15text) y lo ubica en xhandle Datos (y17text) y lo ubica en yhandle Datos (z17text) y lo ubica en zhandle Datos (x18text) y lo ubica en xhandle Datos (y18text) y lo ubica en yhandle Datos (z18text) y lo ubica en zhandle

% Coordenadas del punto inicial p0 del vector p % Coordenadas del punto final p1 del vector p % Coordenadas del punto inicial q0 del vector q % Coordenadas del punto final q1 del vector q % Coordenadas del punto inicial r0 del vector r % Coordenadas del punto final r1 del vector r % Coordenadas del punto inicial s0 del vector s % Coordenadas del punto final s1 del vector s % Coordenadas del punto inicial t0 del vector t % Coordenadas del punto final t1 del vector t % Coordenadas del punto inicial u0 del vector u % Coordenadas del punto final u1 del vector u % Coordenadas del punto inicial v0 del vector v % Coordenadas del punto final v1 del vector v % Coordenadas del punto inicial w0 del vector w % Coordenadas del punto final w1 del vector w % Coordenadas del punto inicial m0 del vector m % Coordenadas del punto final m1 del vector m % Coordenadas del primer vector respecto al eje de coordenadas % Coordenadas del segundo vector respecto al eje de coordenadas % Coordenadas del tercer vector respecto al eje de coordenadas % Coordenadas del cuarto vector respecto al eje de coordenadas % Coordenadas del quinto vector respecto al eje de coordenadas % Coordenadas del sexto vector respecto al eje de coordenadas

v = [(x14-x13) (y14-y13) (z14-z13)] w = [(x16-x15) (y16-y15) (z16-z15)] m = [(x18-x17) (y18-y17) (z18-z17)]

% Coordenadas del septimo vector respecto al eje de coordenadas % Coordenadas del octavo vector respecto al eje de coordenadas % Coordenadas del noveno vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r, s, t, u, v, w Y m SON:' ); Longitud1A = norm(p); % Hallamos la norma del vector p Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector p Longitud2A = norm(q); % Hallamos la norma del vector q Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) % Hallamos la norma del vector q Longitud3A = norm(r); % Hallamos la norma del vector r Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) % Hallamos la norma del vector r Longitud4A = norm(s); % Hallamos la norma del vector s Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2+(z8-z7)^2)) % Hallamos la norma del vector s Longitud5A = norm(t); % Hallamos la norma del vector t Longitud5B = sqrt(((x10-x9)^2+(y10-y9)^2+(z10-z9)^2)) % Hallamos la norma del vector t Longitud6A = norm(u); % Hallamos la norma del vector u Longitud6B = sqrt(((x12-x11)^2+(y12-y11)^2+(z12-z11)^2)) % Hallamos la norma del vector u Longitud7A = norm(v); % Hallamos la norma del vector v Longitud7B = sqrt(((x14-x13)^2+(y14-y13)^2+(z14-z13)^2)) % Hallamos la norma del vector v Longitud8A = norm(w); % Hallamos la norma del vector w Longitud8B = sqrt(((x16-x15)^2+(y16-y15)^2+(z16-z15)^2)) % Hallamos la norma del vector w Longitud9A = norm(m); % Hallamos la norma del vector m Longitud9B = sqrt(((x16-x15)^2+(y16-y15)^2+(z16-z15)^2)) % Hallamos la norma del vector m % Condicionamos las longitudes de los vectores a fin de establecer el sistema de ejes a ser implementado if Longitud1A>Longitud2A | Longitud1A>Longitud3A | Longitud1A>Longitud4A | Longitud1A>Longitud5A | Longitud1A>Longitud6A | Longitud1A>Longitud7A | Longitud1A>Longitud8A | Longitud1A>Longitud9A b = Longitud1A; elseif Longitud2A>Longitud1A | Longitud2A>Longitud3A | Longitud2A>Longitud4A | Longitud2A>Longitud5A | Longitud2A>Longitud6A | Longitud2A>Longitud7A Longitud2A>Longitud8A | Longitud2A>Longitud9A b = Longitud2A; elseif Longitud3A>Longitud1A | Longitud3A>Longitud2A | Longitud3A>Longitud4A | Longitud3A>Longitud5A | Longitud3A>Longitud6A | Longitud3A>Longitud7A Longitud3A>Longitud8A | Longitud3A>Longitud9A b = Longitud3A; elseif Longitud4A>Longitud1A | Longitud4A>Longitud2A | Longitud4A>Longitud3A | Longitud4A>Longitud5A | Longitud4A>Longitud6A | Longitud4A>Longitud7A Longitud4A>Longitud8A | Longitud4A>Longitud9A b = Longitud4A; elseif Longitud5A>Longitud1A | Longitud5A>Longitud2A | Longitud5A>Longitud3A | Longitud5A>Longitud4A | Longitud5A>Longitud6A | Longitud5A>Longitud7A Longitud5A>Longitud8A | Longitud5A>Longitud9A b = Longitud5A; elseif Longitud6A>Longitud1A | Longitud6A>Longitud2A | Longitud6A>Longitud3A | Longitud6A>Longitud4A | Longitud6A>Longitud5A | Longitud6A>Longitud7A Longitud6A>Longitud8A | Longitud6A>Longitud9A b = Longitud6A; elseif Longitud7A>Longitud1A | Longitud7A>Longitud2A | Longitud7A>Longitud3A | Longitud7A>Longitud4A | Longitud7A>Longitud5A | Longitud7A>Longitud6A Longitud7A>Longitud8A | Longitud7A>Longitud9A b = Longitud7A; elseif Longitud8A>Longitud1A | Longitud8A>Longitud2A | Longitud8A>Longitud3A | Longitud8A>Longitud4A | Longitud8A>Longitud5A | Longitud8A>Longitud6A Longitud8A>Longitud7A | Longitud8A>Longitud9A b = Longitud8A; elseif Longitud9A>Longitud1A | Longitud9A>Longitud2A | Longitud9A>Longitud3A | Longitud9A>Longitud4A | Longitud9A>Longitud5A | Longitud9A>Longitud6A Longitud9A>Longitud7A | Longitud9A>Longitud8A b = Longitud9A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A | Longitud1A==Longitud7A | Longitud1A==Longitud8A | Longitud1A==Longitud9A b = Longitud1A; end

| | | | | | | |

subplot(1,3,3) % Activamos el grafico en 1 fila, 3 columnas y 3ra posicion vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D hold on vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D hold on vector3d(r0,r1,'b',1) % Graficamos el tercer vector 3D hold on vector3d(s0,s1,'m',1) % Graficamos el cuarto vector 3D hold on vector3d(t0,t1,'c',1) % Graficamos el quinto vector 3D hold on vector3d(u0,u1,'y',1) % Graficamos el sexto vector 3D hold on vector3d(v0,v1,'k',1) % Graficamos el septimo vector 3D hold on vector3d(w0,w1,'r',1) % Graficamos el octavo vector 3D hold on vector3d(m0,m1,'g',1) % Graficamos el noveno vector 3D grid on title('Grafico de nueve vectores en 3D'); xlabel('Eje X') % Dar nombre a los ejes ylabel('Eje Y') zlabel('Eje Z') axis([-b b -b b -b b % El sistema tiene sus ejes definidos en tres dimensiones

end end

5. Líneas del algoritmo de la función: vectorposfuncaja3 (Captura información punto final de un vector posición 2D desde una Caja de Control para el grafico de vectores 2D) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Programa de una funcion que permite capturar la informacion de los puntos iniciales y finales de un vector posicion 2D. % Cuando se ejecuta el archivo llamado VECTORCAJACONTROL se llama a esta funcion % Los valores de los vectores se pueden ingresar individualmente en el Command Window segun el programa. % Los vectores deben tener su punto inicial y su punto final. % Una vez realizada la captura se grafican la cantidad de vectores seleccionada con la funcion vector2D % % Las lineas se encuentran comentadas % Importante este archivo se usa con la funcion vector3d para n vectores en 2D y en 3D % % INGENIERO ELECTRONICO MONTEZA ZEVALLOS FIDEL TOMAS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% En esta funcion K es un dato que puede ser 1, 2, 3, 4, 5 o 6 enviada desde la funcion vectorgrafico function vectorposfuncaja3(K) % K es el parametro de entrada para la funcion vectorposfuncaja3 if K == 1 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar UN solo vector de posicion % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE UN VECTOR DE POSICION EN 2D') xhandle = findobj('Tag','x2text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y1 = eval(get(yhandle,'String'))

% % % %

% Se visualizara en el Command Window este mensaje

findobj retorna el valor Factor Peso de edit en la Caja Ingreso Datos (x2text) y lo ubica en xhandle get retorna el valor de xhandle y lo ubica en x1 findobj retorna el valor Angulo Theta de edit en la Caja Ingreso Datos (y2text) y lo ubica en yhandle get retorna el valor de yhandle y lo ubica en y1

fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DEL VECTOR DE POSICION "v" PARA ESTE GRAFICO SON:' ); v = [x1 y1] % Declaramos el vector v en 2D fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DEL VECTOR DE POSICION "v" SON:' ); Longitud1A = norm(v) % Hallamos la norma del vector v s = Longitud1A; subplot(1,3,3) vector2d(v, 'green', s); % Graficamos el vector v grid on title('El grafico de un vector de posicion en 2D'); xlabel('EJE X') % Dar nombre a los ejes ylabel('EJE Y') elseif K == 2 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar DOS vectores de posicion % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE DOS VECTORES DE POSICION EN 2D') xhandle = findobj('Tag','x2text');

% Se visualizara en el Command Window este mensaje

% findobj retorna el valor Factor Peso de edit en la Caja Ingreso Datos (x2text) y lo ubica en xhandle

x1 = eval(get(xhandle, 'String')) yhandle = findobj('Tag','y2text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y2 = eval(get(yhandle,'String'))

% % % % % % %

get retorna el valor de xhandle y lo ubica en x1 findobj retorna el valor Angulo Theta de edit en la Caja Ingreso Datos (y2text) y lo ubica en yhandle get retorna el valor de yhandle y lo ubica en y1 findobj retorna el valor Factor Peso de edit en la Caja Ingreso Datos (x4text) y lo ubica en xhandle get retorna el valor de xhandle y lo ubica en x2 findobj retorna el valor Angulo Theta de edit en la Caja Ingreso Datos (y4text) y lo ubica en yhandle get retorna el valor de yhandle y lo ubica en y2

fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" y "w" PARA ESTE GRAFICO SON:' ); v = [x1 y1] % Declaramos el vector v en 2D w = [x2 y2] % Declaramos el vector w en 2D fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" y "w" SON:' ); Longitud1A = norm(v) % Hallamos la norma del vector v Longitud2A = norm(w) % Hallamos la norma del vector w % Condicionamos las longitudes de los vectores a fin de enviarlos a la funcion drawvec1 como el sistema de ejes a ser implementado if Longitud1A>Longitud2A s = Longitud1A; elseif Longitud2A>Longitud1A s = Longitud2A; elseif Longitud1A==Longitud2A s = Longitud1A; end subplot(1,3,3) vector2d(v, 'green', s); % Graficamos el vector v hold on vector2d(w, 'magenta', s); % Graficamos el vector w grid on title('El grafico de dos vectores de posicion en 2D'); xlabel('EJE X') % Dar nombre a los ejes ylabel('EJE Y') elseif K == 3 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar TRES vectores de posicion % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE TRES VECTORES DE POSICION EN 2D') xhandle = findobj('Tag','x2text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y3 = eval(get(yhandle,'String'))

% % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y

% Se visualizara en el Command Window este mensaje la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3

Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle

fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" y "p" PARA ESTE GRAFICO SON:' ); v = [x1 y1] % Declaramos el vector v en 2D

w = [x2 y2] p = [x3 y3]

% Declaramos el vector w en 2D % Declaramos el vector p en 2D

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" y "p" SON:' ); Longitud1A = norm(v) % Hallamos la norma del vector v Longitud2A = norm(w) % Hallamos la norma del vector w Longitud3A = norm(p) % Hallamos la norma del vector p % Condicionamos las longitudes de los vectores a fin de enviarlos a la funcion drawvec1 como el sistema de ejes a ser implementado if Longitud1A>Longitud2A & Longitud1A>Longitud3A s = Longitud1A; elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A s = Longitud2A; elseif Longitud3A>Longitud1A & Longitud3A>Longitud2A s = Longitud3A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A s = Longitud1A; end subplot(1,3,3) vector2d(v, 'green', s); % Graficamos el vector v hold on vector2d(w, 'magenta', s); % Graficamos el vector w grid on vector2d(p, 'red', s); % Graficamos el vector p grid on title('El grafico de tres vectores de posicion en 2D'); xlabel('EJE X') % Dar nombre a los ejes ylabel('EJE Y') elseif K == 4 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar CUATRO vectores de posicion % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE CUATRO VECTORES DE POSICION EN 2D') xhandle = findobj('Tag','x2text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x8text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y4 = eval(get(yhandle,'String'))

% % % % % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de x4 de get retorna el valor de xhandle y findobj retorna el valor de y4 de get retorna el valor de yhandle y

% Se visualizara en el Command Window este mensaje la lo la lo la lo la lo la lo la lo la lo la lo

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso ubica en x4 Caja Ingreso ubica en y4

Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (x8text) y lo ubica en xhandle Datos (y8text) y lo ubica en yhandle

fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" "p" y "q" PARA ESTE GRAFICO SON:' ); v = [x1 y1] % Declaramos el vector v en 2D

w = [x2 y2] p = [x3 y3] q = [x4 y4]

% Declaramos el vector w en 2D % Declaramos el vector p en 2D % Declaramos el vector q en 2D

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" y "q" SON:' ); Longitud1A = norm(v) % Hallamos la norma del vector v Longitud2A = norm(w) % Hallamos la norma del vector w Longitud3A = norm(p) % Hallamos la norma del vector p Longitud4A = norm(q) % Hallamos la norma del vector q % Condicionamos las longitudes de los vectores a fin de enviarlos a la funcion drawvec1 como el sistema de ejes a ser implementado if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A s = Longitud1A; elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A & Longitud2A>Longitud4A s = Longitud2A; elseif Longitud3A>Longitud1A & Longitud3A>Longitud2A & Longitud3A>Longitud4A s = Longitud3A; elseif Longitud4A>Longitud1A & Longitud4A>Longitud2A & Longitud4A>Longitud3A s = Longitud4A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A s = Longitud1A; end subplot(1,3,3) vector2d(v, 'green', s); hold on vector2d(w, 'magenta', s); grid on vector2d(p, 'red', s); grid on vector2d(q, 'blue', s); grid on title('El grafico de cuatro xlabel('EJE X') ylabel('EJE Y')

% Graficamos el vector v % Graficamos el vector w % Graficamos el vector p % Graficamos el vector p vectores de posicion en 2D'); % Dar nombre a los ejes

elseif K == 5 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar CINCO vectores de posicion % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE CINCO VECTORES DE POSICION EN 2D') xhandle = findobj('Tag','x2text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x8text');

% % % % % % % % % % % % %

findobj retorna el valor de x1 de get retorna el valor de xhandle y findobj retorna el valor de y1 de get retorna el valor de yhandle y findobj retorna el valor de x2 de get retorna el valor de xhandle y findobj retorna el valor de y2 de get retorna el valor de yhandle y findobj retorna el valor de x3 de get retorna el valor de xhandle y findobj retorna el valor de y3 de get retorna el valor de yhandle y findobj retorna el valor de x4 de

% Se visualizara en el Command Window este mensaje la lo la lo la lo la lo la lo la lo la

Caja Ingreso ubica en x1 Caja Ingreso ubica en y1 Caja Ingreso ubica en x2 Caja Ingreso ubica en y2 Caja Ingreso ubica en x3 Caja Ingreso ubica en y3 Caja Ingreso

Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (x8text) y lo ubica en xhandle

x4 = eval(get(xhandle, 'String')) yhandle = findobj('Tag','y8text'); y4 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x10text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text'); y5 = eval(get(yhandle,'String'))

% get retorna el valor de xhandle y % findobj retorna el valor de y4 de % get retorna el valor de yhandle y % findobj retorna el valor de x5 de % get retorna el valor de xhandle y % findobj retorna el valor de y5 de % get retorna el valor de yhandle y

fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS v = [x1 y1] % Declaramos el vector v en w = [x2 y2] % Declaramos el vector w en p = [x3 y3] % Declaramos el vector p en q = [x4 y4] % Declaramos el vector q en r = [x5 y5] % Declaramos el vector r en

lo ubica en x4 la Caja Ingreso Datos (y8text) y lo ubica en yhandle lo ubica en y4 la Caja Ingreso Datos (x10text) y lo ubica en xhandle lo ubica en x5 la Caja Ingreso Datos (y10text) y lo ubica en yhandle lo ubica en y5

DE CADA VECTOR DE POSICION "v" "w" "p" "q" y "r" PARA ESTE GRAFICO SON:' ); 2D 2D 2D 2D 2D

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" "q" y "r" SON:' ); Longitud1A = norm(v) % Hallamos la norma del vector v Longitud2A = norm(w) % Hallamos la norma del vector w Longitud3A = norm(p) % Hallamos la norma del vector p Longitud4A = norm(q) % Hallamos la norma del vector q Longitud5A = norm(r) % Hallamos la norma del vector r % Condicionamos las longitudes de los vectores a fin de enviarlos a la funcion drawvec1 como el sistema de ejes a ser implementado if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A & Longitud1A>Longitud5A s = Longitud1A; elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A & Longitud2A>Longitud4A & Longitud2A>Longitud5A s = Longitud2A; elseif Longitud3A>Longitud1A & Longitud3A>Longitud2A & Longitud3A>Longitud4A & Longitud3A>Longitud5A s = Longitud3A; elseif Longitud4A>Longitud1A & Longitud4A>Longitud2A & Longitud4A>Longitud3A & Longitud4A>Longitud5A s = Longitud4A; elseif Longitud5A>Longitud1A & Longitud5A>Longitud2A & Longitud5A>Longitud3A & Longitud5A>Longitud4A s = Longitud5A; elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A s = Longitud1A; end subplot(1,3,3) vector2d(v, 'green', s); % Graficamos el vector v hold on vector2d(w, 'magenta', s); % Graficamos el vector w grid on vector2d(p, 'red', s); % Graficamos el vector p grid on vector2d(q, 'blue', s); % Graficamos el vector q grid on vector2d(r, 'yellow', s); % Graficamos el vector r grid on title('El grafico de cinco vectores de posicion en 2D'); xlabel('EJE X') % Dar nombre a los ejes ylabel('EJE Y') elseif K == 6 clear; clc; subplot(1,3,3,'replace')

% CONDICION Si se ha elegido graficar SEIS vectores de posicion % Limpiamos el Workspace % Limpiamos el Command Window

disp('GRAFICO DE SEIS VECTORES DE POSICION EN 2D') xhandle = findobj('Tag','x2text'); x1 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y2text'); y1 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x4text'); x2 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y4text'); y2 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x6text'); x3 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y6text'); y3 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x8text'); x4 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y8text'); y4 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x10text'); x5 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y10text'); y5 = eval(get(yhandle,'String')) xhandle = findobj('Tag','x12text'); x6 = eval(get(xhandle,'String')) yhandle = findobj('Tag','y12text'); y6 = eval(get(yhandle,'String'))

% findobj retorna el valor de x1 de % get retorna el valor de xhandle y % findobj retorna el valor de y1 de % get retorna el valor de yhandle y % findobj retorna el valor de x2 de % get retorna el valor de xhandle y % findobj retorna el valor de y2 de % get retorna el valor de yhandle y % findobj retorna el valor de x3 de % get retorna el valor de xhandle y % findobj retorna el valor de y3 de % get retorna el valor de yhandle y % findobj retorna el valor de x4 de % get retorna el valor de xhandle y % findobj retorna el valor de y4 de % get retorna el valor de yhandle y % findobj retorna el valor de x5 de % get retorna el valor de xhandle y % findobj retorna el valor de y5 de % get retorna el valor de yhandle y % findobj retorna el valor de x6 de % get retorna el valor de xhandle y % findobj retorna el valor de y6 de % get retorna el valor de yhandle y

fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS v = [x1 y1] % Declaramos el vector v en w = [x2 y2] % Declaramos el vector w en p = [x3 y3] % Declaramos el vector p en q = [x4 y4] % Declaramos el vector q en r = [x5 y5] % Declaramos el vector r en t = [x6 y6] % Declaramos el vector t en

% Se visualizara en el Command Window este mensaje la Caja Ingreso lo ubica en x1 la Caja Ingreso lo ubica en y1 la Caja Ingreso lo ubica en x2 la Caja Ingreso lo ubica en y2 la Caja Ingreso lo ubica en x3 la Caja Ingreso lo ubica en y3 la Caja Ingreso lo ubica en x4 la Caja Ingreso lo ubica en y4 la Caja Ingreso lo ubica en x5 la Caja Ingreso lo ubica en y5 la Caja Ingreso lo ubica en x6 la Caja Ingreso lo ubica en y6

Datos (x2text) y lo ubica en xhandle Datos (y2text) y lo ubica en yhandle Datos (x4text) y lo ubica en xhandle Datos (y4text) y lo ubica en yhandle Datos (x6text) y lo ubica en xhandle Datos (y6text) y lo ubica en yhandle Datos (x8text) y lo ubica en xhandle Datos (y8text) y lo ubica en yhandle Datos (x10text) y lo ubica en xhandle Datos (y10text) y lo ubica en yhandle Datos (x12text) y lo ubica en xhandle Datos (y12text) y lo ubica en yhandle

DE CADA VECTOR DE POSICION "v" "w" "p" "q" "r" y "t" PARA ESTE GRAFICO SON:' ); 2D 2D 2D 2D 2D 2D

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" "q" "r" y "t" SON:' ); Longitud1A = norm(v) % Hallamos la norma del vector v Longitud2A = norm(w) % Hallamos la norma del vector w Longitud3A = norm(p) % Hallamos la norma del vector p Longitud4A = norm(q) % Hallamos la norma del vector q Longitud5A = norm(r) % Hallamos la norma del vector r Longitud6A = norm(t) % Hallamos la norma del vector t % Condicionamos las longitudes de los vectores a fin de enviarlos a la funcion drawvec1 como el sistema de ejes a ser implementado if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A & Longitud1A>Longitud5A & Longitud1A>Longitud6A s = Longitud1A; elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A & Longitud2A>Longitud4A & Longitud2A>Longitud5A & Longitud2A>Longitud6A s = Longitud2A; elseif Longitud3A>Longitud1A & Longitud3A>Longitud2A & Longitud3A>Longitud4A & Longitud3A>Longitud5A & Longitud3A>Longitud6A s = Longitud3A; elseif Longitud4A>Longitud1A & Longitud4A>Longitud2A & Longitud4A>Longitud3A & Longitud4A>Longitud5A & Longitud4A>Longitud6A s = Longitud4A; elseif Longitud5A>Longitud1A & Longitud5A>Longitud2A & Longitud5A>Longitud3A & Longitud5A>Longitud4A & Longitud5A>Longitud6A s = Longitud5A; elseif Longitud6A>Longitud1A & Longitud6A>Longitud2A & Longitud6A>Longitud3A & Longitud6A>Longitud4A & Longitud6A>Longitud5A s = Longitud6A;

elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A s = Longitud1A; end subplot(1,3,3) vector2d(v, 'green', s); % Graficamos el vector v hold on vector2d(w, 'magenta', s); % Graficamos el vector w grid on vector2d(p, 'red', s); % Graficamos el vector p grid on vector2d(q, 'blue', s); % Graficamos el vector p grid on vector2d(r, 'yellow', s); % Graficamos el vector r grid on vector2d(t, 'black', s); % Graficamos el vector t grid on title('El grafico de seis vectores de posicion en 2D'); xlabel('EJE X') % Dar nombre a los ejes ylabel('EJE Y') end end

6. Líneas del programa de la Caja de Control para el grafico de vectores 2D, vectores 3D y vectores de posición 2D. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Descripcion del comando uicontrol que crea una interface de control de usuario. Distintas formas de uso % uicontrol('PropertyName1',value1,'PropertyName2',value2,...) crea una interface de control de usuario con caracteristicas establecidas en una figura especifica % uicontrol(FIG,...) crea una interface de control de usuario con caracteristicas establecidas en una figura especifica % Las propiedades de uicontrol pueden ser establecidas para la creacion de la interface. Usando: PropertyName/PropertyValue pair arguments to uicontrol, or changed later using the SET command. % Ejecute get(h) para ver la lista de propiedades del objeto uicontrol y sus valores. % Ejecute set(h) para ver la lista de propiedades y valores propios del objeto uicontrol. % % Para crear un tipo especifico de uicontrol, coloque agregue a la propiedad style alguna de las siguientes descripciones: % 1.- 'checkbox' – Los checkbox generan una accion cuando se selecciona. Este recurso es muy util proveyendo un numero independiente de elecciones. % % 2.- 'edit' – Los edit editan campos de texto modificables. Use text cuando quiera ingresar texto. Si Max-Min>1 se permitiran multiples lineas. % % 3.- 'frame' – Los frame son rectangulos que provee una region cerrada en una ventana. Hacen mas facil el uso de una interface. Los frame son opacos por tanto debe definirlo en el uicontrols es importante. %

Stacking order determines the order objects are drawn: objects defined first are drawn first; objects defined later are drawn over existing objects.If you use a frame to enclose objects, you

must define the frame before you define the objects. % % 4.- 'listbox' – Los listbox muestran una lista de items y facilita al usuario para utilizarlos mas de una vez. Las propiedades Min y Max se seleccionan del siguiente modo: %

Si Max-Min>1, entonces una seleccion multiple es permitida.

%

If Max-Min<=1, entonces unicamente una seleccion es permitida.

%

The Value property indicates selected entries and contains the indices into the list of strings; a vector value indicates multiple selections.

%

MATLAB evaluates the list box's callback routine after any mouse button up event that changes the Value property. Therefore, you may need to add a "Done" button to delay action caused by

multiple clicks on list items. %

List boxes whose Enable property is on differentiate between single and double left clicks and set the figure SelectionType property to normal or open accordingly before evaluating the list

box's Callback property. %

For such list boxes, Ctrl-left click and Shift-left click also set the figure SelectionType property to normal or open to indicate a single or double click.

% % 5.- 'popupmenu' – Los popupmenu (Tambien conocida como menus dropdown o combobox) abren y muestran una lista de elecciones cuando son seleccionados. When not open, a pop-up menu indicates the current choice. %

popupmenu are useful when you want to provide users with a number of mutually exclusive choices, but do not want to take up the amount of space that a series of radio buttons requires.

% % 6.- 'pushbutton' – Los pushbutton generan una accion cuando son presionados. % % 7.- 'radiobutton' – Los radiobutton son similares a los checkbox but are intended to be mutually exclusive within a group of related radio buttons (i.e., only one is in a pressed state at any given time). %

To activate a radio button, click the mouse button on the object. The state of the device is indicated on the display. Note that your code can implement mutually exclusive behavior for radio

buttons. % % 8.- 'slider' – slider accept numeric input within a specific range by enabling the user to move a sliding bar. Users move the bar by pressing the mouse button and dragging the pointer over the bar, or by clicking in the trough or on an arrow. %

The location of the bar indicates a numeric value, which is selected by releasing the mouse button. You can set the minimum, maximum, and current values of the slider.

% % 9.- 'text' – text son cajas que muestran lineas de texto y son usadas para mostrar: etiquetas de los controles, proveer direcciones de uso, o indicar valores asociados con algunos mandos. % % 10.- 'togglebutton' – togglebutton son controles que ejecutan llamados cuando son comandados e indican su estado de On o Off. % % Las lineas se encuentran comentadas. % INGENIERO ELECTRONICO MONTEZA ZEVALLOS FIDEL TOMAS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

clear;

% Limpiamos el Workspace

clc;

% Limpiamos el Command Window

a = figure('Color',[1 1 1],'Position',[0010 0050 1350 0550], 'Tag','Fig1','Name','Grafico de Vectores (Ing Monteza Z)' ); whitebg

% Declaracion para dar color de fondo a la Interface Grafica

whitebg

% Declaracion para dar color de fondo a la Interface Grafica

% Se describe cada uno de los componentes de las lineas de programa iucontrol. En la cabecera encontrara mas detalle de este comando y del correcto uso del programa % 'Parent',a (Mueve el control del grafico a la figura "a" especificada) % 'Units','normalized' (Unidad de medida por extension y posicion; normalized significa la esquina inferior izquierda en 0,0 y la esquina superior derecha 1.0,1.0 del objeto) % 'BackgroundColor',[0 0 0] (Se elige el color RGB del grafico dentro del corchete, 0 es inactivo y 1 es activo) % 'Position',[a b c d] (Donde: a=Izquierda b=Inferior c=ancho y d=altura. a,b son las coordenadas de inicio y c,d son las distancias medidas desde las coordenadas de inicio) % 'Style','frame' (Estilo del control a ser creado, estos ademas pueden ser: pushbutton | togglebutton | radiobutton | checkbox | edit | text | slider | frame | listbox | popupmenu) % 'Tag','External_frame' (Se utiliza para etiqutar el nombre del control creado)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%% Zona de habilitacion de la Caja de control izquierda con las teclas de comando %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Habilitacion del marco de la Caja de Titulo de las Teclas de Control en la columna izquierda para el Grafico de Vectores b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.005 0.890 0.265 0.095], 'Style','frame','Tag','marcoexternocajadertitulo'); % Marco negro b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.015 0.900 0.245 0.075], 'Style','frame','Tag','marcointernocajadertitulo'); % Marco blanco % Habilitacion del titulo de la Caja de Titulo de las Teclas de Control en la columna izquierda para el Grafico de Vectores b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.040 0.920 0.200 0.030], 'String','Cajas teclas ejecucion grafico vectores con funciones','Style','text','Tag','titulocajader');

% Habilitacion de la etiqueta de la Caja de Titulo de las Teclas de Control en la columna izquierda para el Grafico de Vectores b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.005 0.625 0.265 0.220], 'Style','frame','Tag','marcoexternocajadervecpos'); % Marco negro b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.015 0.635 0.245 0.200], 'Style','frame','Tag','marcointernocajadervecpos'); % Marco blanco % Habilitacion de la etiqueta del titulo de la caja Teclas de Ejecucion Grafico Vectores Posicion b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.030 0.790 0.210 0.030], 'String','Teclas de Ejecucion Grafico Vectores Posicion en 2D','Style','text','Tag','titulocajadercmdvecpos'); % Habilitamos las teclas de los comandos de control de la caja Teclas de Ejecucion: 1 Vector, 2 Vector, 3 Vector, 4 Vector, 5 Vector y 6 Vector a ser enviadas a la funcion vectorgraficodibujo b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Callback','vectorposfuncaja3(1)','Position',[0.020 0.730 0.070 0.040], 'String','1 Vector Posicion','Tag','ejecutarfunvecpos1'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 0],'Callback','vectorposfuncaja3(2)','Position',[0.100 0.730 0.070 0.040], 'String','2 Vector Posicion','Tag','ejecutarfunvecpos2'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 0],'Callback','vectorposfuncaja3(3)','Position',[0.180 0.730 0.070 0.040], 'String','3 Vector Posicion','Tag','ejecutarfunvecpos3'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 1],'Callback','vectorposfuncaja3(4)','Position',[0.020 0.670 0.070 0.040], 'String','4 Vector Posicion','Tag','ejecutarfunvecpos4'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 1],'Callback','vectorposfuncaja3(5)','Position',[0.100 0.670 0.070 0.040], 'String','5 Vector Posicion','Tag','ejecutarfunvecpos5'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 1],'Callback','vectorposfuncaja3(6)','Position',[0.180 0.670 0.070 0.040], 'String','6 Vector Posicion','Tag','ejecutarfunvecpos6');

% Habilitacion del marco de la caja de control de las Teclas de Ejecucion Grafico Vectores 2D b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.005 0.402 0.265 0.210], 'Style','frame','Tag','marcoexternocajadervec2D'); % Marco negro b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.015 0.412 0.245 0.190], 'Style','frame','Tag','marcointernocajadervec2D'); % Marco blanco % Habilitacion de la etiqueta del titulo de la caja Teclas de Ejecucion Grafico Vectores 2D. b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.045 0.565 0.175 0.030], 'String','Teclas de Ejecucion Grafico Vectores en 2D','Style','text','Tag','titulocajadercmdvec2D'); % Habilitamos las teclas de los comandos de control de la caja Teclas de Ejecucion: 1 Vector, 2 Vector, 3 Vector, 4 Vector, 5 Vector y 6 Vector a ser enviadas a la funcion vectorgraficodibujo b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Callback','vector2d3funcaja3(1)','Position',[0.020 0.505 0.070 0.040], 'String','1 Vector en 2D','Tag','ejecutarfunvec2D1');

b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 0],'Callback','vector2d3funcaja3(2)','Position',[0.100 0.505 0.070 0.040], 'String','2 Vector en 2D','Tag','ejecutarfunvec2D2'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 0],'Callback','vector2d3funcaja3(3)','Position',[0.180 0.505 0.070 0.040], 'String','3 Vector en 2D','Tag','ejecutarfunvec2D3'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 1],'Callback','vector2d3funcaja3(4)','Position',[0.020 0.440 0.070 0.040], 'String','4 Vector en 2D','Tag','ejecutarfunvec2D4'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 1],'Callback','vector2d3funcaja3(5)','Position',[0.100 0.440 0.070 0.040], 'String','5 Vector en 2D','Tag','ejecutarfunvec2D5'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 1],'Callback','vector2d3funcaja3(6)','Position',[0.180 0.440 0.070 0.040], 'String','6 Vector en 2D','Tag','ejecutarfunvec2D6');

% Habilitacion del marco de la caja de control de las Teclas de Ejecucion Grafico Vectores 3D b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.005 0.110 0.265 0.270], 'Style','frame','Tag','marcoexternocajadervec3D'); % Marco negro b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.015 0.120 0.245 0.250], 'Style','frame','Tag','marcointernocajadervec3D'); % Marco blanco % Habilitacion de la etiqueta del titulo de la caja Teclas de Ejecucion Grafico Vectores 3D. b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.045 0.330 0.175 0.030], 'String','Teclas de Ejecucion Grafico Vectores en 3D','Style','text','Tag','titulocajadercmdvec3D'); % Habilitamos las teclas de los comandos de control de la caja Teclas de Ejecucion: 1 Vector, 2 Vector, 3 Vector, 4 Vector, 5 Vector, 6 Vector, 7 Vector, 8 Vector y 9 Vector a ser enviadas a la funcion vectorgraficodibujo b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Callback','vector3d3funcaja3(1)','Position',[0.020 0.280 0.070 0.040], 'String','1 Vector en 3D','Tag','ejecutarfunvec3D1'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 0],'Callback','vector3d3funcaja3(2)','Position',[0.100 0.280 0.070 0.040], 'String','2 Vector en 3D','Tag','ejecutarfunvec3D2'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 0],'Callback','vector3d3funcaja3(3)','Position',[0.180 0.280 0.070 0.040], 'String','3 Vector en 3D','Tag','ejecutarfunvec3D3'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 1],'Callback','vector3d3funcaja3(4)','Position',[0.020 0.215 0.070 0.040], 'String','4 Vector en 3D','Tag','ejecutarfunvec3D4'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 1],'Callback','vector3d3funcaja3(5)','Position',[0.100 0.215 0.070 0.040], 'String','5 Vector en 3D','Tag','ejecutarfunvec3D5'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 1],'Callback','vector3d3funcaja3(6)','Position',[0.180 0.215 0.070 0.040], 'String','6 Vector en 3D','Tag','ejecutarfunvec3D6'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Callback','vector3d3funcaja3(7)','Position',[0.020 0.150 0.070 0.040], 'String','7 Vector en 3D','Tag','ejecutarfunvec3D7'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 0],'Callback','vector3d3funcaja3(8)','Position',[0.100 0.150 0.070 0.040], 'String','8 Vector en 3D','Tag','ejecutarfunvec3D8'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 0],'Callback','vector3d3funcaja3(9)','Position',[0.180 0.150 0.070 0.040], 'String','9 Vector en 3D','Tag','ejecutarfunvec3D9');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%% Zona de habilitacion de la Caja de control del centro para el ingreso de coordenadas de cada vector %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Habilitacion del marco de la Caja de habilitacion de las etiquetas de las coordenadas de los puntos de inicio y termino de cada vector (Caja Derecha) en la columna derecha para el Grafico de Vectores b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.280 0.890 0.340 0.095], 'Style','frame','Tag','marcoexternocajaizqtitulo'); % Marco negro b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.290 0.900 0.320 0.075], 'Style','frame','Tag','marcointernocajaizqtitulo'); % Marco blanco % Habilitacion de la etiqueta de la Caja de Titulo de las Teclas de Control en la columna derecha para el Grafico de Vectores b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.350 0.920 0.200 0.030], 'String','Caja para el ingreso de los valores de cada vector','Style','text','Tag','titulocajaizq');

% Habilitacion del marco de la Caja Ingreso de Datos para el grafico de vectores en 2D y 3D y de las etiquetas de las coordenadas de los puntos de inicio y termino de cada vector (Caja Derecha) b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.280 0.075 0.340 0.805], 'Style','frame','Tag','marcoexternocajaizqvecpos'); % Marco negro b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.290 0.090 0.320 0.775], 'Style','frame','Tag','marcointernocajaizqvecpos'); % Marco blanco % Habilitacion de la etiqueta del titulo de la Caja Ingreso de Datos para el grafico de vectores en 2D y 3D y de las coordenadas de los puntos de inicio y termino de cada vector b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.820 0.205 0.030], 'String','Ingreso de Datos para el grafico de vectores en 2D y 3D','Style','text','Tag','titulocajaizqcmdvecpos'); % Zona de habilitacion de las etiquetas de las coordenadas de los puntos de inicio y termino de cada vector (Caja Derecha) b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.785 0.030 0.020], 'String','x1','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.785 0.030 0.020], 'String','y1','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.785 0.030 0.020], 'String','z1','Style','text','Tag','titulocajaizqcmdvecpos');

b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.745 0.030 0.020], 'String','x2','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.745 0.030 0.020], 'String','y2','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.745 0.030 0.020], 'String','z2','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.705 0.030 0.020], 'String','x3','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.705 0.030 0.020], 'String','y3','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.705 0.030 0.020], 'String','z3','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.665 0.030 0.020], 'String','x4','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.665 0.030 0.020], 'String','y4','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.665 0.030 0.020], 'String','z4','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.625 0.030 0.020], 'String','x5','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.625 0.030 0.020], 'String','y5','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.625 0.030 0.020], 'String','z5','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.585 0.030 0.020], 'String','x6','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.585 0.030 0.020], 'String','y6','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.585 0.030 0.020], 'String','z6','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.545 0.030 0.020], 'String','x7','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.545 0.030 0.020], 'String','y7','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.545 0.030 0.020], 'String','z7','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.505 0.030 0.020], 'String','x8','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.505 0.030 0.020], 'String','y8','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.505 0.030 0.020], 'String','z8','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.465 0.030 0.020], 'String','x9','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.465 0.030 0.020], 'String','y9','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.465 0.030 0.020], 'String','z9','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.425 0.030 0.020], 'String','x10','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.425 0.030 0.020], 'String','y10','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.425 0.030 0.020], 'String','z10','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.385 0.030 0.020], 'String','x11','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.385 0.030 0.020], 'String','y11','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.385 0.030 0.020], 'String','z11','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.345 0.030 0.020], 'String','x12','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.345 0.030 0.020], 'String','y12','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.345 0.030 0.020], 'String','z12','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.305 0.030 0.020], 'String','x13','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.305 0.030 0.020], 'String','y13','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.305 0.030 0.020], 'String','z13','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.265 0.030 0.020], 'String','x14','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.265 0.030 0.020], 'String','y14','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.265 0.030 0.020], 'String','z14','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.225 0.030 0.020], 'String','x15','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.225 0.030 0.020], 'String','y15','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.225 0.030 0.020], 'String','z15','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.185 0.030 0.020], 'String','x16','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.185 0.030 0.020], 'String','y16','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.185 0.030 0.020], 'String','z16','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.145 0.030 0.020], 'String','x17','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.145 0.030 0.020], 'String','y17','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.145 0.030 0.020], 'String','z17','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.365 0.105 0.030 0.020], 'String','x18','Style','text','Tag','titulocajaizqcmdvecpos'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.450 0.105 0.030 0.020], 'String','y18','Style','text','Tag','titulocajaizqcmdvecpos');

b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.530 0.105 0.030 0.020], 'String','z18','Style','text','Tag','titulocajaizqcmdvecpos');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%% Zona de habilitacion de la Caja de control del centro con valores de CERO por default de las coordenadas de cada vector %%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.780 0.050 0.030], 'String','0','Style','edit','Tag','x1text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.780 0.050 0.030], 'String','0','Style','edit','Tag','y1text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.780 0.050 0.030], 'String','0','Style','edit','Tag','z1text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.740 0.050 0.030], 'String','0','Style','edit','Tag','x2text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.740 0.050 0.030], 'String','0','Style','edit','Tag','y2text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.740 0.050 0.030], 'String','0','Style','edit','Tag','z2text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.760 0.070 0.030], 'String','Primer Vector 3D','Style','text','Tag','titulo1ervect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.700 0.050 0.030], 'String','0','Style','edit','Tag','x3text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.700 0.050 0.030], 'String','0','Style','edit','Tag','y3text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.700 0.050 0.030], 'String','0','Style','edit','Tag','z3text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.660 0.050 0.030], 'String','0','Style','edit','Tag','x4text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.660 0.050 0.030], 'String','0','Style','edit','Tag','y4text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.660 0.050 0.030], 'String','0','Style','edit','Tag','z4text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.680 0.070 0.030], 'String','Segundo Vector 3D','Style','text','Tag','titulo2dovect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.620 0.050 0.030], 'String','0','Style','edit','Tag','x5text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.620 0.050 0.030], 'String','0','Style','edit','Tag','y5text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.620 0.050 0.030], 'String','0','Style','edit','Tag','z5text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.580 0.050 0.030], 'String','0','Style','edit','Tag','x6text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.580 0.050 0.030], 'String','0','Style','edit','Tag','y6text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.580 0.050 0.030], 'String','0','Style','edit','Tag','z6text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.600 0.070 0.030], 'String','Tercer Vector 3D','Style','text','Tag','titulo3ervect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.540 0.050 0.030], 'String','0','Style','edit','Tag','x7text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.540 0.050 0.030], 'String','0','Style','edit','Tag','y7text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.540 0.050 0.030], 'String','0','Style','edit','Tag','z7text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.500 0.050 0.030], 'String','0','Style','edit','Tag','x8text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.500 0.050 0.030], 'String','0','Style','edit','Tag','y8text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.500 0.050 0.030], 'String','0','Style','edit','Tag','z8text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.520 0.070 0.030], 'String','Cuarto Vector 3D','Style','text','Tag','titulo4tovect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.460 0.050 0.030], 'String','0','Style','edit','Tag','x9text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.460 0.050 0.030], 'String','0','Style','edit','Tag','y9text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.460 0.050 0.030], 'String','0','Style','edit','Tag','z9text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.420 0.050 0.030], 'String','0','Style','edit','Tag','x10text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.420 0.050 0.030], 'String','0','Style','edit','Tag','y10text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.420 0.050 0.030], 'String','0','Style','edit','Tag','z10text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.440 0.070 0.030], 'String','Quinto Vector 3D','Style','text','Tag','titulo5tovect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.380 0.050 0.030], 'String','0','Style','edit','Tag','x11text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.380 0.050 0.030], 'String','0','Style','edit','Tag','y11text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.380 0.050 0.030], 'String','0','Style','edit','Tag','z11text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.340 0.050 0.030], 'String','0','Style','edit','Tag','x12text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.340 0.050 0.030], 'String','0','Style','edit','Tag','y12text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.340 0.050 0.030], 'String','0','Style','edit','Tag','z12text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.360 0.070 0.030], 'String','Sexto Vector 3D','Style','text','Tag','titulo6tovect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.300 0.050 0.030], 'String','0','Style','edit','Tag','x13text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.300 0.050 0.030], 'String','0','Style','edit','Tag','y13text','Value',1);

b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.300 0.050 0.030], 'String','0','Style','edit','Tag','z13text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.260 0.050 0.030], 'String','0','Style','edit','Tag','x14text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.260 0.050 0.030], 'String','0','Style','edit','Tag','y14text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.260 0.050 0.030], 'String','0','Style','edit','Tag','z14text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.280 0.070 0.030], 'String','Septimo Vector 3D','Style','text','Tag','titulo7movect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.220 0.050 0.030], 'String','0','Style','edit','Tag','x15text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.220 0.050 0.030], 'String','0','Style','edit','Tag','y15text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.220 0.050 0.030], 'String','0','Style','edit','Tag','z15text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.180 0.050 0.030], 'String','0','Style','edit','Tag','x16text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.180 0.050 0.030], 'String','0','Style','edit','Tag','y16text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.180 0.050 0.030], 'String','0','Style','edit','Tag','z16text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.200 0.070 0.030], 'String','Octavo Vector 3D','Style','text','Tag','titulo8vovect'); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.140 0.050 0.030], 'String','0','Style','edit','Tag','x17text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.140 0.050 0.030], 'String','0','Style','edit','Tag','y17text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.140 0.050 0.030], 'String','0','Style','edit','Tag','z17text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.390 0.100 0.050 0.030], 'String','0','Style','edit','Tag','x18text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.475 0.100 0.050 0.030], 'String','0','Style','edit','Tag','y18text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.555 0.100 0.050 0.030], 'String','0','Style','edit','Tag','z18text','Value',1); b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.300 0.120 0.070 0.030], 'String','Noveno Vector 3D','Style','text','Tag','titulo9novect');

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%% Zona de habilitacion de la Caja del Grafico de los vectores en sistemas 2D o sistemas 3D (Lado Derecho) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Habilitacion inicial de la Caja del Grafico de los vectores en sistemas 2D o sistemas 3D (Grafico) b = axes('Parent',a,'Box','on','Color',[1 1 1],'Position',[0.650 0.230 0.340 0.540], 'Tag','sistemaejes','XColor',[0 0 0],'YColor',[0 0 0],'ZColor',[0 0 0 % Habilitacion de la etiqueta de la Caja del Grafico de los vectores en sistemas 2D o sistemas 3D c = text('Parent',b,'Color',[1 0 0],'HorizontalAlignment','center','Position',[0.500 1.030 0],'String','Caja del grafico de los vectores','Tag','txttitulosistemaejes','VerticalAlignment','bottom'); set(get(c,'Parent'),'Title',c); % Habilitacion de la etiqueta Eje X de la Caja del Grafico de los vectores en sistemas 2D o sistemas 3D c = text('Parent',b,'Color',[1 1 1],'HorizontalAlignment','center','Position',[0.500 -0.080 0],'String','Eje X','Tag','txtejex','VerticalAlignment','cap'); set(get(c,'Parent'),'XLabel',c); % Habilitacion de la etiqueta Eje Y de la Caja del Grafico de los vectores en sistemas 2D o sistemas 3D c = text('Parent',b,'Color',[1 1 0],'HorizontalAlignment','center','Position',[-0.120 0.500 0],'Rotation',90,'String','Eje Y','Tag','txtejey','VerticalAlignment','baseline'); set(get(c,'Parent'),'YLabel',c); % Habilitacion de la etiqueta Eje Z de la Caja del Grafico de los vectores en sistemas 2D o sistemas 3D c = text('Parent',b,'Color',[1 1 0],'HorizontalAlignment','center','Position',[-0.120 -0.500 0],'String','Eje Z','Tag','txtejez','VerticalAlignment','baseline'); set(get(c,'Parent'),'ZLabel',c);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

7. Secuencia de trabajo del proyecto: Caja de Control para el grafico de vectores 2D, vectores 3D y vectores de posición 2 D Cuando se pone a trabajar el Proyecto completo, la secuencia de operacion es la siguiente:

Ejecucion archivo VECTORCAJACONTROL

Capturar Punto Inicial Vector Posicion 2D

Graficar Vector de Posicion 2D

Utiliza función vectorposfuncaja3

Utiliza función vector2d

Capturar Punto Inicial y Fi nal Vector 2D Utiliza función vector2d3funcaja3 Graficar Vector 2D o Vector 3D Capturar Punto Inicial y Final Vector 3D Utiliza función vector3d3funcaja3

1o Se ejecuta la simulacion del archvivo VECTORCAJACONTROL

Utiliza función vector3d

2o Internamente las funciones vectorposfuncaja3 vector2d3funcaja3 y vector3d3fubcaja3 estan programadas para que de acuerdo a la seleccion del operador capturen la informacion de los puntos iniciales y puntos finales de cada vector.

3o Una vez que el operador ingresa los datos de los puntos iniciales y puntos finales, debe ejecutar que tipo de vectores es el que se va ha graficar, para ello ejecuta uno de los comandos de cualquiera de los tres menus, esto implica que si elige solo graficar vectores posicion se utilizara la function vector2d. Si lo que desea es graficar vectores en el espacio 2D o vectores en el espacio 3D se utilazara la funcion

vector3d

Presentacion final de la interface implementada para trabajar de acuerdo a la seleccion del operador.

Interface con los resultados finales de haber ingresado los datos de nueve vectores en 3D y que se pueden apreciar en sus diferentes colores.