Allow wavelengths below 4.6125 Angstroms for velocity selector on quokka
This commit is contained in:
@@ -114,10 +114,10 @@ namespace eval ::scobj::velocity_selector {
|
||||
set VNeutron $nvs43Par(VNeutron)
|
||||
}
|
||||
}
|
||||
|
||||
if {$lambda1 < 4.6125} {
|
||||
return -code error "Minimum wavelength is 4.6125 Angstrom"
|
||||
}
|
||||
# 2013-08-01 ffr: The Astrium program does allow wavelengths below 4.6125 Angstroms
|
||||
# if {$lambda1 < 4.6125} {
|
||||
# return -code error "Minimum wavelength is 4.6125 Angstrom"
|
||||
# }
|
||||
|
||||
set lambda0 [expr ($m_dTwistAngle*60.0*$VNeutron)/(360.0*$m_dLength*$m_iMaxSpeed)]
|
||||
set pi [expr acos(-1)]
|
||||
|
||||
Reference in New Issue
Block a user