Iwire  :=  
        250 epsN/(1.5 10^(-6));
dy  :=  
        21.42 Sqrt[epsN/(1.5 10^(-6))] Sqrt[
            26/Momentum];

sigmabblr1  :=  
        21.42/9.5 Sqrt[26/Momentum] Sqrt[
            1.5/3.75];
sigmabblr2  :=  
        21.10/9.5 Sqrt[26/Momentum] Sqrt[1.5/3.75];

sigmabblr1  //. {Momentum -> 55}
sigmabblr2  //.  {Momentum -> 55}

15/1.9

Sqrt[1.7/3.75] // N

1.9 0.67

nominal distance wire center to beam = 20.27 mm 0 orbit

distance  :=  
      Sqrt[beta 1/(2 Pi (Momentum/
                    0.938) 3 10^8 1.6 10^(-19) /(1.5 10^(-18)))  Iwire0 0.6 / (DeltaQ)]

betay_BBLR1  := 51.2
betay_BBLR2 :=  45.0
betax_BBLR1 := 47.6
betax_BBLR2 := 54.1

half wires for 7 July 2009 MD

betay_BBLR1  := 49.5
betay_BBLR2 :=  43.2
betax_BBLR1 := 48.9
betax_BBLR2:=55.8

.014/Sqrt[51.2 1.5 10^(-6)/55  .938]

.009/Sqrt[51.2 1.5 10^(-6)/55  .938]

wire 1 distance kick

distancekick  :=  
      2 Iwire0 1.2 1.5 10^(-18)/(Momentum/ .938)/(1.6 10^(-19)) / (3 10^8)/
          kickangle

distancekick  //. {Iwire0 -> 250, Momentum -> 37, 
        kickangle -> 0.000022 1.439}

wire 1 x tune shift

distance  //. {Iwire0 -> 250, Momentum -> 55,  
        DeltaQ -> 0.0069,  beta -> 48.9}

wire 1 y tune shift

distance  //. {Iwire0 -> 250, Momentum -> 55,  
        DeltaQ -> 0.0069,  beta -> 49.5}

wire 2 x tune shift

distance  //. {Iwire0 -> 250, Momentum -> 55,  
        DeltaQ -> 0.0079,  beta -> 55.18}

wire 2 y tune shift

distance  //. {Iwire0 -> 250, Momentum -> 55,  
        DeltaQ -> 0.0068,  beta -> 43.2}

wire 1 x tune shift

distance  //. {Iwire0 -> 250, Momentum -> 37,  
        DeltaQ -> 0.0049,  beta -> 47.6}

wire 1 y tune shift

distance  //. {Iwire0 -> 250, Momentum -> 37,  
        DeltaQ -> 0.0058,  beta -> 51.2}

Iwire //. {epsN -> 1.8 10^(-6)}

dy //. {epsN -> 1.5 10^(-6), 
        Momentum -> 37}

1.5 27/22 // N
1.8/99 83 // N

0.00090^2/22 26/ .938

0.0020^2/99 26/ .938