linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow wavelengths below 4.6125 Angstroms for velocity selector on quokka

Browse Source
This commit is contained in:
Ferdi Franceschini
2013-08-15 08:08:36 +10:00
parent d038891bc1
commit 335eda0a55
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/sans/config/velsel/sct_velsel.tcl
View File

@@ -114,10 +114,10 @@ namespace eval ::scobj::velocity_selector {
set VNeutron $nvs43Par(VNeutron) set VNeutron $nvs43Par(VNeutron)
} }
} }
# 2013-08-01 ffr: The Astrium program does allow wavelengths below 4.6125 Angstroms
if {$lambda1 < 4.6125} { # if {$lambda1 < 4.6125} {
return -code error "Minimum wavelength is 4.6125 Angstrom" # return -code error "Minimum wavelength is 4.6125 Angstrom"
} # }
set lambda0 [expr ($m_dTwistAngle*60.0*$VNeutron)/(360.0*$m_dLength*$m_iMaxSpeed)] set lambda0 [expr ($m_dTwistAngle*60.0*$VNeutron)/(360.0*$m_dLength*$m_iMaxSpeed)]
set pi [expr acos(-1)] set pi [expr acos(-1)]