ejercicio dióptrio y gráfica normal y logaritmica

% Autor :
% Fecha : 8/11/2008
clear all;clc;close all;
% Script de entrega de clase 5
% Dado un diptrio de curvatura =5.55mm e índices n=1 n'=1.333, representar
% la distancia imagen en función de la distancia objeto para un objeto que
% pueda estar situado desde 1m hasta 1km del vertice del dioptrio,
% empleando 4096 puntos.
s1=linspace(-1000,-1,4096); % Creamos la variable s1 (distancia objeto) la cual va desde 1 metro hasta 1000 metros con 4096 ptos. n1=1; n2=1.333;
% Creamos los índices n r=0.00555;
% Radio del dioptrio de 5.55mm expresado en metros.
%El diotrio esférico viene dado por la expresión: (n2/s2)- (n1/s1)=((n2-n1)/r).
%como queremos la distancia imagen
(s2), s2=n2/((n2-n1)/r)+(n1/s1). s2= n2./(((n2-n1)/r)+(n1./s1)); % Distancia imagen

% REALIZACIÓN DE LA GRÁFICA
graf=figure(1) % creo una figura
graf=plot(s1,s2,'g-','lineWidth',1.75);
axis square; %impone que el gráfico sea de iguales dimensiones horizontales y verticales, sea cuadrada.
xlabel('distancia objeto (metros)','FontName','Arial','FontSize',12); % etiqueta eje x, y la fuente y tamaño
ylabel('distancia imagen (metros)','FontName','Arial','FontSize',12); % etiqueta eje y, y la fuente y tamaño.
set(figure(1),'Name','Distancia imagen en función de la distancia objeto para un diotrio de radio 5.55mm');%nombra al gráfico
set(figure(1),'NumberTitle','off')%elimina el contador que viene por defecto(fig2)
set(figure(1),'MenuBar','none');% elimina los botones de la gráfica

% Escala logaritmica para la función anterior
s2= log(n2./(((n2-n1)/r)+(n1./log(s1)))); % Distancia imagen

% REALIZACIÓN DE LA GRÁFICA
graf2=figure(2) % creo una figura
graf2=plot(log(s1),s2,'r-','lineWidth',1.75);
axis square; %impone que el gráfico sea de iguales dimensiones horizontales y verticales, sea cuadrada.
xlabel('log de la distancia objeto (metros)','FontName','Arial','FontSize',12); % etiqueta eje x, y la fuente y tamaño
ylabel('log de la distancia imagen (metros)','FontName','Arial','FontSize',12); % etiqueta eje y, y la fuente y tamaño.
set(figure(2),'Name','Distancia imagen en función de la distancia objeto para un diotrio de radio 5.55mm');%nombra al gráfico set(figure(2),'NumberTitle','off')%elimina el contador que viene por defecto(fig2)
pos=[30 100 550 350]; %determino la posición de la gráfica
set(figure(2),'Position',pos); % constituye la posición elegida para la gráfica.
set(figure(2),'MenuBar','none');% elimina los botones de la gráfica