! BMAD input file lattice := 6wigs_3_18_03 call, file=/cdat/cesr38/disk1/dlr/bmad_devel/layout/cesr_c1_layout.bmad !this is the layout as of 3/18/03 taylor_order = 5 ! cleo solenoid beam, energy = 1.88 solenoid_tesla := 1.0 ks_solenoid := -1.0e-9 * clight * solenoid_tesla / beam[energy] cleo_sol: solenoid, l = 3.51, ks = ks_solenoid, superimpose wig_w[b_max]:=0.0 wig_e[b_max]:=0.0 wig_damp_drift: drift, l=1.6 dwig: drift, l=0.065 !w8-20_20_161_0621_009500.in !l_wig = 1.59999988973141 !wig1_14e : wiggler, l=1.6, n_pole=7, b_max=2.1, & ! mat6_calc_method = tracking !wig2_14e : wiggler, l=1.6, n_pole=7, b_max=2.1, & ! mat6_calc_method = tracking !wig_15e : wiggler, l=1.6, n_pole=7, b_max=2.1, & ! mat6_calc_method = tracking !wig1_18e : wiggler, l=1.6, n_pole=7, b_max=2.1, & ! mat6_calc_method = tracking !wig2_18e : wiggler, l=1.6, n_pole=7, b_max=2.1, & ! mat6_calc_method = tracking !wig3_18e : wiggler, l=1.6, n_pole=7, b_max=2.1, & ! mat6_calc_method = tracking species:= electron !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/7pole/wig_7pole_plus.bmad !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/8pole/wig_8pole_plus.bmad !the following are in ../layout/wiggler_def_c1.bmad !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/7pole/wig1_14e.bmad !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/7pole/wig2_14e.bmad !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/8pole/wig_15e.bmad !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/8pole/wig1_18e.bmad !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/8pole/wig2_18e.bmad !call, file=/cdat/cesr38/disk1/dlr/bmad_devel/8pole/wig3_18e.bmad !wig1_14e : wig_7pole_plus !wig1_14e[polarity]:=1 wig1_14e[num_steps]:= 100 !wig2_14e : wig_7pole_plus !wig2_14e[polarity]:=-1 wig2_14e[num_steps]:= 100 !wig_15e : wig_8pole_plus !wig_15e[polarity]:=1 wig_15e[num_steps]:= 100 !wig1_18e : wig_8pole_plus wig1_18e[num_steps]:= 100 !wig1_18e[polarity] := -1 !wig2_18e : wig_8pole_plus !wig2_18e[polarity]:=1 wig2_18e[num_steps]:= 100 !wig3_18e : wig_8pole_plus !wig3_18e[polarity]:= -1 wig3_18e[num_steps]:= 100 ! element attributes sc_Q01 : overlay = {sc_Q01W, sc_Q01E}, K1 = -1.98449E+00 sc_Q02 : overlay = {sc_Q02W, sc_Q02E}, K1 = 1.34950E+00 Q03W[K1] = -2.75492E-01 Q03E[K1] = -2.73941E-01 Q04W[K1] = 4.83413E-01 Q04E[K1] = 4.78674E-01 Q05W[K1] = -3.67411E-01 Q05E[K1] = -3.81580E-01 Q06W[K1] = 3.86286E-01 Q06E[K1] = 3.63682E-01 Q07W[K1]= -2.71080E-01 Q07E[K1]= -2.06124E-01 Q08W[K1]= 2.17435E-01 Q08E[K1]= 1.61316E-01 !Q07 : overlay = {Q07W, Q07E}, K1 = -3.05492E-01 !Q08 : overlay = {Q08W, Q08E}, K1 = 1.67364E-01 !Q09 : overlay = {Q09W, Q09E}, K1 = -1.45757E-01 !Q10 : overlay = {Q10W, Q10E}, K1 = 2.06639E-01 !Q11 : overlay = {Q11W, Q11E}, K1 = -1.76085E-01 !Q12 : overlay = {Q12W, Q12E}, K1 = 1.73899E-01 Q08AW[K1]:= -3.49583E-02 Q09W[K1]:= -2.41405E-01 Q10W[K1]:= 2.47305E-01 Q11W[K1]:= -2.56750E-01 Q12W[K1]:= 2.23028E-01 Q09E[K1]:= -1.90483E-01 Q10E[K1]:= 2.08939E-01 Q11E[K1]:= -1.56138E-01 Q12E[K1]:= 1.33796E-01 Q13W[K1]:= -2.29952E-01 Q14W[K1]:= 2.73995E-01 Q15W[K1]:= -2.16282E-01 Q16W[K1]:= 2.57609E-01 Q17W[K1]:= -2.21593E-01 Q18W[K1]:= 2.00250E-01 Q19W[K1]:= -2.18822E-01 Q20W[K1]:= 2.09681E-01 Q21W[K1]:= -2.27251E-01 Q22W[K1]:= 2.52037E-01 Q23W[K1]:= -2.35347E-01 Q24W[K1]:= 2.30443E-01 Q25W[K1]:= -3.28202E-01 Q26W[K1]:= 2.85024E-01 Q13E[K1]:= -7.56033E-02 Q14E[K1]:= 2.49935E-01 Q15E[K1]:= -2.27253E-01 Q16E[K1]:= 3.07793E-01 Q17E[K1]:= -3.40826E-01 Q18E[K1]:= 2.36472E-01 Q19E[K1]:= -1.57859E-01 Q20E[K1]:= 1.93968E-01 Q21E[K1]:= -2.40659E-01 Q22E[K1]:= 2.39410E-01 Q23E[K1]:= -1.92393E-01 Q24E[K1]:= 2.25675E-01 Q25E[K1]:= -2.94927E-01 Q26E[K1]:= 2.61867E-01 Q27W[K1]:= -2.72908E-01 Q28W[K1]:= 2.62258E-01 Q29W[K1]:= -1.88122E-01 Q30W[K1]:= 2.25973E-01 Q27E[K1]:= -2.69458E-01 Q28E[K1]:= 2.15193E-01 Q29E[K1]:= -1.85004E-01 Q30E[K1]:= 2.34816E-01 Q31W[K1]:= -1.86645E-01 Q32W[K1]:= 2.13189E-01 Q33W[K1]:= -1.91964E-01 Q34W[K1]:= 2.34997E-01 Q35W[K1]:= -1.57160E-01 Q36W[K1]:= 1.74367E-01 Q37W[K1]:= -2.08438E-01 Q38W[K1]:= 2.16344E-01 Q39W[K1]:= -2.42944E-01 Q40W[K1]:= 2.62010E-01 Q31E[K1]:= -1.92605E-01 Q32E[K1]:= 2.08240E-01 Q33E[K1]:= -1.98135E-01 Q34E[K1]:= 2.39163E-01 Q35E[K1]:= -1.52618E-01 Q36E[K1]:= 1.72346E-01 Q37E[K1]:= -2.11391E-01 Q38E[K1]:= 2.25877E-01 Q39E[K1]:= -2.39859E-01 Q40E[K1]:= 2.57308E-01 Q41W[K1]:= -2.34683E-01 Q42W[K1]:= 2.23784E-01 Q43W[K1]:= -2.37582E-01 Q43AW[K1]:= 2.45638E-01 Q44W[K1]:= -1.94760E-01 Q45W[K1]:= 2.82579E-01 Q46W[K1]:= -2.28570E-01 Q47W[K1]:= 4.72835E-01 Q47aW[K1]:= -3.62069E-01 Q41E[K1]:= -2.32618E-01 Q42E[K1]:= 2.28767E-01 Q43E[K1]:= -2.37325E-01 Q43AE[K1]:= 2.48865E-01 Q44E[K1]:= -1.92609E-01 Q45E[K1]:= 2.81085E-01 Q46E[K1]:= -2.28441E-01 Q47E[K1]:= 4.71206E-01 Q47aE[K1]:= -3.56938E-01 !Q48W[K1]:= 5.84506E-01 !Q48E[K1]:= 5.84506E-01 !Q49aW[K1]:= 9.29504E-02 !Q49aE[K1]:= 9.29504E-02 !Q49W[K1]:= -3.15744E-01 !Q49E[K1]:= -3.15744E-01 Q48 : overlay = {Q48W, Q48E}, K1 = 5.83209E-01 !Q49a : overlay = {Q49aw, Q49aE}, K1 = 8.65077E-02 Q49 : overlay = {Q49W, Q49E}, K1 = -2.75788E-01 q00_tilt := 0.0785 sc_q01w[tilt] = q00_tilt sc_q02w[tilt] = q00_tilt sc_sk_Q01w[tilt] = q00_tilt + pi/4 sc_sk_Q02w[tilt] = q00_tilt + pi/4 sc_q01e[tilt] = -q00_tilt sc_q02e[tilt] = -q00_tilt sc_sk_Q01e[tilt] = -q00_tilt - pi/4 sc_sk_Q02e[tilt] = -q00_tilt - pi/4 SK_Q02 : overlay = {SK_Q02W, SK_Q03W, SK_Q02E/-1, SK_Q03E/-1}, k1 = -1.00813E-01 sc_SK_q02 : overlay = {sc_SK_q02W, sc_SK_q02E}, K1 = 2.15351E-01 Sc_sK_q01 : overlay = {sc_SK_q01W, sc_SK_q01E}, K1 = -9.68441E-02 SK_Q04W[k1]:=0. ; SK_Q04E[K1]:= 0. fact = 18./14.6 !H_SEP_08 : overlay = {H_SEP_08W,H_SEP_08E/-1}, HKICK = -3.42173E-04*fact H_SEP_08W[HKICK]:= -2.96532E-04 H_SEP_08E[HKICK]:= 1.81577E-04 H_SEP_45 : overlay = {H_SEP_45W,H_SEP_45E/-1}, HKICK = 8.22551E-04 !H_SEP_45W[HKICK]:= 7.67520E-04 !H_SEP_45E[HKICK]:= -1.05363E-03 *0. V_SEP_48 : overlay = {V_SEP_48W,V_SEP_48E}, VKICK = 9.79627E-04 !V_SEP_48W[VKICK]:= 9.79870E-04 !V_SEP_48E[VKICK]:= 9.79625E-04 !wig_w[k1] := -0.0592 / beam[energy]^2 ! use average to maintain E/W symm !wig_e[k1] := -0.0592 / beam[energy]^2 !wig_g[b_max]:=0.8 !wig_e[b_max]:=1.2 !wig_g[b_max]:=0.0 !wig_e[b_max]:=0.0 k1_00 := -9.57309 / beam[energy] Q00W[K1] = k1_00 ; Q00E[K1] = Q00W[K1] Q00W[TILT] = q00_tilt ; Q00E[TILT] = -Q00W[TILT] !pos_sk2a : group={sk_q02aw, sk_q02ae/-1}, s ! Vars not in original file RF_W1[VOLT] := 1.5e6 *1.88/5.289 RF_W2[VOLT] := 1.5e6 *1.88/5.289 RF_E1[VOLT] := 1.5e6 *1.88/5.289 RF_E2[VOLT] := 1.5e6 *1.88/5.289 RF_W1[HARMON] := 1281 RF_W2[HARMON] := 1281 RF_E1[HARMON] := 1281 RF_E2[HARMON] := 1281 !december 1, 2002 tonaliy x 10 SEX_24W[K2] = 0.596578E+00; SEX_24E[K2] = 0.654682E+00 SEX_25W[K2] = -.253709E+01; SEX_25E[K2] = -.265582E+01 SEX_26W[K2] = 0.917017E+00; SEX_26E[K2] = 0.886568E+00 SEX_27W[K2] = -.990472E+00; SEX_27E[K2] = -.124177E+01 SEX_28W[K2] = 0.667290E+00; SEX_28E[K2] = 0.118233E+01 SEX_29W[K2] = -.967979E+00; SEX_29E[K2] = -.137542E+01 SEX_30W[K2] = 0.524358E+00; SEX_30E[K2] = 0.528335E+00 SEX_31W[K2] = -.108827E+01; SEX_31E[K2] = -.707987E+00 SEX_32W[K2] = 0.619644E+00; SEX_32E[K2] = 0.341399E-01 SEX_33W[K2] = -.137683E+01; SEX_33E[K2] = -.602456E+00 SEX_34W[K2] = 0.988324E+00; SEX_34E[K2] = 0.102174E+01 SEX_35W[K2] = -.382120E+00; SEX_35E[K2] = -.888857E+00 SEX_36W[K2] = 0.352404E+00; SEX_36E[K2] = 0.125029E+01 SEX_37W[K2] = -.467869E+00; SEX_37E[K2] = -.959971E+00 SEX_38W[K2] = 0.311124E+00; SEX_38E[K2] = 0.790394E+00 SEX_39W[K2] = -.250423E+01; SEX_39E[K2] = -.188221E+01 SEX_40W[K2] = 0.424390E+00; SEX_40E[K2] = 0.500915E+00 SEX_41W[K2] = -.201953E+01; SEX_41E[K2] = -.211196E+01 SEX_42W[K2] = 0.860747E+00; SEX_42E[K2] = 0.335030E+00 SEX_43W[K2] = -.484111E+00; SEX_43E[K2] = -.542472E+00 SEX_44W[K2] = -.538756E+00; SEX_44E[K2] = -.176607E+00 SEX_45W[K2] = 0.258672E+00; SEX_45E[K2] = -.107831E+00 !9-1-02 disp.dat SEX_24W[K2] = 0.100102E+01; SEX_24E[K2] = 0.986950E+00 SEX_25W[K2] = -.180317E+01; SEX_25E[K2] = -.180629E+01 SEX_26W[K2] = 0.621128E+00; SEX_26E[K2] = 0.628899E+00 SEX_27W[K2] = -.116233E+01; SEX_27E[K2] = -.115838E+01 SEX_28W[K2] = 0.635551E+00; SEX_28E[K2] = 0.613097E+00 SEX_29W[K2] = -.538661E+00; SEX_29E[K2] = -.571849E+00 SEX_30W[K2] = 0.449595E+00; SEX_30E[K2] = 0.453799E+00 SEX_31W[K2] = -.898773E+00; SEX_31E[K2] = -.882813E+00 SEX_32W[K2] = 0.423914E+00; SEX_32E[K2] = 0.404771E+00 SEX_33W[K2] = -.538944E+00; SEX_33E[K2] = -.531221E+00 SEX_34W[K2] = 0.327754E+00; SEX_34E[K2] = 0.366445E+00 SEX_35W[K2] = -.128982E+00; SEX_35E[K2] = -.108394E+00 SEX_36W[K2] = 0.354945E+00; SEX_36E[K2] = 0.369150E+00 SEX_37W[K2] = -.625360E+00; SEX_37E[K2] = -.646434E+00 SEX_38W[K2] = 0.430510E+00; SEX_38E[K2] = 0.445230E+00 SEX_39W[K2] = -.170340E+01; SEX_39E[K2] = -.170985E+01 SEX_40W[K2] = 0.963876E+00; SEX_40E[K2] = 0.916904E+00 SEX_41W[K2] = -.185607E+01; SEX_41E[K2] = -.186727E+01 SEX_42W[K2] = 0.996910E-01; SEX_42E[K2] = 0.667750E-01 SEX_43W[K2] = -.432171E-01; SEX_43E[K2] = -.139249E-01 SEX_44W[K2] = -.842841E+00; SEX_44E[K2] = -.833590E+00 SEX_45W[K2] = 0.651135E+00; SEX_45E[K2] = 0.651879E+00 !december 1, 2002 SEX_24W[K2] = 0.552411E+00; SEX_24E[K2] = 0.702920E+00 SEX_25W[K2] = -.137775E+01; SEX_25E[K2] = -.170632E+01 SEX_26W[K2] = 0.762410E+00; SEX_26E[K2] = 0.781684E+00 SEX_27W[K2] = -.188403E+01; SEX_27E[K2] = -.253359E+01 SEX_28W[K2] = 0.407485E+00; SEX_28E[K2] = 0.418728E+00 SEX_29W[K2] = -.291085E+00; SEX_29E[K2] = -.855923E+00 SEX_30W[K2] = 0.329891E+00; SEX_30E[K2] = 0.316677E+00 SEX_31W[K2] = -.525984E+00; SEX_31E[K2] = -.332036E+00 SEX_32W[K2] = 0.415249E+00; SEX_32E[K2] = 0.331882E+00 SEX_33W[K2] = -.140090E+01; SEX_33E[K2] = -.951124E+00 SEX_34W[K2] = 0.855069E+00; SEX_34E[K2] = 0.851688E+00 SEX_35W[K2] = -.570470E+00; SEX_35E[K2] = -.702298E+00 SEX_36W[K2] = 0.505062E+00; SEX_36E[K2] = 0.635008E+00 SEX_37W[K2] = -.733967E+00; SEX_37E[K2] = -.106051E+01 SEX_38W[K2] = 0.866306E+00; SEX_38E[K2] = 0.894516E+00 SEX_39W[K2] = -.257592E+01; SEX_39E[K2] = -.201654E+01 SEX_40W[K2] = 0.491857E+00; SEX_40E[K2] = 0.297594E+00 SEX_41W[K2] = -.201215E+01; SEX_41E[K2] = -.254479E+01 SEX_42W[K2] = 0.766220E+00; SEX_42E[K2] = 0.612391E+00 SEX_43W[K2] = -.439543E+00; SEX_43E[K2] = -.735178E+00 SEX_44W[K2] = -.347065E+00; SEX_44E[K2] = -.529409E-01 SEX_45W[K2] = 0.297124E+00; SEX_45E[K2] = 0.195318E+00 !2-DEC-2002-4:44 SEX_24W[K2] = 0.392062E+00; SEX_24E[K2] = 0.458140E+00 SEX_25W[K2] = -.207041E+01; SEX_25E[K2] = -.200199E+01 SEX_26W[K2] = 0.471109E+00; SEX_26E[K2] = 0.483315E+00 SEX_27W[K2] = -.204519E+01; SEX_27E[K2] = -.231278E+01 SEX_28W[K2] = 0.272172E+00; SEX_28E[K2] = 0.491988E+00 SEX_29W[K2] = -.647478E+00; SEX_29E[K2] = -.102328E+01 SEX_30W[K2] = 0.235247E+00; SEX_30E[K2] = 0.314386E+00 SEX_31W[K2] = -.102827E+01; SEX_31E[K2] = -.608380E+00 SEX_32W[K2] = 0.697090E+00; SEX_32E[K2] = 0.716284E+00 SEX_33W[K2] = -.265930E+01; SEX_33E[K2] = -.257629E+01 SEX_34W[K2] = 0.954534E+00; SEX_34E[K2] = 0.970437E+00 SEX_35W[K2] = -.127353E+01; SEX_35E[K2] = -.109580E+01 SEX_36W[K2] = 0.497197E+00; SEX_36E[K2] = 0.539702E+00 SEX_37W[K2] = -.116017E+01; SEX_37E[K2] = -.129892E+01 SEX_38W[K2] = 0.935615E+00; SEX_38E[K2] = 0.860746E+00 SEX_39W[K2] = -.228341E+01; SEX_39E[K2] = -.129290E+01 SEX_40W[K2] = 0.370945E+00; SEX_40E[K2] = 0.271503E+00 SEX_41W[K2] = -.193663E+01; SEX_41E[K2] = -.104936E+01 SEX_42W[K2] = 0.455137E+00; SEX_42E[K2] = 0.349230E+00 SEX_43W[K2] = 0.291920E+00; SEX_43E[K2] = -.425525E+00 SEX_44W[K2] = -.230443E+00; SEX_44E[K2] = 0.185410E+00 SEX_45W[K2] = 0.212903E+00; SEX_45E[K2] = 0.820542E-02 !3 dec 2002 SEX_24W[K2] = 0.176853E+00; SEX_24E[K2] = 0.176853E+00 SEX_25W[K2] = -.150851E+01; SEX_25E[K2] = -.150851E+01 SEX_26W[K2] = 0.596393E+00; SEX_26E[K2] = 0.596393E+00 SEX_27W[K2] = -.189888E+01; SEX_27E[K2] = -.189888E+01 SEX_28W[K2] = 0.400313E+00; SEX_28E[K2] = 0.400313E+00 SEX_29W[K2] = -.633617E+00; SEX_29E[K2] = -.633617E+00 SEX_30W[K2] = 0.472747E+00; SEX_30E[K2] = 0.472747E+00 SEX_31W[K2] = -.417128E+00; SEX_31E[K2] = -.417128E+00 SEX_32W[K2] = 0.468705E+00; SEX_32E[K2] = 0.468705E+00 SEX_33W[K2] = -.121106E+01; SEX_33E[K2] = -.121106E+01 SEX_34W[K2] = 0.167261E+01; SEX_34E[K2] = 0.167261E+01 SEX_35W[K2] = -.145413E+01; SEX_35E[K2] = -.145413E+01 SEX_36W[K2] = 0.766242E+00; SEX_36E[K2] = 0.766242E+00 SEX_37W[K2] = -.114135E+01; SEX_37E[K2] = -.114135E+01 SEX_38W[K2] = 0.108887E+01; SEX_38E[K2] = 0.108887E+01 SEX_39W[K2] = -.210188E+01; SEX_39E[K2] = -.210188E+01 SEX_40W[K2] = 0.655176E+00; SEX_40E[K2] = 0.655176E+00 SEX_41W[K2] = -.318318E+01; SEX_41E[K2] = -.318318E+01 SEX_42W[K2] = 0.676260E+00; SEX_42E[K2] = 0.676260E+00 SEX_43W[K2] = -.512438E+00; SEX_43E[K2] = -.512438E+00 SEX_44W[K2] = -.278460E+00; SEX_44E[K2] = -.278460E+00 SEX_45W[K2] = 0.529811E+00; SEX_45E[K2] = 0.529811E+00 !4-dec-2002 SEX_24W[K2] = 0.226302E+00; SEX_24E[K2] = 0.226302E+00 SEX_25W[K2] = -.156892E+01; SEX_25E[K2] = -.156892E+01 SEX_26W[K2] = 0.519229E+00; SEX_26E[K2] = 0.519229E+00 SEX_27W[K2] = -.189888E+01; SEX_27E[K2] = -.189888E+01 SEX_28W[K2] = 0.400313E+00; SEX_28E[K2] = 0.400313E+00 SEX_29W[K2] = -.633617E+00; SEX_29E[K2] = -.633617E+00 SEX_30W[K2] = 0.472747E+00; SEX_30E[K2] = 0.472747E+00 SEX_31W[K2] = -.417128E+00; SEX_31E[K2] = -.417128E+00 SEX_32W[K2] = 0.468705E+00; SEX_32E[K2] = 0.468705E+00 SEX_33W[K2] = -.121106E+01; SEX_33E[K2] = -.121106E+01 SEX_34W[K2] = 0.167261E+01; SEX_34E[K2] = 0.167261E+01 SEX_35W[K2] = -.145413E+01; SEX_35E[K2] = -.145413E+01 SEX_36W[K2] = 0.766242E+00; SEX_36E[K2] = 0.766242E+00 SEX_37W[K2] = -.114135E+01; SEX_37E[K2] = -.114135E+01 SEX_38W[K2] = 0.108887E+01; SEX_38E[K2] = 0.108887E+01 SEX_39W[K2] = -.210188E+01; SEX_39E[K2] = -.210188E+01 SEX_40W[K2] = 0.655176E+00; SEX_40E[K2] = 0.655176E+00 SEX_41W[K2] = -.318318E+01; SEX_41E[K2] = -.318318E+01 SEX_42W[K2] = 0.676260E+00; SEX_42E[K2] = 0.676260E+00 SEX_43W[K2] = -.512438E+00; SEX_43E[K2] = -.512438E+00 SEX_44W[K2] = -.278460E+00; SEX_44E[K2] = -.278460E+00 SEX_45W[K2] = 0.529811E+00; SEX_45E[K2] = 0.529811E+00 !5-dec-2002 SEX_24W[K2] = -.716859E+00; SEX_24E[K2] = -.716859E+00 SEX_25W[K2] = -.123659E+01; SEX_25E[K2] = -.123659E+01 SEX_26W[K2] = -.325644E+00; SEX_26E[K2] = -.325644E+00 SEX_27W[K2] = -.221603E+01; SEX_27E[K2] = -.221603E+01 SEX_28W[K2] = 0.492902E+00; SEX_28E[K2] = 0.492902E+00 SEX_29W[K2] = -.769460E+00; SEX_29E[K2] = -.769459E+00 SEX_30W[K2] = 0.847093E+00; SEX_30E[K2] = 0.847093E+00 SEX_31W[K2] = -.432894E+00; SEX_31E[K2] = -.432894E+00 SEX_32W[K2] = 0.650534E+00; SEX_32E[K2] = 0.650534E+00 SEX_33W[K2] = -.156468E+01; SEX_33E[K2] = -.156468E+01 SEX_34W[K2] = 0.171020E+01; SEX_34E[K2] = 0.171020E+01 SEX_35W[K2] = -.110421E+01; SEX_35E[K2] = -.110421E+01 SEX_36W[K2] = 0.849507E+00; SEX_36E[K2] = 0.849507E+00 SEX_37W[K2] = -.124404E+01; SEX_37E[K2] = -.124404E+01 SEX_38W[K2] = 0.158276E+01; SEX_38E[K2] = 0.158276E+01 SEX_39W[K2] = -.257211E+01; SEX_39E[K2] = -.257211E+01 SEX_40W[K2] = 0.736117E+00; SEX_40E[K2] = 0.736117E+00 SEX_41W[K2] = -.253014E+01; SEX_41E[K2] = -.253014E+01 SEX_42W[K2] = 0.744471E+00; SEX_42E[K2] = 0.744471E+00 SEX_43W[K2] = -.690290E+00; SEX_43E[K2] = -.690290E+00 SEX_44W[K2] = -.141730E+00; SEX_44E[K2] = -.141730E+00 SEX_45W[K2] = 0.402979E+00; SEX_45E[K2] = 0.402979E+00 !5-dec-2002 !correct tonality and chromaticity ton_chrom_adjust :group={SEX_08W/0.5009E-02,SEX_08E/0.7593E-02, & SEX_09W/0.5354E-01,SEX_09E/-.4070E-02, & SEX_10W/-.7832E-03,SEX_10E/-.1065E-01, & SEX_11W/0.2263E-01,SEX_11E/0.2302E-01, & SEX_12W/0.2993E-02,SEX_12E/-.3845E-01, & SEX_13W/0.5051E-01,SEX_13E/0.2110E-01, & SEX_14W/0.2762E-02,SEX_14E/-.1681E-01, & SEX_15W/0.7703E-01,SEX_15E/0.2971E-02, & SEX_16W/0.1847E-01,SEX_16E/-.1190E-01, & SEX_17W/0.5037E-01,SEX_17E/-.5485E-01, & SEX_18W/0.2851E-01,SEX_18E/-.2151E-01, & SEX_19W/-.3277E-02,SEX_19E/0.1823E-01, & SEX_20W/-.1158E-02,SEX_20E/0.5517E-01, & SEX_21W/0.5310E-01,SEX_21E/0.4029E-02, & SEX_22W/-.1664E-01,SEX_22E/0.4426E-02, & SEX_23W/0.3271E-01,SEX_23E/0.2062E-01, & SEX_24W/-.1013E-01,SEX_24E/0.4171E-02, & SEX_25W/0.2844E-01,SEX_25E/0.5439E-01, & SEX_26W/-.3813E-01,SEX_26E/-.1529E-01, & SEX_27W/0.1509E+00,SEX_27E/-.7402E-02, & SEX_28W/0.1087E-01,SEX_28E/-.5782E-02, & SEX_29W/0.2384E-01,SEX_29E/0.1374E-01, & SEX_30W/-.4177E-01,SEX_30E/0.2500E-01, & SEX_31W/-.6486E-03,SEX_31E/0.5010E-01, & SEX_32W/-.2547E-01,SEX_32E/0.3166E-01, & SEX_33W/-.5820E-01,SEX_33E/0.6243E-01, & SEX_34W/0.1505E-01,SEX_34E/-.4795E-01, & SEX_35W/-.7675E-01,SEX_35E/0.1481E+00, & SEX_36W/0.3537E-01,SEX_36E/-.1386E-01, & SEX_37W/0.2086E-01,SEX_37E/-.3330E-02, & SEX_38W/-.3397E-01,SEX_38E/-.4435E-02, & SEX_39W/0.1164E+00,SEX_39E/0.2967E-01, & SEX_40W/-.2520E-01,SEX_40E/-.2737E-01, & SEX_41W/-.9848E-01,SEX_41E/0.2125E+00, & SEX_42W/-.4170E-01,SEX_42E/0.1196E-01, & SEX_43W/-.8553E-02,SEX_43E/0.8357E-01, & SEX_44W/-.6126E-03,SEX_44E/-.3311E-01, & SEX_45W/-.7596E-01,SEX_45E/0.9310E-01}, k2 !january 22, 2003 SEX_08W[K2] = 4.42431E-01 SEX_08E[K2] = 5.61413E-01 SEX_09W[K2] = -2.63518E-01 SEX_09E[K2] = -6.65823E-02 SEX_10W[K2] = 6.70075E-01 SEX_10E[K2] = -2.95920E-01 SEX_11W[K2] = -3.86467E-02 SEX_11E[K2] = -2.75467E-01 SEX_12W[K2] = 2.45440E-01 SEX_12E[K2] = 3.06101E-01 SEX_13W[K2] = -4.72913E-01 SEX_13E[K2] = -3.83732E-01 SEX_14W[K2] = 5.52404E-01 SEX_14E[K2] = 8.93895E-01 SEX_15W[K2] = -9.16833E-01 SEX_15E[K2] = -6.46402E-01 SEX_16W[K2] = 6.39613E-01 SEX_16E[K2] = 1.79313E-01 SEX_17W[K2] = -9.39891E-01 SEX_17E[K2] = -9.83540E-01 SEX_18W[K2] = 3.23978E-01 SEX_18E[K2] = 2.77343E-01 SEX_19W[K2] = -1.97280E+00 SEX_19E[K2] = -2.22136E+00 SEX_20W[K2] = 7.77842E-01 SEX_20E[K2] = 5.18667E-01 SEX_21W[K2] = -8.58849E-01 SEX_21E[K2] = -1.13089E+00 SEX_22W[K2] = 3.65084E-01 SEX_22E[K2] = 1.13245E+00 SEX_23W[K2] = -9.42134E-01 SEX_23E[K2] = -9.64395E-01 SEX_24W[K2] = 0.525790E+00; SEX_24E[K2] = 0.518060E+00 SEX_25W[K2] = -.113834E+01; SEX_25E[K2] = -.114595E+01 SEX_26W[K2] = 0.388291E+00; SEX_26E[K2] = 0.406432E+00 SEX_27W[K2] = -.829372E+00; SEX_27E[K2] = -.832984E+00 SEX_28W[K2] = 0.282890E+00; SEX_28E[K2] = 0.286332E+00 SEX_29W[K2] = -.245072E-01; SEX_29E[K2] = -.764083E-02 SEX_30W[K2] = 0.346149E+00; SEX_30E[K2] = 0.328523E+00 SEX_31W[K2] = -.611914E+00; SEX_31E[K2] = -.605870E+00 SEX_32W[K2] = 0.666407E+00; SEX_32E[K2] = 0.663664E+00 SEX_33W[K2] = -.123380E+01; SEX_33E[K2] = -.124883E+01 SEX_34W[K2] = 0.837915E+00; SEX_34E[K2] = 0.827609E+00 SEX_35W[K2] = -.961072E+00; SEX_35E[K2] = -.969264E+00 SEX_36W[K2] = 0.668959E+00; SEX_36E[K2] = 0.689999E+00 SEX_37W[K2] = -.151604E+01; SEX_37E[K2] = -.151278E+01 SEX_38W[K2] = 0.762685E+00; SEX_38E[K2] = 0.758033E+00 SEX_39W[K2] = -.355941E+01; SEX_39E[K2] = -.355534E+01 SEX_40W[K2] = 0.966042E+00; SEX_40E[K2] = 0.943223E+00 SEX_41W[K2] = -.325018E+01; SEX_41E[K2] = -.324227E+01 SEX_42W[K2] = 0.108266E+01; SEX_42E[K2] = 0.109650E+01 SEX_43W[K2] = -.100514E+01; SEX_43E[K2] = -.101955E+01 SEX_44W[K2] = -.361335E+00; SEX_44E[K2] = -.385473E+00 SEX_45W[K2] = 0.121533E+00; SEX_45E[K2] = 0.117172E+00 ton_chrom_adjust[command]:=0 use, cesr