This web page is also available on English. Your browser is configured to use English as the default locale. Would you like to view this page in English? • Yes pleaseNo, thanks

Centro de Scripts y Funciones de Usuario

Crear un radiotelescopio de 40 m. del Observatorio de Yebes

Este script crea el radiotelescopio de 40 m. del Observatorio de Yebes

Thumb radiotelescope Thumb mainparameters Thumb radiotelescope nf
#
#	 newFASANT script file 
#
# 	Creates the 40 m radio telescope from Yebes Observatory
#	More detailed information can be found in next link
#		http://www.oan.es/rt40m/optica[en].html
#
#	The following specifications are given:
#		D: Main reflector diameter
#		fp: Main reflector focal length
#		Dvp: Diameter of the vertex hole of the main reflector
#		Ds: Sub reflector diameter
#		hp: Main reflector depth
#		Dvs: Diameter of the vertex hole of the sub reflector
#		Lv: Distance between primary focus and sub reflector vertex
#		Ls: Distance between parabola border and sub reflector vertex
#
#	Parameters with fixed values

set D {40.0}
set fp {15.0}
set Dvp {2.882}
set Ds {3.28}
set hp {6.667}
set Dvs {0.2635}
set Lv {1.20413}
set Ls {7.129}
#	Auxiliary parameters defined automatically

set $3  = Dvs/2
set $1  = hp+Ls
set $2  = hp+Ls+Lv
set $4  = Ls+Lv
#	Main reflector

paraboloid -n reflector -p 0.0 0.0 0.0 Dvp fp D D
#	Subreflector

hyperboloid -n hyperboloid -p 0.0 0.0 0.0 $1 $2 Ds
explode -s hyperboloid
splitSurfaceByIsoparam -u -s hyperboloid_1 -p 0.25 0.5 0.75
group -s hyperboloid_1_1 hyperboloid_1_2 hyperboloid_1_3 hyperboloid_1_4 -n hyperboloid2
cylinder -c -n cylinder -p 0.0 0.0 hp $3 $4
booleanOutside -s -objectA hyperboloid2 -objectB cylinder -n subreflector

¿Te ha sido útil esta información?

Usamos cookies en este sitio web para mejorar tu experiencia al navegar por esta página. Si continúas usando este sitio, aceptas nuestra política de cookies.

Aceptar