MATLAB (Manual Programacion Interface Vectores - 2da Edicion)

MATLAB
MANUAL DE PROGRAMACION DE INTERFACE

Implementacion del Programa de una Caja de Control
Para graficar vectores en 2D, vectores en 3D y vectores posicin en 2D con funciones y
programas
Autor:
Ingeniero Electrnico: Monteza Zevallos Fidel Tomas
Octubre de 2017 (Segunda Edicin)
V. J. M. J. / A. M. M. J.
ndice general
Introduccin
1. Lneas del algoritmo de la funcin: vector2d (Vector en dos dimensiones)
2. Lneas del algoritmo de la funcin: vector3d (Vector en tres dimensiones)
3. Lneas del algoritmo de la funcin: vector2d3funcaja1 (Captura informacion punto inicial y punto final de un vector 2D desde una Caja de
Control para el grafico de vectores 2D)
4. Lneas del algoritmo de la funcin: vector3d3funcaja1 (Captura informacin punto inicial y punto final de un vector 3D desde una Caja de
5. Lneas del algoritmo de la funcin: vectorposfuncaja1 (Captura informacin punto final de un vector posicin 2D desde una Caja de
6. Lneas del algoritmo del programa VECTORPOSUNO (Programa que solo permite el grafico de un vector de posicin en 2D)
7. Lneas del algoritmo del programa VECTORPOSDOS (Programa que solo permite el grafico de dos vectores de posicin en 2D)
8. Lneas del algoritmo del programa VECTORPOSTRES (Programa que solo permite el grafico de tres vectores de posicin en 2D)
9. Lneas del algoritmo del programa VECTORPOSCUATRO (Programa que solo permite el grafico de cuatro vectores de posicin en 2D)
10. Lneas del algoritmo del programa VECTORPOSCINCO (Programa que solo permite el grafico de cinco vectores de posicin en 2D)
11. Lneas del algoritmo del programa VECTORPOSSEIS (Programa que solo permite el grafico de seis vectores de posicin en 2D)
12. Lneas del algoritmo del programa VECTORUNO2D (Programa que solo permite el grafico de un vector en 2D)
13. Lneas del algoritmo del programa VECTORDOS2D (Programa que solo permite el grafico de dos vectores en 2D)
14. Lneas del algoritmo del programa VECTORTRES2D (Programa que solo permite el grafico de tres vectores en 2D)
15. Lneas del algoritmo del programa VECTORCUATRO2D (Programa que solo permite el grafico de cuatro vectores en 2D)
16. Lneas del algoritmo del programa VECTORCINCO2D (Programa que solo permite el grafico de cinco vectores en 2D)
17. Lneas del algoritmo del programa VECTORSEIS2D (Programa que solo permite el grafico de seis vectores en 2D)
24. Lneas del algoritmo del programa VECTORSIETE3D (Programa que solo permite el grafico de siete vectores en 3D)
25. Lneas del algoritmo del programa VECTOROCHO3D (Programa que solo permite el grafico de ocho vectores en 3D)
26. Lneas del algoritmo del programa VECTORNUEVE3D (Programa que solo permite el grafico de nueve vectores en 3D)
27. Lneas del algoritmo del programa VECTORCAJACONTROL1 para la Caja de Control para el grafico de vectores 2D, vectores 3D y
vectores de posicin 2D.
28. Secuencia de trabajo del proyecto: Caja de Control para el grafico de vectores 2D, vectores 3D y vectores de posicin 2D
Introduccin
En fsica, un vector (tambin llamado vector Euclidiano o vector Geomtrico) es una magnitud fsica definida en un sistema de referencia que
se caracteriza por tener mdulo (o longitud) y una direccin (u orientacin).
En matemticas se define un vector como un elemento de un espacio vectorial. Esta nocin es ms abstracta y para muchos espacios
vectoriales no es posible representar sus vectores mediante el mdulo y la direccin. En particular los espacios de dimensin infinita sin
producto escalar no son representables de ese modo. Los vectores en un espacio Eucldeo se pueden representar geomtricamente como
segmentos de recta dirigidos (flechas) en el plano R2 o en el espacio R3.
Algunos ejemplos de magnitudes fsicas que son magnitudes vectoriales: la velocidad con que se desplaza un mvil, ya que no queda
definida tan solo por su mdulo que es lo que marca el velocmetro, en el caso de un automvil, sino que se requiere indicar la direccin
(hacia donde se dirige); la fuerza que acta sobre un objeto, ya que su efecto depende adems de su magnitud o mdulo, de la direccin en
la que acta; tambin, el desplazamiento de un objeto, pues es necesario definir el punto inicial y final del movimiento
Con esta otra forma de interface se puede graficar desde uno hasta seis vectores en dos dimensiones, desde uno hasta nueve vectores
posicin en tres dimensiones y desde uno hasta seis vectores posicin en dos dimensiones. Se podr seguir las lneas de programacin de
acuerdo con su secuencia de operacin.
Para esto se debe tener en cuenta que se podr graficar de dos formas:
- Con funciones, que podrn graficar vectores de posicin en 2D, vectores en 2D y vectores en 3D (vectorposfuncaja1,
vector2d3funcaja1 y vector3d3funcaja1).
- Con programas, que igualmente podrn graficar vectores de posicin en 2D (VECTORPOSUNO, VECTORPOSDOS,
VECTORPOSTRES, VECTORPOSCUATRO, VECTORPOSCINCO y VECTORPOSSEIS), vectores en 2D (VECTORUNO2D,
VECTORDOS2D, VECTORTRES2D, VECTORCUATRO2D, VECTORCINCO2D y VECTORSEIS2D) y vectores en 3D
(VECTORUNO3D, VECTORDOS3D, VECTORTRES3D, VECTORCUATRO3D, VECTORCINCO3D, VECTORSEIS3D,
VECTORSIETE3D, VECTOROCHO3D, VECTORNUEVE3D).
1. Lneas del algoritmo de la funcin: 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 origen. 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 % nargin es el numero de los argumentos de entrada de la funcion drawvec1

color = 'r'; % Si solo hubiese un argumento de entrada (El vector v) el color por defaul sera rojo
end
if nargin < 3 % Si nargin solo identificase dos argumentos de entrada (El vector y el color)
s=5; % La variable s de longitud para los ejes sera establecida por default en 5
end
% 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<width/4
r=r/3;
else
r=width/12;
end
slant=0.3; % Declaramos a slant con el valor de 0.3 para el tamao de la cabeza del vector
one=v+r*[cos(t+slant), sin(t+slant)];
two=v+r*[cos(t-slant), sin(t-slant)];
arrow=[one',two',v']; % arrow es una matriz de 2 filas x 3 columnas
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
Ventana de Editor con las funciones: vector2d y vector3d

2. Lneas del algoritmo de la funcin: vector3d (Vector en tres dimensiones)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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
% 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
% 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.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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 tamao de valores de p0 (x0,y0,z0) debe ser 3 (Representa el punto inicial del vector 3D)
if max(size(p1))==3 % El maximo tamao 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
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; % Restamos los valores del punto final (p1) menos los valores del punto inicial (p0)
alpha = 0.07; % Tamao de la cabeza de flecha relativo a la longitud del vector
beta = 0.2; % 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 tamao de valores de p0 (x0,y0) debe ser 2 (Representa el punto inicial del vector 2D)
if max(size(p1))==2 % El maximo tamao de valores de p1 (x0,y0) debe ser 2 (Representa el punto inicial del vector 2D)
plot([x0;x1],[y0;y1],color,'LineWidth',ancho); % Se grafica una linea entre el punto p0 y el punto p1
p = p1-p0; % Restamos los valores del punto final (p1) menos los valores del punto inicial (p0)
alpha = 0.1; % Tamao de la cabeza de flecha relativo a la longitud del vector
beta = 0.1; % 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. Lneas del algoritmo de la funcin: vector2d3funcaja1 (Captura informacion punto inicial y punto final de un vector 2D desde una Caja de
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Programa que permite visualizar n vectores en 2D
% 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
%
% Las lineas se encuentran comentadas
% Importante este archivo se usa con la funcion vector3d para n vectores en 2D y en 3D
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function vector2d3funcaja1(action)
if action == 1 % CONDICION Si se ha elegido graficar UN solo vector
close figure 1; % Cerramos la ventana que confirma la eleccion del numero de vectores a ser graficados
disp('GRAFICO DE UN VECTOR EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE UN VECTOR EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n ') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PRIMER VECTOR EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL PRIMER VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x1 del primer vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
x1 = input('\n INGRESE x1 = ');
fprintf('\n El valor y1 del primer vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
y1 = input('\n INGRESE y1 = ');
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL PRIMER VECTOR') % Con (\n) se imprime en la siguiente linea
p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector p

p1 = [x2 y2]; % Coordenadas del punto final p1 del vector p
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 la longitud del vector a fin de enviarlos a la funcion vector3d como el sistema de ejes a ser implementado
s = Longitud1A;
figure('Name','Grafico de un vector en 2D')

vector3d(p0,p1,'r',1) % Graficamos el primer vector 3D
grid on
title('Grafico de un vector en 2D');
xlabel('Eje X') % Dar nombre a los ejes
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 2 % CONDICION Si se ha elegido graficar DOS vectores
disp('GRAFICO DE DOS VECTORES EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE DOS VECTORES EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL SEGUNDO VECTOR EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL SEGUNDO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x3 del segundo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y3 del segundo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL SEGUNDO VECTOR') % Con (\n) se imprime en la siguiente linea

q0 = [x3 y3]; % Coordenadas del punto inicial q0 del vector q
q1 = [x4 y4]; % Coordenadas del punto final q1 del vector q

q = [(x4-x3) (y4-y3)] % Coordenadas del segundo vector respecto al eje de coordenadas
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p Y q SON:');

Longitud2A = norm(q); % Hallamos la norma del vector q
Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2)) % Hallamos la norma del vector q
% Condicionamos las longitudes de los vectores a fin de enviarlos a la funcion vector3d como el sistema de ejes a ser implementado
if Longitud1A>Longitud2A
s = Longitud1A;
elseif Longitud2A>Longitud1A
s = Longitud2A;
elseif Longitud1A==Longitud2A
s = Longitud1A;
end
figure('Name','Grafico de dos vectores en 2D')

hold on
vector3d(q0,q1,'g',1) % Graficamos el segundo vector 3D
grid on
title('Grafico de dos vectores en 2D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 3 % CONDICION Si se ha elegido graficar TRES vectores
disp('GRAFICO DE TRES VECTORES EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE TRES VECTORES EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL TERCER VECTOR EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL TERCER VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x5 del tercer vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y5 del tercer vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL TERCER VECTOR') % Con (\n) se imprime en la siguiente linea

r0 = [x5 y5]; % Coordenadas del punto inicial r0 del vector r
r1 = [x6 y6]; % Coordenadas del punto final r1 del vector r

r = [(x6-x5) (y6-y5)] % 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:');

Longitud3A = norm(r); % Hallamos la norma del vector r
Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2)) % Hallamos la norma del vector r
if Longitud1A>Longitud2A & Longitud1A>Longitud3A
s = Longitud1A;
elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A
s = Longitud2A;
s = Longitud3A;
elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A
s = Longitud1A;
end
figure('Name','Grafico de tres vectores en 2D')

hold on
hold on
vector3d(r0,r1,'y',1) % Graficamos el tercer vector 3D
grid on
title('Grafico de tres vectores en 2D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 4 % CONDICION Si se ha elegido graficar CUATRO vectores
disp('GRAFICO DE CUATRO VECTORES EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE CUATRO VECTORES EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL CUARTO VECTOR EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL CUARTO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x7 del cuarto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y7 del cuarto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL CUARTO VECTOR') % Con (\n) se imprime en la siguiente linea

s0 = [x7 y7]; % Coordenadas del punto inicial s0 del vector s
s1 = [x8 y8]; % Coordenadas del punto final s1 del vector s

s = [(x8-x7) (y8-y7)] % Coordenadas del cuarto vector respecto al eje de coordenadas
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES v Y w ES:');

Longitud4A = norm(s); % Hallamos la norma del vector s
Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2)) % Hallamos la norma del vector s
if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A
s = Longitud1A;
elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A & Longitud2A>Longitud4A
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A
s = Longitud1A;
end
figure('Name','Grafico de cuatro vectores en 2D')

hold on
hold on
hold on
vector3d(s0,s1,'b',1) % Graficamos el cuarto vector 3D
grid on
title('Grafico de cuatro vectores en 2D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 5 % CONDICION Si se ha elegido graficar CINCO vectores
disp('GRAFICO DE CINCO VECTORES EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE CINCO VECTORES EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL QUINTO VECTOR EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL QUINTO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x9 del quinto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y9 del quinto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL QUINTO VECTOR') % Con (\n) se imprime en la siguiente linea

q1 = [x4 y4]; % Coordenadas del punto final q1 del vector w
r0 = [x5 y5]; % Coordenadas del punto inicial r0 del vector q
t0 = [x9 y9]; % Coordenadas del punto inicial t0 del vector t
t1 = [x10 y10]; % Coordenadas del punto final t1 del vector t

t = [(x10-x9) (y10-y9)] % 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:');
Longitud5A = norm(t); % Hallamos la norma del vector t
Longitud5B = sqrt(((x10-x9)^2+(y10-y9)^2)) % Hallamos la norma del vector t
if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A & Longitud1A>Longitud5A
s = Longitud1A;
elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A & Longitud2A>Longitud4A & Longitud2A>Longitud5A
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A
s = Longitud1A;
end
figure('Name','Grafico de cinco vectores en 2D')

hold on
hold on
hold on
hold on
vector3d(t0,t1,'m',1) % Graficamos el quinto vector 3D
grid on
title('Grafico de cinco vectores en 2D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 6 % CONDICION Si se ha elegido graficar SEIS vectores
disp('GRAFICO DE SEIS VECTORES EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE SEIS VECTORES EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL SEXTO VECTOR EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL SEXTO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x11 del sexto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y11 del sexto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL SEXTO VECTOR') % Con (\n) se imprime en la siguiente linea

u0 = [x11 y11]; % Coordenadas del punto inicial u0 del vector u
u1 = [x12 y12]; % Coordenadas del punto final u1 del vector u

t = [(x10-x9) (y10-y9)] % Coordenadas del quinto vector respecto al eje de coordenadas
u = [(x12-x11) (y12-y11)] % Coordenadas del sexto vector respecto al eje de coordenadas

Longitud6A = norm(u); % Hallamos la norma del vector u
Longitud6B = sqrt(((x12-x11)^2+(y12-y11)^2)) % Hallamos la norma del vector u
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;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A
s = Longitud1A;
end
figure('Name','Grafico de seis vectores en 2D')

hold on
hold on
hold on
hold on
hold on
vector3d(t0,t1,'c',1) % Graficamos el sexto vector 3D
grid on
title('Grafico de seis vectores en 2D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
end
end
4. Lneas del algoritmo de la funcin: vector3d3funcaja1 (Captura informacin punto inicial y punto final de un vector 3D desde una Caja de
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Cuando se ejecuta el archivo llamado VECTORCAJACONTROL1 se llama a esta funcion
% Una vez ejecutada debera seguir las instrucciones solicitadas en el Command Window
% Este archivo trabaja necesariamente con el archivo llamado VECTORCAJACONTROL1.
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function vector3d3funcaja1(action)
%clear;
%clc
if action == 1 % CONDICION Si se ha elegido graficar UN solo vector
disp('GRAFICO DE VECTORES EN 3D') % Se visualizara en el Command Window este mensaje
fprintf('\n INGRESE LOS VALORES DE UN SOLO VECTOR EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor z1 del primer vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
z1 = input('\n INGRESE z1 = ');
p0 = [x1 y1 z1]; % Coordenadas del punto inicial p0 del vector p

p1 = [x2 y2 z2]; % Coordenadas del punto final p1 del vector p
p = [(x2-x1) (y2-y1) (z2-z1)] % Coordenadas del primer vector respecto al eje de coordenadas

Longitud1B = sqrt(((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)) % Hallamos la norma del vector p
% Condicionamos la longitud del vector a fin de enviarlo a la funcion vector3d como el sistema de ejes a ser implementado
s = Longitud1A;

grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 2 % CONDICION Si se ha elegido graficar DOS vectores
fprintf('\n El valor z3 del segundo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea

q0 = [x3 y3 z3]; % Coordenadas del punto inicial q0 del vector q
q1 = [x4 y4 z4]; % Coordenadas del punto final q1 del vector q
q = [(x4-x3) (y4-y3) (z4-z3)] % Coordenadas del segundo vector respecto al eje de coordenadas

Longitud2B = sqrt(((x4-x3)^2+(y4-y3)^2+(z4-z3)^2)) % Hallamos la norma del vector q
s = Longitud1A;
s = Longitud2A;
s = Longitud1A;
end

hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 3 % CONDICION Si se ha elegido graficar TRES vectores
fprintf('\n El valor z5 del tercer vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea

r0 = [x5 y5 z5]; % Coordenadas del punto inicial r0 del vector r
r1 = [x6 y6 z6]; % Coordenadas del punto final r1 del vector r
r = [(x6-x5) (y6-y5) (z6-z5)] % Coordenadas del tercer vector respecto al eje de coordenadas

Longitud3B = sqrt(((x6-x5)^2+(y6-y5)^2+(z6-z5)^2)) % Hallamos la norma del vector r
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud1A;
end

hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 4 % CONDICION Si se ha elegido graficar CUATRO vectores
fprintf('\n El valor z7 del cuarto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
s0 = [x7 y7 z7]; % Coordenadas del punto inicial s0 del vector s
s1 = [x8 y8 z8]; % Coordenadas del punto final s1 del vector s
s = [(x8-x7) (y8-y7) (z8-z7)] % Coordenadas del cuarto vector respecto al eje de coordenadas
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p, q, r Y s SON:');

Longitud4B = sqrt(((x8-x7)^2+(y8-y7)^2+(z8-z7)^2)) % Hallamos la norma del vector s
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud1A;
end

hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 5 % CONDICION Si se ha elegido graficar CINCO vectores

fprintf('\n El valor z9 del quinto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea

t0 = [x9 y9 z9]; % Coordenadas del punto inicial t0 del vector t
t1 = [x10 y10 z10]; % Coordenadas del punto final t1 del vector t
t = [(x10-x9) (y10-y9) (z10-z9)] % 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:');

Longitud5B = sqrt(((x10-x9)^2+(y10-y9)^2+(z10-z9)^2)) % Hallamos la norma del vector t
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud1A;
end

hold on
hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
elseif action == 6 % CONDICION Si se ha elegido graficar SEIS vectores
fprintf('\n El valor z11 del sexto vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea

u0 = [x11 y11 z11]; % Coordenadas del punto inicial u0 del vector u
u1 = [x12 y12 z12]; % Coordenadas del punto final u1 del vector u
u = [(x12-x11) (y12-y11) (z12-z11)] % 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:');

Longitud6B = sqrt(((x12-x11)^2+(y12-y11)^2+(z12-z11)^2)) % Hallamos la norma del vector u
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud1A;
end

hold on
hold on
hold on
hold on
hold on
vector3d(u0,u1,'c',1) % Graficamos el sexto vector 3D
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
end
end
Ventana de Editor con las funciones: vector2d3funcaja1 vector3d3funcaja1 y vectorposfuncaja1

5. Lneas del algoritmo de la funcin: vectorposfuncaja1 (Captura informacin punto final de un vector posicin 2D desde una Caja de
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Programa para Dibujar un Numero determinado de Vectores en un sistema 2D
% Cuando se ejecuta la funcion llamada vectorgrafico se llama a esta funcion
% Una vez ejecutada debera seguir las instrucciones solicitadas en el Command Window
% Este archivo trabaja necesariamente con la funcion llamada vectorgrafico. Las lineas se encuentran comentadas.
%
% Importante este archivo se usa con la funcion vector2d para n vectores en 2D
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% En esta funcion K es un dato que puede ser 1, 2, 3, 4, 5 o 6 enviada desde la funcion vectorgrafico
function vectorposfuncaja1(K) % K es el parametro de entrada para la funcion vectorgraficodibujo
if K == 1
figura1 = figure;
uicontrol('Parent', figura1, 'Position', [10 10 210 40],'Style','edit','String','Usted eligio graficar un vector'); % Crea un uicontrol especificado en una
figura
pause(2)
close figure 1; % Cerramos la ventana con las cajas de la eleccion del numero de vectores a ser graficados
disp('GRAFICO DE UN VECTOR DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR VALORES DE UN VECTOR POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x1 del vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y1 del vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
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
% Condicionamo la longitud del vector a fin de enviarlo a la funcion vector2d como el sistema de ejes a ser implementado
s = Longitud1A;
figure('Name','Grafico de un vector de posicion en 2D')

vector2d(v,'r',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
figura2 = figure;
uicontrol('Parent', figura2, 'Position', [10 10 210 40],'Style','edit','String','Usted eligio graficar dos vectores'); % Crea un uicontrol especificado en
una figura
pause(2)
disp('GRAFICO DE DOS VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR VALORES DE DOS VECTORES POSICION EN 2D')% Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" y "w" PARA ESTE GRAFICO SON:');
w = [x2 y2] % Declaramos el vector w en 2D
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES "v" y "w" SON:');
Longitud2A = norm(w) % Hallamos la norma del vector w
s = Longitud1A;
else
s = Longitud2A;
end
if Longitud1A==Longitud2A;
s = Longitud1A;
end
figure('Name','Grafico de dos vectores de posicion en 2D')

hold on
vector2d(w,'g',s); % Graficamos el vector w
grid on
title('El grafico de dos vectores de posicion en 2D');
ylabel('EJE Y')
elseif K == 3
figura3 = figure;
uicontrol('Parent', figura3, 'Position', [10 10 210 40],'Style','edit','String','Usted eligio graficar tres vectores'); % Crea un uicontrol especificado en
una figura
pause(2)
disp('GRAFICO DE TRES VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR VALORES DE TRES VECTORES POSICION EN 2D')% Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" y "p" PARA ESTE GRAFICO SON:');
p = [x3 y3] % Declaramos el vector p en 2D
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" y "p" SON:');
Longitud3A = norm(p) % Hallamos la norma del vector p
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud1A;
end
figure('Name','Grafico de tres vectores de posicion en 2D')

hold on
grid on
vector2d(p,'y',s); % Graficamos el vector p
grid on
title('El grafico de tres vectores de posicion en 2D');
ylabel('EJE Y')
elseif K == 4
figura4 = figure;
uicontrol('Parent', figura4, 'Position', [10 10 210 40],'Style','edit','String','Usted eligio graficar cuatro vectores'); % Crea un uicontrol especificado
en una figura
pause(2)
disp('GRAFICO DE CUATRO VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR VALORES DE CUATRO VECTORES POSICION EN 2D')% Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" "p" y "q" PARA ESTE GRAFICO SON:');
q = [x4 y4] % 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:');
Longitud4A = norm(q) % Hallamos la norma del vector q
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud1A;
end
figure('Name','Grafico de cuatro vectores de posicion en 2D')

hold on
grid on
grid on
vector2d(q,'b',s); % Graficamos el vector p
grid on
title('El grafico de cuatro vectores de posicion en 2D');
ylabel('EJE Y')
elseif K == 5
figura5 = figure;
uicontrol('Parent', figura5, 'Position', [10 10 210 40],'Style','edit','String','Usted eligio graficar cinco vectores'); % Crea un uicontrol especificado
en una figura
pause(2)
disp('GRAFICO DE CINCO VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR VALORES DE CINCO VECTORES POSICION EN 2D')% Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" "p" "q" y "r" PARA ESTE GRAFICO SON:');
r = [x5 y5] % Declaramos el vector r en 2D
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" "q" y "r" SON:');
Longitud5A = norm(r) % Hallamos la norma del vector r
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud1A;
end
figure('Name','Grafico de cinco vectores de posicion en 2D')

hold on
grid on
grid on
vector2d(q,'b',s); % Graficamos el vector q
grid on
vector2d(r,'m',s); % Graficamos el vector r
grid on
title('El grafico de cinco vectores de posicion en 2D');
ylabel('EJE Y')
elseif K == 6
figura6 = figure;
uicontrol('Parent', figura6, 'Position', [10 10 210 40],'Style','edit','String','Usted eligio graficar seis vectores'); % Crea un uicontrol especificado en
una figura
pause(2)
disp('GRAFICO DE SEIS VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR VALORES DE SEIS VECTORES POSICION EN 2D')% Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" "p" "q" "r" y "t" PARA ESTE GRAFICO SON:');
t = [x6 y6] % Declaramos el vector t en 2D
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" "q" "r" y "t" SON:');
Longitud6A = norm(t) % Hallamos la norma del vector t
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud1A;
end
figure('Name','Grafico de seis vectores de posicion en 2D')

hold on
grid on
grid on
vector2d(q,'b',s); % Graficamos el vector p
grid on
vector2d(r,'m',s); % Graficamos el vector r
grid on
vector2d(t,'c',s); % Graficamos el vector t
grid on
title('El grafico de seis vectores de posicion en 2D');
ylabel('EJE Y')
end
end
6. Lneas del algoritmo del programa VECTORPOSUNO (Programa que solo permite el grafico de un vector de posicin en 2D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Programa para Graficar un Numero determinado de vectores de posicion en un sistema 2D
% Cuando se ejecuta el archivo llamado VECTORCAJACONTROL1 se llama a este archivo
% Una vez ejecutado debera seguir las instrucciones solicitadas en el Command Window
% Este archivo trabaja necesariamente con el archivo llamado VECTORCAJACONTROL1.
% Los vectores de posicion usan como punto inicial el centro de coordenadas. Las lineas se encuentran comentadas.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
figura2 = figure;
uicontrol('Parent', figura2, 'Position', [10 10 300 40],'Style','edit','String','Usted eligio graficar un vector de posicion en 2D'); % Crea un uicontrol
especificado en una figura
pause(2)
close figure 1; % Cerramos la ventana donde seleccionamos el numero de vectores a ser graficados
clear; % Limpiamos el Workspace
clc; % Limpiamos el Command Window
disp('GRAFICO DE UN VECTOR DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA INGRESAR VALORES DE UN VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL PRIMER VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x1 del vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y1 del vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DEL VECTOR DE POSICION "v" PARA ESTE GRAFICO SON:');
fprintf('\n EL VALOR DE LA LONGITUD (NORMA) DEL VECTOR DE POSICION "v" ES:');

s = Longitud1A;
figure('Name','Grafico de un vector de posicion en 2D')

vector2d(v,'g',s); % Graficamos el vector v
grid on
title('El grafico de un vector de posicion en 2D');
ylabel('EJE Y')
7. Lneas del algoritmo del programa VECTORPOSDOS (Programa que solo permite el grafico de dos vectores de posicin en 2D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Cuando se ejecuta el archivo llamado VECTORCONTROL se llama a este archivo
% Este archivo trabaja necesariamente con el archivo llamado VECTORCONTROL.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
figura2 = figure;
uicontrol('Parent', figura2, 'Position', [10 10 300 40],'Style','edit','String','Usted eligio graficar dos vectores de posicion en 2D'); % Crea un
uicontrol especificado en una figura
pause(2)
disp('GRAFICO DE DOS VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA INGRESAR VALORES DE DOS VECTORES DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL SEGUNDO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" y "w" PARA ESTE GRAFICO SON:');
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" y "w" SON:');
s = Longitud1A;
elseif Longitud1A<Longitud2A
s = Longitud2A;
elseif Longitud1A==Longitud2A;
s = Longitud1A;
end
figure('Name','Grafico de dos vectores de posicion en 2D')

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');
ylabel('EJE Y')
Ventana de Editor con los programas: VECTORPOSUNO VECTORPOSDOS VECTORPOSTRES VECTORPOSCUATRO VECTORPOSCINCO y
VECTORPOSSEIS
8. Lneas del algoritmo del programa VECTORPOSTRES (Programa que solo permite el grafico de tres vectores de posicin en 2D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
figura3 = figure;
uicontrol('Parent', figura3, 'Position', [10 10 300 40],'Style','edit','String','Usted eligio graficar tres vectores de posicion en 2D'); % Crea un
pause(2)
disp('GRAFICO DE TRES VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA INGRESAR VALORES DE TRES VECTORES DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL TERCER VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" y "p" PARA ESTE GRAFICO SON:');
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" y "p" SON:');
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud1A;
end
figure('Name','Grafico de tres vectores de posicion en 2D')

hold on
grid on
vector2d(p, 'red', s); % Graficamos el vector p
grid on
title('El grafico de tres vectores de posicion en 2D');
ylabel('EJE Y')
9. Lneas del algoritmo del programa VECTORPOSCUATRO (Programa que solo permite el grafico de cuatro vectores de posicin en 2D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
figura4 = figure;
uicontrol('Parent', figura4, 'Position', [10 10 300 40],'Style','edit','String','Usted eligio graficar cuatro vectores de posicion en 2D'); % Crea un
pause(2)
disp('GRAFICO DE CUATRO VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA INGRESAR VALORES DE CUATRO VECTORES DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL PRIMER VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL SEGUNDO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL TERCER VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL CUARTO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" "p" y "q" PARA ESTE GRAFICO SON:');
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" y "q" SON:');
% Condicionamos las longitudes de los vectores a fin de enviarlos a la funcion drawvec1 como el sistema de ejes a ser implementado
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud1A;
end
figure('Name','Grafico de cuatro vectores de posicion en 2D')

hold on
grid on
grid on
vector2d(q, 'blue', s); % Graficamos el vector p
grid on
title('El grafico de cuatro vectores de posicion en 2D');
ylabel('EJE Y')
10. Lneas del algoritmo del programa VECTORPOSCINCO (Programa que solo permite el grafico de cinco vectores de posicin en 2D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
figura5 = figure;
uicontrol('Parent', figura5, 'Position', [10 10 300 40],'Style','edit','String','Usted eligio graficar cinco vectores de posicion en 2D'); % Crea un
pause(2)
disp('GRAFICO DE CINCO VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR VALORES DE CINCO VECTORES DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL PRIMER VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL SEGUNDO VECTOR DE POSICION EN 2D')% Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL TERCER VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL CUARTO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL DEL QUINTO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" "p" "q" y "r" PARA ESTE GRAFICO SON:');
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" "q" y "r" SON:');
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud1A;
end
figure('Name','Grafico de cinco vectores de posicion en 2D')

hold on
grid on
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');
ylabel('EJE Y')
11. Lneas del algoritmo del programa VECTORPOSSEIS (Programa que solo permite el grafico de seis vectores de posicin en 2D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
figura6 = figure;
uicontrol('Parent', figura6, 'Position', [10 10 300 40],'Style','edit','String','Usted eligio graficar seis vectores de posicion en 2D'); % Crea un
pause(2)
disp('GRAFICO DE SEIS VECTORES DE POSICION EN 2D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA INGRESAR VALORES DE SEIS VECTORES DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL TERCER VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL CUARTO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL QUINTO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE VALORES DEL PUNTO FINAL SEXTO VECTOR DE POSICION EN 2D') % Con (\n) se imprime en la siguiente linea
fprintf('\n LOS VALORES DE LOS PARES ORDDENADOS DE CADA VECTOR DE POSICION "v" "w" "p" "q" "r" y "t" PARA ESTE GRAFICO SON:');
t = [x6 y6] % Declaramos el vector t en 2D
fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES DE POSICION "v" "w" "p" "q" "r" y "t" SON:');
Longitud6A = norm(t) % Hallamos la norma del vector t
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud1A;
end
figure('Name','Grafico de seis vectores de posicion en 2D')

hold on
grid on
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');
ylabel('EJE Y')
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector v

p1 = [x2 y2]; % Coordenadas del punto final p1 del vector v

s = Longitud1A;

grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


p = [(x2-x1) (y2-y1)]; % Coordenadas del primer vector respecto al eje de coordenadas
q = [(x4-x3) (y4-y3)]; % Coordenadas del segundo vector respecto al eje de coordenadas

s = Longitud1A;
s = Longitud2A;
s = Longitud1A;
end

hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



r = [(x6-x5) (y6-y5)]; % Coordenadas del tercer vector respecto al eje de coordenadas

s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud1A;
end

hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



s = [(x8-x7) (y8-y7)]; % Coordenadas del cuarto vector respecto al eje de coordenadas

s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud1A;
end

hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
Ventana de Editor con los programas: VECTORUNO2D VECTORDOS2D VECTORTRES2D VECTORCUATRO2D VECTORCINCO2D y VECTORSEIS2D
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



t = [(x10-x9) (y10-y9)]; % 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:');
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud1A;
end

hold on
hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


u0 = [x11 y11]; % Coordenadas del punto inicial u0 del vector u
u1 = [x12 y12]; % Coordenadas del punto final u1 del vector u

t = [(x10-x9) (y10-y9)]; % Coordenadas del quinto vector respecto al eje de coordenadas
u = [(x12-x11) (y12-y11)]; % Coordenadas del sexto vector respecto al eje de coordenadas

Longitud6A = norm(u); % Hallamos la norma del vector t
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud1A;
end

hold on
hold on
hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



s = Longitud1A;

grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
Ventana de Editor con los programas: VECTORUNO3D VECTORDOS3D VECTORTRES3D VECTORCUATRO3D VECTORCINCO3D VECTORSEIS3D
VECTORSIETE3D VECTOROCHO3D y VECTORNUEVE3D
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



s = Longitud1A;
s = Longitud2A;
s = Longitud1A;
end

hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud1A;
end

hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud1A;
end

hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


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

s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud1A;
end

hold on
hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



Longitud6B = sqrt(((x12-x11)^2+(y12-y11)^2+(z12-z11)^2)) % Hallamos la norma del vector u
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud1A;
end

hold on
hold on
hold on
hold on
hold on
grid on
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
24. Lneas del algoritmo del programa VECTORSIETE3D (Programa que solo permite el grafico de siete vectores en 3D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

disp('GRAFICO DE SIETE VECTORES EN 3D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE SIETE VECTORES EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL SEPTIMO VECTOR EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL SEPTIMO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x13 del septimo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y13 del septimo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor z11 del septimo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL SEPTIMO VECTOR') % Con (\n) se imprime en la siguiente linea

v0 = [x13 y13 z13]; % Coordenadas del punto inicial v0 del vector v
v1 = [x14 y14 z14]; % Coordenadas del punto final v1 del vector v
v = [(x14-x13) (y14-y13) (z14-z13)] % 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:');

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
if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A & Longitud1A>Longitud5A & Longitud1A>Longitud6A & Longitud1A>Longitud7A
s = Longitud1A;
elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A & Longitud2A>Longitud4A & Longitud2A>Longitud5A & Longitud2A>Longitud6A & Longitud2A>Longitud7A
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud7A;
elseif Longitud1A==Longitud2A | Longitud1A==Longitud3A | Longitud1A==Longitud4A | Longitud1A==Longitud5A | Longitud1A==Longitud6A |
Longitud1A==Longitud7A
s = Longitud1A;
end
figure('Name','Grafico de siete vectores en 3D')

vector3d(p0, p1) % Graficamos el primer vector 3D
hold on
vector3d(q0, q1) % Graficamos el segundo vector 3D
hold on
vector3d(r0, r1) % Graficamos el tercer vector 3D
hold on
vector3d(s0, s1) % Graficamos el cuarto vector 3D
hold on
vector3d(t0, t1) % Graficamos el quinto vector 3D
hold on
vector3d(u0, u1) % Graficamos el sexto vector 3D
hold on
vector3d(v0, v1) % Graficamos el septimo vector 3D
grid on
title('Grafico de siete vectores en 3D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
25. Lneas del algoritmo del programa VECTOROCHO3D (Programa que solo permite el grafico de ocho vectores en 3D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

disp('GRAFICO DE OCHO VECTORES EN 3D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE OCHO VECTORES EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL OCTAVO VECTOR EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL OCTAVO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x15 del octavo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y15 del octavo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor z15 del octavo vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL OCTAVO VECTOR') % Con (\n) se imprime en la siguiente linea

w0 = [x15 y15 z15]; % Coordenadas del punto inicial w0 del vector w
w1 = [x16 y16 z16]; % Coordenadas del punto final w1 del vector w
w = [(x16-x15) (y16-y15) (z16-z15)] % 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:');

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
if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A & Longitud1A>Longitud5A & Longitud1A>Longitud6A & Longitud1A>Longitud7A &
Longitud1A>Longitud8A
s = Longitud1A;
elseif Longitud2A>Longitud1A & Longitud2A>Longitud3A & Longitud2A>Longitud4A & Longitud2A>Longitud5A & Longitud2A>Longitud6A & Longitud2A>Longitud7A &
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud7A;
s = Longitud8A;
Longitud1A==Longitud7A | Longitud1A==Longitud8A
s = Longitud1A;
end
figure('Name','Grafico de ocho vectores en 3D')

hold on
hold on
hold on
hold on
hold on
hold on
hold on
vector3d(w0, w1) % Graficamos el octavo vector 3D
grid on
title('Grafico de ocho vectores en 3D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
26. Lneas del algoritmo del programa VECTORNUEVE3D (Programa que solo permite el grafico de nueve vectores en 3D)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

disp('GRAFICO DE NUEVE VECTORES EN 3D') % Se visualizara en el Command Window este mensaje
fprintf('\n PROGRAMA PARA INGRESAR LOS VALORES DE NUEVE VECTORES EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL OCTAVO VECTOR EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL OCTAVO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL OCTAVO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL NOVENO VECTOR EN 3D') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO INICIAL DEL NOVENO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x17 del noveno vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y15 del noveno vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor z15 del noveno vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n INGRESE LOS VALORES DEL PUNTO FINAL DEL NOVENO VECTOR') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor x18 del noveno vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor y18 del noveno vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea
fprintf('\n El valor z18 del noveno vector podria estar entre -10 a 10') % Con (\n) se imprime en la siguiente linea

w0 = [x15 y15 z15]; % Coordenadas del punto inicial w0 del vector w
w1 = [x16 y16 z16]; % Coordenadas del punto final w1 del vector w
n0 = [x17 y17 z17]; % Coordenadas del punto inicial n0 del vector n
n1 = [x18 y18 z18]; % Coordenadas del punto final n1 del vector n
w = [(x16-x15) (y16-y15) (z16-z15)] % Coordenadas del octavo vector respecto al eje de coordenadas
n = [(x18-x17) (y18-y17) (z18-z17)] % 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 n SON:');

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(n); % Hallamos la norma del vector n
Longitud9B = sqrt(((x18-x17)^2+(y18-y17)^2+(z18-z17)^2)) % Hallamos la norma del vector n
if Longitud1A>Longitud2A & Longitud1A>Longitud3A & Longitud1A>Longitud4A & Longitud1A>Longitud5A & Longitud1A>Longitud6A & Longitud1A>Longitud7A &
Longitud1A>Longitud8A & Longitud1A>Longitud9A
s = Longitud1A;
s = Longitud2A;
s = Longitud3A;
s = Longitud4A;
s = Longitud5A;
s = Longitud6A;
s = Longitud7A;
s = Longitud8A;
s = Longitud9A;
Longitud1A==Longitud7A | Longitud1A==Longitud8A | Longitud1A==Longitud9A
s = Longitud1A;
end
figure('Name','Grafico de nueve vectores en 3D')

hold on
hold on
hold on
hold on
hold on
hold on
hold on
vector3d(w0, w1) % Graficamos el octavo vector 3D
hold on
vector3d(n0, n1) % Graficamos el noveno vector 3D
grid on
title('Grafico de nueve vectores en 3D');
ylabel('Eje Y')
zlabel('Eje Z')
axis([-s s -s s]);
Ventana de Editor con el programa principal: VECTORCAJACONTROL1

27. Lneas del algoritmo del programa VECTORCAJACONTROL1 para la Caja de Control para el grafico de vectores 2D, vectores 3D y
vectores de posicin 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.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

a = figure('Color',[1 1 1],'Position',[130 50 990 450],'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 teclas de comando de las funciones creadas %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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.060 0.870 0.435 0.100],'Style','frame','Tag','marcoexternocajadertitulo'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.070 0.880 0.415 0.080],'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.085 0.905 0.385 0.030],'String','Cajas de teclas de ejecucion de grafico de 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.060 0.625 0.435 0.220],'Style','frame','Tag','marcoexternocajadervecpos'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.070 0.635 0.415 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.130 0.795 0.300 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 vectorposfuncaja1
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Callback','vectorposfuncaja1(1)','Position',[0.090 0.730 0.110 0.040],'String','1 Vector Posicion','Tag','ejecutarfunvecpos1');
% 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.060 0.402 0.435 0.210],'Style','frame','Tag','marcoexternocajadervec2D'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.070 0.412 0.415 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.135 0.560 0.275 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 vector2d3funcaja1
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Callback','vector2d3funcaja1(1)','Position',[0.090 0.505 0.110 0.040],'String','1 Vector en 2D','Tag','ejecutarfunvec2D1');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.060 0.180 0.435 0.210],'Style','frame','Tag','marcoexternocajadervec3D'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.070 0.190 0.415 0.190],'Style','frame','Tag','marcointernocajadervec3D'); % Marco blanco
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 y 6 Vector a ser enviadas a la funcion vector3d3funcaja1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%% Zona de habilitacion de la Caja de control derecha con teclas de comando de los archivos creados %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Habilitacion del marco 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',[0 0 0],'Position',[0.525 0.872 0.445 0.095],'Style','frame','Tag','marcoexternocajaizqtitulo'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.535 0.882 0.425 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.590 0.905 0.330 0.030],'String','Cajas de teclas de ejecucion de grafico de vectores con
archivos','Style','text','Tag','titulocajaizq');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.525 0.620 0.445 0.225],'Style','frame','Tag','marcoexternocajaizqvecpos'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.535 0.630 0.425 0.205],'Style','frame','Tag','marcointernocajaizqvecpos'); % Marco blanco
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.605 0.780 0.295 0.030],'String','Teclas de Ejecucion Grafico Vectores Posicion en
2D','Style','text','Tag','titulocajaizqcmdvecpos');
% 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 los archivos que ejecutaran los comandos
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Position',[0.555 0.720 0.100 0.040],'Style','pushbutton','String','1 Vector
Posicion','Tag','ejecutarvecpos2D1','Callback','VECTORPOSUNO');
Posicion','Tag','ejecutarvecpos2D2','Callback','VECTORPOSDOS');
Posicion','Tag','ejecutarvecpos2D3','Callback','VECTORPOSTRES');
Posicion','Tag','ejecutarvecpos2D4','Callback','VECTORPOSCUATRO');
Posicion','Tag','ejecutarvecpos2D5','Callback','VECTORPOSCINCO');
Posicion','Tag','ejecutarvecpos2D6','Callback','VECTORPOSSEIS');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.525 0.395 0.445 0.215],'Style','frame','Tag','marcoexternocajaizqvec3D'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.535 0.405 0.425 0.195],'Style','frame','Tag','marcointernocajaizqvec3D'); % Marco blanco
2D','Style','text','Tag','titulocajaizqcmdvec2D');
% 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 los archivos que ejecutaran los comandos
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Position',[0.555 0.490 0.100 0.040],'Style','pushbutton','String','1 Vector en 2D','Tag','ejecutarvec2D1','Callback','VECTORUNO2D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 0],'Position',[0.695 0.490 0.100 0.040],'Style','pushbutton','String','2 Vector en 2D','Tag','ejecutarvec2D2','Callback','VECTORDOS2D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 0],'Position',[0.820 0.490 0.100 0.040],'Style','pushbutton','String','3 Vector en 2D','Tag','ejecutarvec2D3','Callback','VECTORTRES2D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 1],'Position',[0.555 0.430 0.100 0.040],'Style','pushbutton','String','4 Vector en 2D','Tag','ejecutarvec2D4','Callback','VECTORCUATRO2D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 1],'Position',[0.695 0.430 0.100 0.040],'Style','pushbutton','String','5 Vector en 2D','Tag','ejecutarvec2D5','Callback','VECTORCINCO2D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 1],'Position',[0.820 0.430 0.100 0.040],'Style','pushbutton','String','6 Vector en 2D','Tag','ejecutarvec2D6','Callback','VECTORSEIS2D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 0],'Position',[0.525 0.120 0.445 0.265],'Style','frame','Tag','marcoexternocajaizqvec3D'); % Marco negro
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 1],'Position',[0.535 0.130 0.425 0.245],'Style','frame','Tag','marcointernocajaizqvec3D'); % Marco blanco
3D','Style','text','Tag','titulocajaizqcmdvec3D');
% 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 a los archivos que ejecutaran los comandos
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Position',[0.555 0.280 0.100 0.040],'Style','pushbutton','String','1 Vector en 3D','Tag','ejecutarvec3D1','Callback','VECTORUNO3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 0],'Position',[0.695 0.280 0.100 0.040],'Style','pushbutton','String','2 Vector en 3D','Tag','ejecutarvec3D2','Callback','VECTORDOS3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 0],'Position',[0.820 0.280 0.100 0.040],'Style','pushbutton','String','3 Vector en 3D','Tag','ejecutarvec3D3','Callback','VECTORTRES3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 0 1],'Position',[0.555 0.220 0.100 0.040],'Style','pushbutton','String','4 Vector en 3D','Tag','ejecutarvec3D4','Callback','VECTORCUATRO3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 1],'Position',[0.695 0.220 0.100 0.040],'Style','pushbutton','String','5 Vector en 3D','Tag','ejecutarvec3D5','Callback','VECTORCINCO3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 1],'Position',[0.820 0.220 0.100 0.040],'Style','pushbutton','String','6 Vector en 3D','Tag','ejecutarvec3D6','Callback','VECTORSEIS3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 0 0],'Position',[0.555 0.155 0.100 0.040],'Style','pushbutton','String','7 Vector en 3D','Tag','ejecutarvec3D7','Callback','VECTORSIETE3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[0 1 0],'Position',[0.695 0.155 0.100 0.040],'Style','pushbutton','String','8 Vector en 3D','Tag','ejecutarvec3D8','Callback','VECTOROCHO3D');
b = uicontrol('Parent',a,'Units','normalized','BackgroundColor',[1 1 0],'Position',[0.820 0.155 0.100 0.040],'Style','pushbutton','String','9 Vector en 3D','Tag','ejecutarvec3D9','Callback','VECTORNUEVE3D');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
28. Secuencia de trabajo del proyecto: Caja de Control para el grafico de vectores 2D, vectores 3D y vectores de posicin 2D
Cuando se pone a trabajar el Proyecto completo, la secuencia de operacion es la siguiente:
Capturar Punto Inicial Vector Posicion 2D Graficar Vector de Posicion 2D

Utiliza funcin vectorposfuncaja1 Utiliza funcin vector2d
Capturar Punto Inicial y Final Vector 2D

Ejecucion archivo VECTORCAJACONTROL1
Utiliza funcin vector2d3funcaja1
Graficar Vector 2D o Vector 3D
Utiliza funcin vector3d
Capturar Punto Inicial y Final Vector 3D
Utiliza funcin vector3d3funcaja1
1o Se ejecuta la simulacion del archvivo VECTORCAJACONTROL1

2o Internamente las funciones vectorposfuncaja1 vector2d3funcaja1 y vector3d3fubcaja1 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 ejecuta la simulacion de la interface en MATLAB aparecen dos menu:
- El que ejecuta vectores con funciones
- El que ejecuta vectores con programas
Cada menu tiene unos sub menu para graficar vectores posicion, vectores en el espacio 2D o vectores en el espacio 3D.
Presentacion de las funciones (Rojo) y los archivos (Azul) para trabajar de acuerdo a la seleccion del operador.
4o Asumiendo que eliga graficar tres vectores de posicion en 2D, se ejecuta la Tecla indicada y se muestra una nueva ventana que confirma
esta eleccion.
Entonces debera cambiar a la ventana del Command Window para ingresar los datos de los puntos finales de los pares ordenados de un
vector de posicion 2D, obteniendo al final la grafica de los vectores.

MATLAB (Manual Programacion Interface Vectores - 2da Edicion)

Cargado por

Copyright:

Formatos disponibles

MATLAB (Manual Programacion Interface Vectores - 2da Edicion)

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

MATLAB (Manual Programacion Interface Vectores - 2da Edicion)

Cargado por

Copyright:

Formatos disponibles

MATLAB

MANUAL DE PROGRAMACION DE INTERFACE

Ingeniero Electrnico: Monteza Zevallos Fidel Tomas

Octubre de 2017 (Segunda Edicin)

1. Lneas del algoritmo de la funcin: vector2d (Vector en dos dimensiones)

2. Lneas del algoritmo de la funcin: vector3d (Vector en tres dimensiones)

if nargin==1 % nargin es el numero de los argumentos de entrada de la funcion drawvec1

% Un handle es un objeto que indirectamente referencia su data.

% v(1)= Tomamos el primer elemento del vector fila v (parametro de entrada)

Se tipea la funcion vector2d en el Command Window con sus respectivos datos

Ventana de Editor con las funciones: vector2d y vector3d

%Con estas lineas se podra lograr la grafica de vectores en un sistema 3D (x,y,z)

hu = [x1-alpha*(p(1)+beta*(p(2)+eps)); x1; x1-alpha*(p(1)-beta*(p(2)+eps))];

hold on % Mantenemos el grafico de de la linea que represnta al vector 3D

%Con estas lineas se podra lograr la grafica de vectores en un sistema 2D (x,y)

hu = [x1-alpha*(p(1)+beta*(p(2)+eps)); x1; x1-alpha*(p(1)-beta*(p(2)+eps))];

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

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

if action == 1 % CONDICION Si se ha elegido graficar UN solo vector

p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector p

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:');

figure('Name','Grafico de un vector en 2D')

elseif action == 2 % CONDICION Si se ha elegido graficar DOS vectores

p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector p

p = [(x2-x1) (y2-y1)] % Coordenadas del primer vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p Y q SON:');

figure('Name','Grafico de dos vectores en 2D')

elseif action == 3 % CONDICION Si se ha elegido graficar TRES vectores

p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector p

p = [(x2-x1) (y2-y1)] % Coordenadas del primer vector respecto al eje de coordenadas

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

figure('Name','Grafico de tres vectores en 2D')

elseif action == 4 % CONDICION Si se ha elegido graficar CUATRO vectores

p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector p

p = [(x2-x1) (y2-y1)] % Coordenadas del primer vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES v Y w ES:');

figure('Name','Grafico de cuatro vectores en 2D')

elseif action == 5 % CONDICION Si se ha elegido graficar CINCO vectores

p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector p

p = [(x2-x1) (y2-y1)] % Coordenadas del primer vector respecto al eje de coordenadas

figure('Name','Grafico de cinco vectores en 2D')

elseif action == 6 % CONDICION Si se ha elegido graficar SEIS vectores

p0 = [x1 y1]; % Coordenadas del punto inicial p0 del vector p

p = [(x2-x1) (y2-y1)] % Coordenadas del primer vector respecto al eje de coordenadas

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES v Y w ES:');

figure('Name','Grafico de seis vectores en 2D')

p0 = [x1 y1 z1]; % Coordenadas del punto inicial p0 del vector p

fprintf('\n EL VALOR DE LA LONGITUD (NORMA) DEL VECTOR p ES:');

figure('Name','Grafico de un vector en 3D')

elseif action == 2 % CONDICION Si se ha elegido graficar DOS vectores

p0 = [x1 y1 z1]; % Coordenadas del punto inicial p0 del vector p

fprintf('\n LOS VALORES DE LAS LONGITUDES (NORMA) DE LOS VECTORES p Y q SON:');

figure('Name','Grafico de dos vectores en 3D')

elseif action == 3 % CONDICION Si se ha elegido graficar TRES vectores

p0 = [x1 y1 z1]; % Coordenadas del punto inicial p0 del vector p

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

figure('Name','Grafico de tres vectores en 3D')

elseif action == 4 % CONDICION Si se ha elegido graficar CUATRO vectores

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

hu = [x1-alpha(p(1)+beta(p(2)+eps)); x1; x1-alpha(p(1)-beta(p(2)+eps))];

hu = [x1-alpha(p(1)+beta(p(2)+eps)); x1; x1-alpha(p(1)-beta(p(2)+eps))];