|
40m
QIL
Cryo_Lab
CTN
SUS_Lab
TCS_Lab
OMC_Lab
CRIME_Lab
FEA
ENG_Labs
OptContFac
Mariner
WBEEShop
|
| 40m Log |
Not logged in |
 |
|
|
 Wed Mar 20 14:44:47 2013, Jamie, Update, Optics, updated calculations of PRC/SRC g-factors and ARM mode matching
|
 Mon Mar 25 16:51:59 2013, Jenne, Update, Optics, updated calculations of PRC/SRC g-factors and ARM mode matching
|
Tue Mar 26 11:33:55 2013, Jamie, Update, Optics, HOWTO calculate effective RoC of flipped TT 
|
|
|
Message ID: 8352
Entry time: Tue Mar 26 11:33:55 2013
In reply to: 8316
|
| Author: |
Jamie |
| Type: |
Update |
| Category: |
Optics |
| Subject: |
HOWTO calculate effective RoC of flipped TT |
|
|
In case anyone is curious how I got the numbers for the effective radius of curvature of the flipped TT mirrors, I include the code below. Now you can calculate at home!
Here's the calculation for the effective RoC of a flipped SR2 with nominal un-flipped HR RoC of -600:
>> [Mt, Ms] = TTflipped(600, 5);
>> M2Reff('t', Mt, 5)
ans =
412.9652
>>
|
|
function [Mt, Ms] = mirror(R, a1, n)
% [Mt, Ms] = mirror(R, a1, n)
if length(R) > 1
Rt = R(1);
Rs = R(2);
else
Rt = R;
Rs = R;
end
... 9 more lines ...
|
|
function [Mt, Ms] = transmission(R, a1, n1, n2)
% [Mt, Ms] = transmission(R, a1, n1, n2)
if length(R) > 1
Rt = R(1);
Rs = R(2);
else
Rt = R;
Rs = R;
end
... 19 more lines ...
|
|
function [Mt, Ms] = TTflipped(R, a1)
% [Mt, Ms] = TTflipped(R, a1)
if length(R) > 1
Rt = R(1);
Rs = R(2);
else
Rt = R;
Rs = R;
end
... 32 more lines ...
|
|
function Reff = M2Reff(type, M, a)
% Reff = M2Reff('type', M, a)
n = 1;
R = -2*n/M(2,1);
ca = cos(a*pi/180);
switch lower(type)
... 8 more lines ...
|