OBJETOS SOC Ver.2
Edítese este fichero con el programa soc2.exe
 
_diafragma(diametro)
{
define un diafragma.
El porqué de esta definición se explica en la página 32.
}
R1=99999 R2=99999 g=0.000001 D=diametro n=1


_lente(radio1, radio2, grosor, diametro, indice)
{define una lente gruesa}
R1=radio1 R2=radio2 g=grosor D=diametro n=indice


_lamina(grosor, diametro, indice)
{Define una lamina planoparalela}
R1=oo R2=oo g=grosor D=diametro n=indice


_esfera(radio, indice)
{define una esfera}
R1=radio R2=-radio g=2*radio D=2*radio n=indice


_lenteC(focal, diametro)
{define una lente convergente delgada de focal 
aproximadamente la indicada. El diametro máximo es 17}
R1=oo R2=-1000 g=0.01 D=diametro n=1+1000/focal


_dosEsferas(radio,indice,separa)
{Este es un ejemplo para mostrar que
una función puede usar otras funciones}
<esfera(radio,indice)
x=separa <esfera(radio,indice)


_Tessar(factor)
{
Define un objetivo Tessar. 
La variable factor determina el tamaño del objetivo.
Véase página 32 del libro y el ejercicio 17 de la página 70
}
x=0 <diafragma(factor*8.5)
x=factor*0.001 R1=factor*16.28 R2=-factor*275.7 g=factor*3.57 n=1.611 D=factor*9
x=factor*1.89 R1=-factor*34.57 R2=factor*15.82 g=factor*0.81 n=1.605 D=factor*9
x=factor*3.25 R1=9999 R2=factor*19.2 g=factor*2.17 n=1.512 D=factor*9
x=0 R1=factor*19.2 R2=-factor*24 g=factor*3.96 n=1.611 D=factor*9