'Macro for Write Engraving Screen '****** Greenwood ****** '****** German Bravo 2004 ***** '****** Revision 2005 ***** ' '(N°Lineas,X1,X2,,,,Xn,Largo) '(N°Lineas,Y1,Y2,,,,Yn,Largo) '(N°Lineas,I1,I2,,,,In,Largo) '(N°Lineas,J1,J2,,,,Jn,Largo) '(N°Lineas,G1,G2,,,,Gn,Largo) ' Option Explicit '=== Declaraciones === Dim XPOS,YPOS,Top_Mat,Depth,Rapid_dis,Feed,Porcentaje,Height,ToolNum,RPM Dim X1,X2,Y1,Y2,escala,corte,Largo,Num,Codigo,Total,GG,GM,IJ Dim MX_AA,MY_AA,MI_AA,MJ_AA,MG_AA,MX_BB,MY_BB,MI_BB,MJ_BB,MG_BB,MX_CC,MY_CC,MI_CC,MJ_CC,MG_CC,MX_DD,MY_DD,MI_DD,MJ_DD,MG_DD Dim MX_EE,MY_EE,MI_EE,MJ_EE,MG_EE,MX_FF,MY_FF,MI_FF,MJ_FF,MG_FF,MX_GG,MY_GG,MI_GG,MJ_GG,MG_GG,MX_HH,MY_HH,MI_HH,MJ_HH,MG_HH Dim MX_II,MY_II,MI_II,MJ_II,MG_II,MX_JJ,MY_JJ,MI_JJ,MJ_JJ,MG_JJ,MX_KK,MY_KK,MI_KK,MJ_KK,MG_KK,MX_LL,MY_LL,MI_LL,MJ_LL,MG_LL Dim MX_MM,MY_MM,MI_MM,MJ_MM,MG_MM,MX_NN,MY_NN,MI_NN,MJ_NN,MG_NN,MX_ENNE,MY_ENNE,MI_ENNE,MJ_ENNE,MG_ENNE,MX_OO,MY_OO,MI_OO Dim MJ_OO,MG_OO,MX_PP,MY_PP,MI_PP,MJ_PP,MG_PP,MX_QQ,MY_QQ,MI_QQ,MJ_QQ,MG_QQ,MX_RR,MY_RR,MI_RR,MJ_RR,MG_RR,MX_SS,MY_SS,MI_SS Dim MJ_SS,MG_SS,MX_TT,MY_TT,MI_TT,MJ_TT,MG_TT,MX_UU,MY_UU,MI_UU,MJ_UU,MG_UU,MX_VV,MY_VV,MI_VV,MJ_VV,MG_VV,MX_WW,MY_WW,MI_WW Dim MJ_WW,MG_WW,MX_XX,MY_XX,MI_XX,MJ_XX,MG_XX,MX_YY,MY_YY,MI_YY,MJ_YY,MG_YY,MX_ZZ,MY_ZZ,MI_ZZ,MJ_ZZ,MG_ZZ,MX_a,MY_a,MI_a Dim MJ_a,MG_a,MX_b,MY_b,MI_b,MJ_b,MG_b,MX_c,MY_c,MI_c,MJ_c,MG_c,MX_d,MY_d,MI_d,MJ_d,MG_d,MX_e,MY_e,MI_e,MJ_e,MG_e,MX_f,MY_f Dim MI_f,MJ_f,MG_f,MX_g,MY_g,MI_g,MJ_g,MG_g,MX_h,MY_h,MI_h,MJ_h,MG_h,MX_i,MY_i,MI_i,MJ_i,MG_i,MX_j,MY_j,MI_j,MJ_j,MG_j,MX_k Dim MY_k,MI_k,MJ_k,MG_k,MX_l,MY_l,MI_l,MJ_l,MG_l,MX_m,MY_m,MI_m,MJ_m,MG_m,MX_n,MY_n,MI_n,MJ_n,MG_n,MX_enneMin,MY_enneMin Dim MI_enneMin,MJ_enneMin,MG_enneMin,MX_o,MY_o,MI_o,MJ_o,MG_o,MX_p,MY_p,MI_p,MJ_p,MG_p,MX_q,MY_q,MI_q,MJ_q,MG_q,MX_r,MY_r Dim MI_r,MJ_r,MG_r,MX_s,MY_s,MI_s,MJ_s,MG_s,MX_t,MY_t,MI_t,MJ_t,MG_t,MX_u,MY_u,MI_u,MJ_u,MG_u,MX_v,MY_v,MI_v,MJ_v,MG_v,MX_w Dim MY_w,MI_w,MJ_w,MG_w,MX_x,MY_x,MI_x,MJ_x,MG_x,MX_y,MY_y,MI_y,MJ_y,MG_y,MX_z,MY_z,MI_z,MJ_z,MG_z,MX_Peso,MY_Peso,MI_Peso Dim MJ_Peso,MG_Peso,MX_Porcent,MY_Porcent,MI_Porcent,MJ_Porcent,MG_Porcent,MX_Amberstand,MY_Amberstand,MI_Amberstand Dim MJ_Amberstand,MG_Amberstand,MX_AbreParent,MY_AbreParent,MI_AbreParent,MJ_AbreParent,MG_AbreParent,MX_CierraParent Dim MY_CierraParent,MI_CierraParent,MJ_CierraParent,MG_CierraParent,MX_Bajo,MY_Bajo,MI_Bajo,MJ_Bajo,MG_Bajo,MX_mas,MY_mas Dim MI_mas,MJ_mas,MG_mas,MX_DosPuntos,MY_DosPuntos,MI_DosPuntos,MJ_DosPuntos,MG_DosPuntos,MX_Comillas,MY_Comillas Dim MI_Comillas,MJ_Comillas,MG_Comillas,MX_IntCierra,MY_IntCierra,MI_IntCierra,MJ_IntCierra,MG_IntCierra,MX_IntAbre Dim MY_IntAbre,MI_IntAbre,MJ_IntAbre,MG_IntAbre,MX_coma,MY_coma,MI_coma,MJ_coma,MG_coma,MX_Punto,MY_Punto,MI_Punto,MJ_Punto Dim MG_Punto,MX_PuntoComa,MY_PuntoComa,MI_PuntoComa,MJ_PuntoComa,MG_PuntoComa,MX_Slash,MY_Slash,MI_Slash,MJ_Slash,MG_Slash Dim MX_BackSlash,MY_BackSlash,MI_BackSlash,MJ_BackSlash,MG_BackSlash,MX_Migual,MY_Migual,MI_Migual,MJ_Migual,MG_Migual Dim MX_menos,MY_menos,MI_menos,MJ_menos,MG_menos,MX_1,MY_1,MI_1,MJ_1,MG_1,MX_2,MY_2,MI_2,MJ_2,MG_2,MX_3,MY_3,MI_3,MJ_3,MG_3 Dim MX_4,MY_4,MI_4,MJ_4,MG_4,MX_5,MY_5,MI_5,MJ_5,MG_5,MX_6,MY_6,MI_6,MJ_6,MG_6,MX_7,MY_7,MI_7,MJ_7,MG_7,MX_8,MY_8,MI_8,MJ_8 Dim MG_8,MX_9,MY_9,MI_9,MJ_9,MG_9,MX_0,MY_0,MI_0,MJ_0,MG_0,MX_Asterisco,MY_Asterisco,MI_Asterisco,MJ_Asterisco,MG_Asterisco Dim MX_Grado,MY_Grado,MI_Grado,MJ_Grado,MG_Grado,MX_espacio,MY_espacio,MI_espacio,MJ_espacio,MG_espacio,MX_Diam,MY_Diam Dim MI_Diam,MJ_Diam,MG_Diam,MX_Mayor,MY_Mayor,MI_Mayor,MJ_Mayor,MG_Mayor,MX_Menor,MY_Menor,MI_Menor,MJ_Menor,MG_Menor Dim MX_Vertical,MY_Vertical,MI_Vertical,MJ_Vertical,MG_Vertical Dim LetraX, LetraY, LetraI, LetraJ, LetraG, Lineas, GC, G6789, I, J, XX, YY, II, JJ '=== Coordenada de Letras === MX_AA = Array(13,0,3.7149,5.2389,8.9529,7.5238,6.4757,2.4757,1.3326,-0.0003,2.8566,5.9996,4.4756,2.8565,8.9529) MY_AA = Array(13,0,10,10,0,0,2.952,2.952,0,0,4.191,4.191,8.667,4.191,8.9529) MI_AA = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,8.9529) MJ_AA = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,8.9529) MG_AA = Array(13,"A","B","B","B","B","B","B","B","B","A","B","B","B",8.9529) MX_BB = Array(32,0,0,4.2166,5.5632,6.2665,7.1731,6.7331,5.9031,6.6297,7.1563,6.4696,5.7529,4.9486,-0.0004,1.2362,4.6095,5.3261,5.7794,5.6927,5.196,4.8381,1.2359,1.2359,1.2359,4.3492,4.8992,5.3825,5.3958,4.9257,4.2141,1.2322,1.2322,7.1731) MY_BB = Array(32,0,10,10,9.9266,9.6332,6.4998,5.7397,5.2396,4.8929,4.3229,0.4429,0.0929,0.0028,0.0028,1.2394,1.2394,1.3127,1.546,4.2426,4.5192,4.5792,4.5725,1.2391,5.8091,5.8091,5.8791,6.1557,8.4857,8.719,8.7623,8.7623,5.8089,7.1731) MI_BB = Array(32,0,0,0,4.2166,5.4167,4.4672,5.0665,5.524,5.2487,5.5629,4.5559,5.3684,4.9486,0,0,0,4.6095,5.1335,4.5663,4.6581,4.8401,0,0,0,0,4.3447,4.6384,4.2033,4.83,4.2141,0,0,7.1731) MJ_BB = Array(32,0,0,0,-2.401,8.5856,7.4152,7.2118,6.8077,2.9336,3.3799,2.7829,1.7889,3.6399,0,0,0,4.7774,2.2437,2.856,2.9706,3.4942,0,0,0,0,8.0391,6.8951,7.3267,7.9367,2.9,0,0,7.1731) MG_BB = Array(32,"A","B","B","C","C","C","C","C","C","C","C","C","C","B","A","B","D","D","D","D","D","B","B","A","B","D","D","D","D","D","B","B",7.1731) MX_CC = Array(21,8.41,7.7032,6.4264,3.2362,0.9094,1.3894,3.4995,6.2229,7.6596,8.2296,6.7928,6.4961,5.4227,3.6226,2.3925,2.0291,3.6925,5.6092,6.5892,7.0225,8.4125,8.4125) MY_CC = Array(21,3.0933,1.2232,0.2898,0.1964,1.9064,8.7,9.9133,9.6599,8.7031,7.563,7.5863,8.0196,8.7029,8.6095,7.6761,2.7525,1.3857,1.3857,2.0457,3.0924,3.0924,8.4125) MI_CC = Array(21,0,4.7264,5.5798,4.6791,4.307,5.6923,4.1796,4.4178,4.7658,6.1228,0,4.6513,4.836,4.6618,4.6688,6.0167,4.5592,4.6508,4.9828,5.1029,0,8.4125) MJ_CC = Array(21,0,3.4163,2.7872,5.4448,4.0914,4.9814,6.29,5.0203,5.9149,7.2231,0,6.4393,6.5976,5.9719,5.9535,4.9341,4.1355,4.4267,3.3727,3.2737,0,8.4125) MG_CC = Array(21,"A","C","C","C","C","C","C","C","C","C","B","D","D","D","D","D","D","D","D","D","B",8.4125) MX_DD = Array(20,0,0,3.7752,5.1257,5.8808,7.0935,7.4596,5.8578,5.034,4.0818,0.0031,1.2393,3.7122,4.7005,5.5929,5.57,4.7004,4.0913,1.239,1.239,8.6) MY_DD = Array(20,0.0141,9.9972,9.9972,9.9285,9.6996,8.6012,2.1254,0.432,0.1116,0.0096,0.0096,1.2458,1.2458,1.3686,1.8949,8.2562,8.7138,8.7614,8.757,1.2463,8.6) MI_DD = Array(20,0,0,0,3.7752,4.9167,4.3276,1.7422,3.7661,4.4375,4.0818,0,0,0,3.7122,4.2501,2.2083,4.4598,4.0972,0,0,8.6) MJ_DD = Array(20,0,0,0,-3.3208,7.8795,6.7666,5.0512,4.0144,2.864,4.5056,0,0,0,5.2828,3.1516,5.0629,7.2022,4.9238,0,0,8.6) MG_DD = Array(20,"A","B","B","C","C","C","C","C","C","C","B","A","B","D","D","D","D","D","B","B",8.6) MX_EE = Array(13,6.64,0,0,6.6166,6.6166,1.2366,1.2366,4.8066,4.8066,1.2366,1.2366,6.6366,6.6366,6.64) MY_EE = Array(13,0,0,10,10,8.7633,8.7633,5.8099,5.8099,4.5732,4.5732,1.2398,1.2398,0.0031,6.64) MI_EE = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.64) MJ_EE = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.64) MG_EE = Array(13,"A","B","B","B","B","B","B","B","B","B","B","B","B",6.64) MX_FF = Array(11,0,0,6.3866,6.3866,1.2366,1.2366,4.3966,4.3966,1.2365,1.2365,-0.0001,6.3866) MY_FF = Array(11,0,10,10,8.7633,8.7633,5.8099,5.8099,4.5732,4.5732,0.0031,0.0031,6.3866) MI_FF = Array(11,0,0,0,0,0,0,0,0,0,0,0,6.3866) MJ_FF = Array(11,0,0,0,0,0,0,0,0,0,0,0,6.3866) MG_FF = Array(11,"A","B","B","B","B","B","B","B","B","B","B",6.3866) MX_GG = Array(28,8.375,7.6716,7.4949,6.7215,5.528,3.5678,1.8776,0.6841,1.2241,4.1309,6.7444,7.7344,8.0244,6.8543,6.5409,5.4808,3.9506,2.4205,2.3271,3.4538,4.4205,6.2672,7.2272,7.2272,4.407,4.407,8.3706,8.3706,8.375) MY_GG = Array(28,0.9461,0.9461,1.7394,0.6859,0.1225,0.1125,0.9325,2.3292,8.3429,9.963,9.3763,8.2729,7.2828,7.2828,8.0028,8.7461,8.8127,7.9126,2.3055,1.4254,1.1987,1.762,3.2421,4.1154,4.1154,5.2621,5.2621,0.9451,8.375) MI_GG = Array(28,0,0,0,5.4279,4.6811,4.5278,4.6132,4.7542,5.3663,4.7379,4.6456,5.198,5.1956,0,5.1806,4.873,4.5864,4.5301,5.7059,4.8139,4.4745,4.4896,4.8985,0,0,0,0,0,8.375) MJ_GG = Array(28,0,0,0,2.4454,3.4619,4.0665,4.4185,4.5985,4.9392,5.4569,6.142,6.9933,6.9919,0,6.9828,6.7528,5.8121,6.0777,5.0546,4.3275,3.6034,4.2797,3.701,0,0,0,0,0,8.375) MG_GG = Array(28,"A","B","B","C","C","C","C","C","C","C","C","C","C","B","D","D","D","D","D","D","D","D","D","B","B","B","B","B",8.375) MX_HH = Array(13,0,0,1.2366,1.2366,6.5699,6.5699,7.8065,7.8065,6.5698,6.5698,1.2364,1.2364,-0.0002,7.8065) MY_HH = Array(13,0,10,10,5.62,5.62,10,10,0,0,4.38,4.38,0,0,7.8065) MI_HH = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,7.8065) MJ_HH = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,7.8065) MG_HH = Array(13,"A","B","B","B","B","B","B","B","B","B","B","B","B",7.8065) MX_II = Array(5,0,0,1.2366,1.2366,0,1.2366) MY_II = Array(5,0,10,10,0,0,1.2366) MI_II = Array(5,0,0,0,0,0,1.2366) MJ_II = Array(5,0,0,0,0,0,1.2366) MG_II = Array(5,"A","B","B","B","B",1.2366) MX_JJ = Array(16,0.057,1.1134,1.18,1.4499,3.8727,4.3892,4.4925,4.4925,5.6722,5.6722,5.5788,5.1522,4.389,0.9563,0.1464,0.0564,5.6722) MY_JJ = Array(16,3.2812,3.2578,2.4046,1.8413,1.4813,2.2678,3.383,9.9996,9.9996,3.4141,2.001,0.9445,0.3146,0.7178,1.8609,3.2739,5.6722) MI_JJ = Array(16,0,0,4.3232,2.4885,2.8581,3.1911,-1.5755,0,0,0,-5.0742,3.313,3.5116,2.9929,2.5718,2.5856,5.6722) MJ_JJ = Array(16,0,0,3.0798,2.6846,2.9853,2.4913,3.3828,0,0,0,3.4141,2.301,2.1545,3.2426,2.7198,2.7249,5.6722) MG_JJ = Array(16,"A","B","D","D","D","D","D","B","B","B","C","C","C","C","C","C",5.6722) MX_KK = Array(13,0,0,1.2362,1.2362,5.9979,7.6173,3.7152,7.9038,6.5709,2.8588,1.2393,1.2393,0.003,7.9038) MY_KK = Array(13,0.0033,9.9999,9.9999,5.2381,9.9998,9.9998,6.0977,0.003,0.003,5.2379,3.6184,-0.0003,-0.0003,7.9038) MI_KK = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,7.9038) MJ_KK = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,7.9038) MG_KK = Array(13,"A","B","B","B","B","B","B","B","B","B","B","B","B",7.9038) MX_LL = Array(7,6.38,0,0,1.2366,1.2366,6.3799,6.3799,6.38) MY_LL = Array(7,0,0,10,10,1.2366,1.2366,0,6.38) MI_LL = Array(7,0,0,0,0,0,0,0,6.38) MJ_LL = Array(7,0,0,0,0,0,0,0,6.38) MG_LL = Array(7,"A","B","B","B","B","B","B",6.38) MX_MM = Array(14,0,0,1.9033,4.6666,7.4299,9.3332,9.3332,8.0965,8.0965,5.3331,3.9997,1.2363,1.2363,0,9.3332) MY_MM = Array(14,0,10,10,4.3935,9.9999,9.9999,0,0,8.3799,3.0223,3.0223,8.3798,-0.0001,0,9.3332) MI_MM = Array(14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9.3332) MJ_MM = Array(14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9.3332) MG_MM = Array(14,"A","B","B","B","B","B","B","B","B","B","B","B","B","B",9.3332) MX_NN = Array(11,0,0,1.43,6.6666,6.6666,7.9032,7.9032,6.4732,1.2365,1.2365,0,7.9032) MY_NN = Array(11,0,10,10,1.9033,9.9999,9.9999,0,0,8.0966,0,0,7.9032) MI_NN = Array(11,0,0,0,0,0,0,0,0,0,0,0,7.9032) MJ_NN = Array(11,0,0,0,0,0,0,0,0,0,0,0,7.9032) MG_NN = Array(11,"A","B","B","B","B","B","B","B","B","B","B",7.9032) MX_ENNE = Array(28,0,0,1.43,6.6666,6.6666,7.9032,7.9032,6.4732,1.2365,1.2365,0,1.8667,1.8796,1.8796,3.8174,3.8174,4.8524,5.5061,5.5181,6.4255,6.4126,6.4126,4.4748,4.4748,3.4398,2.786,2.7741,1.8667,7.9032) MY_ENNE = Array(28,0,10,10,1.9033,9.9999,9.9999,0,0,8.0966,0,0,10.6136 ,10.8734 ,10.8734 ,12.0509,12.0509 ,11.5772 ,11.9722,12.1893 ,12.1893 ,11.9296 ,11.9296 ,10.7521,10.7521 ,11.2257 ,10.8308,10.6136 ,10.6136 ,7.9032) MI_ENNE = Array(28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.2475,0,0,5.0447,0,0,0,0,5.0447,0,0,3.2475,0,0,7.9032) MJ_ENNE = Array(28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.8055,0,0,11.9975,0,0,0,0,11.9975,0,0,10.8055,0,0,7.9032) MG_ENNE = Array(28,"A","B","B","B","B","B","B","B","B","B","B","A","B","B","C","B","B","D","B","B","B","B","C","B","B","D","B","B",7.9032) MX_OO = Array(26,5.4888,3.3854,2.2412,0.9368,0.6164,1.6919,3.0649,5.7819,7.1653,8.0076,7.733,6.4515,5.4884,5.265,6.0683,6.5816,6.7149,6.1115,5.1947,3.6979,2.6245,1.9778,1.9778,2.6478,3.6978,5.2612,8.0076) MY_OO = Array(26,0.1344,0.1601,0.5948,1.8762,7.6656,9.0843,9.8165,9.7679,8.8745,7.5739,2.0132,0.5715,0.1338,1.2138,1.6971,2.3904,7.4673,8.294,8.8073,8.8739,8.3838,7.6237,2.41,1.6499,1.1465,1.2131,8.0076) MI_OO = Array(26,0,4.4983,4.3156,3.9069,6.4855,4.1216,4.2076,4.3476,4.6887,3.96,2.0648,4.0227,4.8133,0,4.7662,3.6653,1.7892,4.0793,4.6666,4.291,4.0773,4.4353,6.4393,4.2495,4.3684,4.3645,8.0076) MJ_OO = Array(26,0,5.1494,4.3301,3.5948,5.0862,6.1256,6.0213,5.5555,6.5579,5.8755,5.0809,4.0202,2.8975,0,2.9518,4.0121,5.0564,6.1783,6.79,5.3543,6.6229,6.1888,5.0177,3.737,3.8919,3.8765,8.0076) MG_OO = Array(26,"A","C","C","C","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","D","D","D",8.0076) MX_PP = Array(20,0,0,4.1733,5.6066,6.5666,6.7499,5.5599,4.0245,1.2364,1.2364,-0.0002,1.2364,4.4663,5.2396,5.6729,5.6029,5.1229,4.3927,1.2361,1.2361,6.7499) MY_PP = Array(20,0,9.9999,9.9999,9.8032,9.1398,5.3998,4.4931,4.2864,4.2864,-0.0002,-0.0002,5.5231,5.5231,5.753,6.2096,8.1995,8.6028,8.7595,8.7595,5.5228,6.7499) MI_PP = Array(20,0,0,0,4.1733,5.1243,3.8364,5.0311,4.0245,0,0,0,0,0,4.4663,4.496,4.0539,4.6507,4.3927,0,0,6.7499) MJ_PP = Array(20,0,0,0,4.6789,8.0792,7.1318,6.4208,10.0921,0,0,0,0,0,6.9381,6.892,7.1486,7.5545,6.9808,0,0,6.7499) MG_PP = Array(20,"A","B","B","C","C","C","C","C","B","B","B","A","B","D","D","D","D","D","B","B",6.7499) MX_QQ = Array(32,7.8756,6.5758,4.2129,1.6034,0.3903,0.3669,1.2134,2.5864,6.4323,7.3254,8.0352,8.6317,8.2217,7.2718,8.4849,7.8783,5.2788,6.4052,7.145,7.3949,6.915,6.4784,5.6319,3.3656,2.4024,1.7392,1.5559,2.379,3.2488,5.6216,4.6684,5.2749,8.6317) MY_QQ = Array(32,0,1.0397,0.2731,1.2129,2.9292,7.2816,8.7246,9.6877,9.4344,8.7478,7.7646,4.9718,3.0954,1.6523,0.6991,0.0059,3.2119,2.3453,3.485,4.2648,7.4708,8.0873,8.7071,8.867,8.3404,7.4938,3.1646,2.0648,1.5615,1.7381,2.6046,3.2111,8.6317) MI_QQ = Array(32,0,0,4.2063,4.2062,4.1906,6.3888,4.5731,3.8669,4.2385,4.6407,4.1391,3.4216,2.1581,4.4967,0,0,0,0,2.965,3.9555,2.647,4.2611,4.4997,4.2894,4.1448,4.1579,6.4666,4.0125,4.5854,4.2559,0,0,8.6317) MJ_QQ = Array(32,0,0,4.3187,4.3471,4.3279,5.1372,5.7846,6.4026,5.4487,6.1794,5.6998,5.3196,5.4028,4.5124,0,0,0,0,5.3883,4.937,5.1928,6.0548,6.2733,5.8211,6.298,6.2824,5.1258,4.1446,4.8748,4.0575,0,0,8.6317) MG_QQ = Array(32,"A","B","C","C","C","C","C","C","C","C","C","C","C","C","B","B","A","B","D","D","D","D","D","D","D","D","D","D","D","D","B","B",8.6317) MX_RR = Array(30,0,0,4.89,6.11,6.8433,7.0033,6.4766,5.6199,6.7932,7.1131,7.2097,7.6197,6.2863,6.0863,5.9963,5.8596,5.2396,4.3711,1.2362,1.2362,-0.0004,1.2362,4.3628,5.2161,5.7427,5.6973,5.2593,4.5848,1.2325,1.2325,7.6197) MY_RR = Array(30,0,10,10,9.7033,9.0399,6.0865,5.3765,4.9498,4.1997,3.263,1.2263,-0.0003,-0.0003,0.5396,1.4796,3.1729,4.0395,4.2861,4.2861,-0.0005,-0.0005,5.5228,5.5228,5.6494,6.0394,8.4433,8.7627,8.8694,8.856,5.5226,7.6197) MI_RR = Array(30,0,0,0,4.89,5.221,4.3626,4.6626,5.3615,5.452,4.7729,-7.3228,9.1195,0,8.8713,8.9714,0.0941,4.514,4.3711,0,0,0,0,0,4.3628,4.9327,3.9988,4.9834,4.5933,0,0,7.6197) MJ_RR = Array(30,0,0,0,7.344,7.9843,7.4249,7.2715,6.5415,3.3948,2.9867,1.558,1.1833,0,1.2637,1.2896,1.8546,2.8659,2.6345,0,0,0,0,0,8.4598,6.5824,7.2084,7.9253,6.7397,0,0,7.6197) MG_RR = Array(30,"A","B","B","C","C","C","C","C","C","C","C","D","B","C","C","D","D","D","B","B","B","A","B","D","D","D","D","D","B","B",7.6197) MX_SS = Array(31,0,1.1511,2.0566,3.5588,5.5375,6.018,5.8349,4.6786,2.7684,1.7314,0.6946,0.809,2.4216,5.403,6.7397,5.7231,5.474,4.8378,2.5859,1.8487,1.5928,2.1919,2.7521,4.9957,5.9516,6.7695,6.9276,4.2699,1.7969,0.5257,-0.0014,6.9276) MY_SS = Array(31,3.1444,3.1444,1.5703,1.108,1.8305,2.6314,3.7298,4.5276,4.9425,5.2474,6.1259,8.8018,9.8671,9.5666,7.5327,7.5327,8.1789,8.6804,8.8016,8.3168,6.8862,6.2399,6.028,5.4959,5.1088,4.311,1.9009,0.0207,0.3904,1.4304,3.1431,6.9276) MI_SS = Array(31,0,0,3.0872,3.6681,3.6596,4.4555,4.6679,4.2866,0,3.6011,2.6099,2.683,3.129,3.4954,4.3865,0,4.674,3.9128,3.5742,3.2977,2.7856,2.8265,3.2906,0,4.2094,4.7038,4.6221,3.9741,3.7903,2.856,3.1449,6.9276) MJ_SS = Array(31,0,0,3.2104,4.1353,3.902,3.0235,2.9704,2.7238,0,9.6895,7.3344,7.3809,7.0438,5.5801,7.4426,0,7.4997,6.8539,6.1844,6.9166,7.4118,7.4282,8.2979,0,2.1809,3.0118,2.96,3.2569,5.2677,2.9814,3.1734,6.9276) MG_SS = Array(31,"A","B","D","D","D","D","D","D","B","C","C","C","C","C","C","B","D","D","D","D","D","D","D","B","C","C","C","C","C","C","C",6.9276) MX_TT = Array(9,3.2366,3.2366,0,0,7.7133,7.7133,4.4766,4.4766,3.2399,7.7133) MY_TT = Array(9,0,8.7633,8.7633,9.9999,9.9999,8.7632,8.7632,-0.0001,-0.0001,7.7133) MI_TT = Array(9,0,0,0,0,0,0,0,0,0,7.7133) MJ_TT = Array(9,0,0,0,0,0,0,0,0,0,7.7133) MG_TT = Array(9,"A","B","B","B","B","B","B","B","B",7.7133) MX_UU = Array(17,0.0072,1.1872,1.1772,1.3605,1.9472,5.3274,5.9674,6.184,6.184,7.3641,7.3641,7.124,6.3772,1.1634,0.2633,0.0032,0.0032,7.3641) MY_UU = Array(17,9.9966,9.9966,3.566,2.6092,1.7924,1.6157,2.3791,3.3836,9.9963,9.9963,3.6391,2.1123,0.9822,0.9288,2.1622,3.5522,9.9994,7.3641) MI_UU = Array(17,0,0,0,3.7442,3.3032,3.7528,4.2808,3.7525,0,0,0,2.388,4.7251,3.7389,3.1694,3.5713,0,7.3641) MJ_UU = Array(17,0,0,0,3.563,3.3852,3.9134,3.1427,3.3821,0,0,0,3.6391,2.8853,4.0212,3.3378,3.5002,0,7.3641) MG_UU = Array(17,"A","B","B","D","D","D","D","D","B","B","B","C","C","C","C","C","B",7.3641) MX_VV = Array(8,0,1.3333,4.2866,7.2399,8.5732,5.0498,3.5264,0.003,8.5732) MY_VV = Array(8,10,10,1.4299,9.9999,9.9999,0,0,10,8.5732) MI_VV = Array(8,0,0,0,0,0,0,0,0,8.5732) MJ_VV = Array(8,0,0,0,0,0,0,0,0,8.5732) MG_VV = Array(8,"A","B","B","B","B","B","B","B",8.5732) MX_WW = Array(14,0.0066,1.2432,3.4331,5.623,6.9563,9.1462,11.3362,12.5728,9.8094,8.476,6.286,4.096,2.7626,-0.0007,12.5728) MY_WW = Array(14,10,10,1.9033,8.4666,8.4666,1.9032,9.9998,9.9998,-0.0001,-0.0001,7.0698,-0.0001,-0.0001,9.9999,12.5728) MI_WW = Array(14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12.5728) MJ_WW = Array(14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12.5728) MG_WW = Array(14,"A","B","B","B","B","B","B","B","B","B","B","B","B","B",12.5728) MX_XX = Array(13,0,3.4299,0.2865,1.8098,4.1897,6.5696,8.0929,4.9495,8.3794,6.856,4.1893,1.5226,-0.0007,8.3794) MY_XX = Array(13,0,5.1433,9.9999,9.9999,6.2865,9.9998,9.9998,5.1431,-0.0002,-0.0002,4.0964,-0.0002,-0.0002,8.3794) MI_XX = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,8.3794) MJ_XX = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,8.3794) MG_XX = Array(13,"A","B","B","B","B","B","B","B","B","B","B","B","B",8.3794) MX_YY = Array(10,3.7133,3.7133,0,1.4299,4.3832,7.2398,8.5731,4.9531,4.9531,3.7164,8.5731) MY_YY = Array(10,0,4.19,9.9999,9.9999,5.3332,9.9998,9.9998,4.1898,-0.0002,-0.0002,8.5731) MI_YY = Array(10,0,0,0,0,0,0,0,0,0,0,8.5731) MJ_YY = Array(10,0,0,0,0,0,0,0,0,0,0,8.5731) MG_YY = Array(10,"A","B","B","B","B","B","B","B","B","B",8.5731) MX_ZZ = Array(11,7.62,0,0,6.0966,0.3832,0.3832,7.6198,7.6198,1.7164,7.6197,7.6197,7.62) MY_ZZ = Array(11,0,0,1.1433,8.7633,8.7633,9.9999,9.9999,8.6665,1.2364,1.2364,-0.0002,7.62) MI_ZZ = Array(11,0,0,0,0,0,0,0,0,0,0,0,7.62) MJ_ZZ = Array(11,0,0,0,0,0,0,0,0,0,0,0,7.62) MG_ZZ = Array(11,"A","B","B","B","B","B","B","B","B","B","B",7.62) MX_a = Array(45,6.5167,5.5336,4.9818,4.7644,4.2093,3.5639,2.641,1.3101,0.5811,0.0561,0.0561,0.5108,1.6677,3.6338,4.2256,4.6703,4.6168,4.1018,2.694,1.8446,1.4567,1.3497,0.3332,0.4268,1.0387,2.1154,4.4292,5.2316,5.5927,5.7767,5.7531,5.9838,6.5154,6.5154,4.6696,4.6696,3.5327,1.9845,1.1853,0.9177,1.2554,1.8773,2.8369,3.9938,4.6692,6.5167) MY_a = Array(45,0.0936,0.0367,0.3376,1.1066,0.6451,0.2772,-0.0003,0.1133,0.5747,1.5678,2.5843,3.4035,4.1157,4.4534,4.5804,5.0786,5.8242,6.3592,6.6099,6.2655,5.8074,5.1754,5.1754,6.0046,6.894,7.3755,7.2384,6.827,6.3789,5.5665,1.2428,0.9786,1.0254,0.1025,2.1321,3.8875,3.6434,3.3758,2.824,2.1652,1.1687,0.8677,0.9747,1.5598,2.1282,6.5167) MI_a = Array(45,0,5.5771,5.5373,6.1065,2.0734,1.5987,2.1568,2.2165,1.8586,2.0942,2.3992,1.6404,2.6889,3.6795,3.6227,3.8998,3.6928,3.5545,3.0028,2.9321,2.6343,2.403,0,2.4328,2.2181,2.4939,2.97,3.7699,4.4433,3.9366,0,6.018,6.1436,0,0,0,3.3556,3.8505,2.4424,2.2435,2.1367,1.978,2.1077,1.4246,1.0107,6.5167) MJ_a = Array(45,0,7.8106,0.6987,1.0706,3.7786,4.4751,3.2822,2.8777,1.7863,2.0097,2.0758,2.2413,1.1615,-1.7043,5.9464,5.3184,5.3826,5.3172,4.2672,4.8039,5.2045,5.3224,0,5.3574,5.4276,5.085,2.2035,4.9644,5.823,5.5769,0,1.2418,2.2056,0,0,0,7.2375,-2.8086,1.8578,2.011,2.0232,1.8687,3.1577,5.2027,5.7898,6.5167) MG_a = Array(45,"A","C","C","C","C","C","C","C","C","C","C","C","C","C","D","D","D","D","D","D","D","D","B","C","C","C","C","C","C","C","B","D","D","B","A","B","C","D","D","D","D","D","D","D","D",6.5167) MX_b = Array(24,0,0,1.1537,1.1537,2.4741,4.2713,6.0218,6.6286,5.3215,3.7809,2.2637,1.1533,1.1533,-0.0004,2.3803,4.0375,5.4379,5.2278,4.1541,1.9833,1.283,1.0729,1.3296,2.3799,6.6286) MY_b = Array(24,-0.0033,10,10,6.3454,7.3757,7.5857,6.5119,1.5869,0.163,-0.2104,0.1397,0.9599,-0.0004,-0.0004,0.9465,0.8298,2.2536,5.2879,6.3382,5.9647,4.9143,3.5838,2.0666,0.9462,6.6286) MI_b = Array(24,0,0,0,0,3.9271,3.7039,3.7177,2.2042,3.8738,3.8594,3.8814,3.6473,0,0,0,3.3612,3.429,1.151,3.3731,3.3629,3.7171,4.7419,6.5956,3.027,6.6286) MJ_b = Array(24,0,0,0,0,4.1524,4.6477,4.7197,3.5419,2.8039,2.83,3.6866,3.1737,0,0,0,3.0515,2.8288,3.4806,4.4669,4.4422,4.0507,3.6873,3.7378,2.6046,6.6286) MG_b = Array(24,"A","B","B","B","C","C","C","C","C","C","C","C","B","B","A","D","D","D","D","D","D","D","D","D",6.6286) MX_c = Array(23,6.1148,5.5017,3.9708,2.2791,0.5706,0.6074,1.9574,4.3156,5.1966,5.9905,4.8649,4.6304,3.7828,2.4127,1.6355,1.2,1.2066,1.7258,2.6235,3.9232,4.6166,4.9114,6.1173,6.1173) MY_c = Array(23,2.2812,0.757,0,0.0536,1.3131,6.1,7.2523,7.2523,6.7498,5.1217,5.1217,5.7481,6.3443,6.3342,5.8082,4.7329,2.6962,1.5271,0.9944,0.9508,1.3125,2.2772,2.2772,6.1173) MI_c = Array(23,0,3.8852,3.705,3.3163,2.6818,5.2007,2.7342,3.1365,3.4464,3.7165,0,3.682,3.2873,3.1136,2.9358,3.0947,14.2613,3.1354,3.0988,3.3701,3.6703,3.8816,0,6.1173) MJ_c = Array(23,0,2.2922,2.463,6.066,2.3876,3.6701,4.976,3.7963,4.7053,5.0208,0,5.0367,4.7401,4.1773,4.7242,4.5922,3.7579,2.8522,2.8181,3.8594,2.2808,2.0635,0,6.1173) MG_c = Array(23,"A","C","C","C","C","C","C","C","C","C","B","D","D","D","D","D","D","D","D","D","D","D","B",6.1173) MX_d = Array(27,6.9485,5.7947,5.7947,4.5476,3.1238,1.8867,0.6262,0.3661,1.6331,3.1036,4.6674,5.7977,5.7977,6.9514,6.9514,5.7143,5.7243,5.0907,3.3868,2.6165,2.0096,1.8228,2.4763,3.4566,4.6903,5.2871,5.7139,6.9514) MY_d = Array(27,0,0,0.9603,-0.0733,-0.3533,-0.0498,1.1406,5.392,6.9791,7.5159,7.2591,6.3454,9.9999,9.9999,-0.0034,2.4741,5.0782,6.0651,6.4619,6.1584,5.3881,2.1637,1.23,0.8565,1.0765,1.5833,2.4702,6.9514) MI_d = Array(27,0,0,0,3.3603,3.209,3.2003,3.1709,4.8806,3.7247,3.3627,3.3809,3.5684,0,0,0,0,-3.1255,4.3267,3.6831,3.5695,3.72,6.441,3.5292,3.6415,3.6768,4.0238,2.7777,6.9514) MJ_d = Array(27,0,0,0,2.6273,2.9717,2.6317,2.5722,3.5336,4.011,4.5241,4.3149,4.7441,0,0,0,0,3.8101,4.8782,3.8781,4.8689,4.6654,3.5141,2.6617,2.815,3.1895,2.4655,3.3363,6.9514) MG_d = Array(27,"A","B","B","C","C","C","C","C","C","C","C","C","B","B","B","A","D","D","D","D","D","D","D","D","D","D","D",6.9514) MX_e = Array(23,5.6101,4.5704,2.4451,1.0263,0.1353,0.2052,1.4547,4.7267,5.8162,5.8695,1.0846,1.4544,2.3873,3.7946,4.6412,5.6092,4.8161,4.6628,4.1496,1.9837,1.3339,1.0873,4.8158,5.8695) MY_e = Array(23,1.7317,0.3755,0.0456,0.8465,2.6112,5.4268,7.0461,6.8895,5.2701,3.4308,3.4308,1.9813,1.1349,1.0522,1.7158,1.7313,4.4869,5.3465,6.0262,6.1328,5.463,4.4867,4.4867,5.8695) MI_e = Array(23,0,3.6359,3.0207,2.8628,4.0661,5.8144,2.8115,2.9695,3.1017,1.4445,0,4.0601,3.1558,3.2049,3.3763,0,0,2.4617,3.2403,2.9872,2.9257,3.0135,0,5.8695) MJ_e = Array(23,0,2.1677,3.3485,2.4426,3.4885,3.8782,4.7078,4.4351,4.6205,4.2231,0,3.4188,2.9193,3.0329,2.4572,0,0,4.5099,4.8065,4.4672,4.5698,4.52,0,5.8695) MG_e = Array(23,"A","C","C","C","C","C","C","C","C","C","B","D","D","D","D","B","A","D","D","D","D","D","B",5.8695) MX_f = Array(20,1.2566,1.2566,0,0,1.2566,1.2566,1.5398,2.0136,2.748,3.7697,3.7697,3.153,2.583,2.4129,2.4129,3.7662,3.7662,2.4128,2.4128,1.2528,3.7697) MY_f = Array(20,0,6.3866,6.3866,7.4499,7.4499,8.6946,9.5948,10.0686,10.3529,10.253,9.1896,9.2096,8.9729,8.5221,7.4495,7.4495,6.3861,6.3861,-0.0005,-0.0005,3.7697) MI_f = Array(20,0,0,0,0,0,0,2.8287,3.1113,2.9607,3.042,0,3.7965,3.1093,3.0954,0,0,0,0,0,0,3.7697) MJ_f = Array(20,0,0,0,0,0,0,8.6946,8.4978,8.7136,8.0859,0,19.5276,8.5106,8.5229,0,0,0,0,0,0,3.7697) MG_f = Array(20,"A","B","B","B","B","B","C","C","C","C","B","C","D","D","B","B","B","B","B","B",3.7697) MX_g = Array(39,5.6621,4.4048,2.6404,1.2155,0.2508,0.1639,1.0738,2.6193,4.4045,5.6617,5.6617,6.8217,6.8217,6.5681,5.8005,4.6474,2.0668,0.8303,0.4169,1.4102,1.6776,2.5285,4.1869,5.1379,5.5837,5.6611,5.2755,5.5538,5.1674,4.5009,3.5735,2.3734,1.5709,1.1838,1.333,1.9269,2.8889,4.4136,5.2749,6.8217) MY_g = Array(39,0.9794,0.1076,0,0.6971,2.1151,5.2687,6.8142,7.613,7.4497,6.5814,7.4497,7.4497,-0.3476,-1.5632,-2.4141,-2.8517,-2.8517,-2.1119,-0.7642,-0.7572,-1.4796,-1.8651,-1.8291,-1.3535,-0.551,0.9795,1.945,2.9559,5.6308,6.387,6.6752,6.4331,5.69,4.5877,2.4206,1.4548,0.9616,1.1178,1.9409,6.8217) MI_g = Array(39,0,3.4034,3.3382,3.4037,3.1404,5.6209,3.3451,3.2077,3.231,3.1824,0,0,0,3.7807,4.912,3.7899,3.3571,2.536,2.1903,0,2.2206,2.7249,3.236,3.8814,4.0842,0.6256,0,2.0791,0.3671,3.6824,3.421,3.4097,3.2776,3.9772,6.6711,3.2777,3.3325,3.4116,3.7002,6.8217) MJ_g = Array(39,0,2.8944,3.0756,3.364,3.0431,3.8401,4.4367,4.5802,4.46,4.3367,0,0,0,-0.3476,-0.8412,1.1449,3.1633,-0.6647,-0.9579,0,-0.8672,-0.3006,3.7729,-0.0301,-0.2435,0.467,0,3.368,3.5719,4.9948,4.55,4.3922,4.6521,4.226,3.8777,2.9506,3.0118,3.3766,2.7258,6.8217) MG_g = Array(39,"A","C","C","C","C","C","C","C","C","C","B","B","B","C","C","C","C","C","C","B","D","D","D","D","D","D","A","D","D","D","D","D","D","D","D","D","D","D","D",6.8217) MX_h = Array(20,0,0,1.1433,1.1433,1.7399,2.6332,4.3032,5.4565,5.9065,6.0965,6.0965,4.9531,4.9531,4.7831,3.9831,2.5631,1.6031,1.1431,1.1431,-0.0002,6.0965) MY_h = Array(20,0,10,10,6.38,7.0933,7.5066,7.5299,6.9665,6.3031,5.253,-0.0002,-0.0002,5.2131,5.813,6.4063,6.4296,5.8129,4.4559,-0.0004,-0.0004,6.0965) MI_h = Array(20,0,0,0,0,3.1366,3.0555,3.5302,3.9092,4.314,3.1005,0,0,0,3.8093,3.6413,3.2256,2.9379,3.3746,0,0,6.0965) MJ_h = Array(20,0,0,0,0,5.319,5.4223,3.0786,5.2619,5.7075,5.2531,0,0,0,5.2131,5.11,3.5333,4.7906,4.4559,0,0,6.0965) MG_h = Array(20,"A","B","B","B","C","C","C","C","C","C","B","B","B","D","D","D","D","D","B","B",6.0965) MX_i = Array(10,0,1.16,1.16,0,0,0,0,1.16,1.16,0,1.16) MY_i = Array(10,7.45,7.45,0,0,7.45,8.9,10.1566,10.1566,8.8999,8.8999,1.16) MI_i = Array(10,0,0,0,0,0,0,0,0,0,0,1.16) MJ_i = Array(10,0,0,0,0,0,0,0,0,0,0,1.16) MG_i = Array(10,"A","B","B","B","B","A","B","B","B","B",1.16) MX_j = Array(15,0,1.0218,1.0218,0.9015,0.1133,-1.1122,-1.1122,-0.2673,-0.0034,-0.0034,-0.0034,-0.0034,1.0184,1.0184,-0.0034,1.0218) MY_j = Array(15,7.45,7.45,-0.2239,-1.0653,-1.6898,-1.7598,-0.8214,-0.6845,-0.2237,7.4502,8.6424,9.9213,9.9213,8.6423,8.6423,1.0218) MI_j = Array(15,0,0,0,-0.7058,-0.0486,-0.844,0,-0.8575,-0.5543,0,0,0,0,0,0,1.0218) MJ_j = Array(15,0,0,0,-0.4059,-0.6763,4.3022,0,0.2816,-0.2145,0,0,0,0,0,0,1.0218) MG_j = Array(15,"A","B","B","C","C","C","B","D","D","B","A","B","B","B","B",1.0218) MX_k = Array(13,0,0,1.1433,1.1433,4.5733,6.0033,3.3366,6.0999,4.8632,2.5765,1.1464,1.1464,0.003,6.0999) MY_k = Array(13,0,9.9999,9.9999,3.9032,7.3332,7.3332,4.6664,-0.0002,-0.0002,3.9031,2.473,-0.0036,-0.0036,6.0999) MI_k = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.0999) MJ_k = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.0999) MG_k = Array(13,"A","B","B","B","B","B","B","B","B","B","B","B","B",6.0999) MX_l = Array(5,0,0,1.1433,1.1433,0,1.1433) MY_l = Array(5,0,10,10,0,0,1.1433) MI_l = Array(5,0,0,0,0,0,1.1433) MJ_l = Array(5,0,0,0,0,0,1.1433) MG_l = Array(5,"A","B","B","B","B",1.1433) MX_m = Array(30,0,0,1.16,1.16,2.6999,4.7132,5.4165,6.7731,9.223,9.773,10.0263,10.163,10.163,9.003,9.003,8.793,8.1063,6.8029,6.0929,5.7129,5.7129,4.5529,4.5529,4.3762,3.6895,2.0661,1.3094,1.1493,1.1659,0.0059,10.163) MY_m = Array(30,0,7.45,7.45,6.4833,7.5732,7.4265,6.4798,7.5031,7.3797,6.8763,6.2363,4.7515,-0.0003,-0.0003,5.3196,6.0162,6.5195,6.4961,5.9928,4.8711,-0.0005,-0.0005,4.9328,5.856,6.4727,6.336,5.5592,4.7881,-0.0007,-0.0007,10.163) MI_m = Array(30,0,0,0,0,3.6717,3.5258,4.1415,7.973,7.8638,8.5527,8.2582,2.0938,0,0,0,7.7423,7.7659,7.4927,7.2588,7.5583,0,0,0,2.052,3.4118,3.0621,2.7207,3.0554,0,0,10.163) MJ_m = Array(30,0,0,0,0,4.5683,5.0192,6.2675,4.5018,4.7751,6.0957,5.9073,4.7573,0,0,0,5.3196,5.3362,4.3855,5.1011,4.8718,0,0,0,4.9328,5.473,4.2147,4.942,4.7952,0,0,10.163) MG_m = Array(30,"A","B","B","B","C","C","C","C","C","C","C","C","B","B","B","D","D","D","D","D","B","B","B","D","D","D","D","D","B","B",10.163) MX_n = Array(20,0,0,1.1599,1.1599,2.9732,4.5965,5.6931,6.0831,6.1898,6.1898,5.0298,5.0298,4.9197,4.463,3.2263,2.0829,1.3495,1.1594,1.1594,-0.0006,6.1898) MY_n = Array(20,0,7.45,7.45,6.4833,7.5532,7.6432,7.0264,6.2497,5.1556,0.003,0.003,5.2262,5.9062,6.4562,6.6627,6.2494,5.4261,4.4969,0.0027,0.0027,6.1898) MI_n = Array(20,0,0,0,0,4.3229,3.9651,4.2232,4.4863,0.5668,0,0,0,2.8729,3.9868,3.5528,3.8429,2.9415,3.5255,0,0,6.1898) MJ_n = Array(20,0,0,0,0,3.1943,4.3502,5.6962,5.9344,5.1597,0,0,0,5.2262,5.5972,4.8132,3.1687,4.7474,4.4971,0,0,6.1898) MG_n = Array(20,"A","B","B","B","C","C","C","C","C","B","B","B","D","D","D","D","D","D","B","B",6.1898) MX_enneMin = Array(37,0,0,1.1599,1.1599,2.9732,4.5965,5.6931,6.0831,6.1898,6.1898,5.0298,5.0298,4.9197,4.463,3.2263,2.0829,1.3495,1.1594,1.1594,-0.0006,0.7872,0.8001,0.8001,2.7379,2.7379,3.7729,4.4267,4.4386,5.3461,5.3332,5.3332,3.3953,3.3953,2.3603,1.7066,1.6947,0.7872,6.1898) MY_enneMin = Array(37,0,7.45,7.45,6.4833,7.5532,7.6432,7.0264,6.2497,5.1556,0.003,0.003,5.2262,5.9062,6.4562,6.6627,6.2494,5.4261,4.4969,0.0027,0.0027,8.1811 ,8.4409 ,8.4409 ,9.6183,9.6183 ,9.1447 ,9.5397,9.7568 ,9.7568 ,9.4970 ,9.4970 ,8.3196,8.3196 ,8.7932 ,8.3982,8.1811 ,8.1811 ,6.1898) MI_enneMin = Array(37,0,0,0,0,4.3229,3.9651,4.2232,4.4863,0.5668,0,0,0,2.8729,3.9868,3.5528,3.8429,2.9415,3.5255,0,0,0,0,0,2.168,0,0,3.9652,0,0,0,0,3.9652,0,0,2.168,0,0,6.1898) MJ_enneMin = Array(37,0,0,0,0,3.1943,4.3502,5.6962,5.9344,5.1597,0,0,0,5.2262,5.5972,4.8132,3.1687,4.7474,4.4971,0,0,0,0,0,8.3729,0,0,9.565,0,0,0,0,9.565,0,0,8.3729,0,0,6.1898) MG_enneMin = Array(37,"A","B","B","B","C","C","C","C","C","B","B","B","D","D","D","D","D","D","B","B","A","B","B","C","B","B","D","B","B","B","B","C","B","B","D","B","B",6.1898) MX_o = Array(26,2.5752,1.485,0.3981,0.4147,1.0614,1.9415,4.4052,5.5753,6.3321,6.1153,5.2518,3.9015,2.5713,2.788,4.14,4.7807,5.1239,5.1696,4.8034,4.2999,2.3546,1.8511,1.5535,1.4619,1.8738,2.7874,6.3321) MY_o = Array(26,0.11,0.5367,1.8535,5.704,6.6742,7.2309,7.3208,6.7073,5.6272,1.5265,0.483,-0.0004,0.1062,1.0596,1.0514,1.4633,2.1269,5.1934,5.9028,6.3147,6.3375,5.9255,5.3991,2.218,1.5543,1.0589,6.3321) MI_o = Array(26,0,3.1446,2.938,5.2867,3.0378,2.8018,3.3106,3.4979,4.0326,1.2347,3.628,3.7581,3.624,0,3.4815,3.8958,3.0451,0.0115,3.2476,3.5727,3.3045,2.979,3.5736,5.9202,3.0338,3.1913,6.3321) MJ_o = Array(26,0,3.17,2.8427,3.7575,4.657,4.8972,3.5169,4.1678,4.8213,3.8412,2.7055,2.527,4.8886,0,3.9746,2.1354,2.7813,3.7359,4.6514,4.9128,4.3957,5.0615,4.6055,3.6821,2.734,2.8933,6.3321) MG_o = Array(26,"A","C","C","C","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","D","D","D",6.3321) MX_p = Array(27,1.1365,1.1365,0,0,1.1365,1.1365,2.2397,3.4695,5.1659,6.4357,6.4157,5.7891,4.1959,2.4194,1.1362,1.4728,2.4145,3.6724,4.4989,5.2269,4.9421,3.8722,2.359,1.6755,1.2493,1.2493,1.4723,6.4357) MY_p = Array(27,1.1874,-2.4154,-2.4154,7.4467,7.4467,6.4968,7.3333,7.6365,7.2932,5.9999,1.8037,0.8771,0.0305,0.2305,1.1837,1.8636,1.0468,0.8569,1.2602,2.3252,5.7429,6.5294,6.4061,5.9047,4.9955,2.4385,1.8631,6.4357) MI_p = Array(27,0,0,0,0,0,0,3.5142,3.6791,3.6713,3.9452,2.0345,2.9105,3.8093,3.6882,3.5014,0,3.6212,3.3245,3.3789,2.6795,1.4879,3.5026,3.3112,3.0134,3.2197,8.0727,2.9012,6.4357) MJ_p = Array(27,0,0,0,0,0,0,4.5078,4.1413,4.2715,4.8252,3.9229,3.4987,2.6801,3.5095,3.0265,0,3.3886,2.8128,2.5069,3.2852,3.7342,4.9059,4.0654,4.7981,4.6267,3.7175,2.7475,6.4357) MG_p = Array(27,"A","B","B","B","B","B","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","D","D",6.4357) MX_q = Array(27,5.5349,4.322,2.729,1.1928,0.254,0.5925,1.6663,2.7868,3.8605,5.5346,5.5346,6.6751,6.6751,5.5346,5.5346,5.2511,5.4811,5.3741,4.7482,3.5534,2.5008,1.6474,1.562,2.33,3.6434,4.803,5.2472,6.6751) MY_q = Array(27,1.1839,0.2428,-0.0416,0.6126,2.0349,6.2193,7.363,7.7198,7.5997,6.4992,7.4495,7.4495,-2.4315,-2.4315,1.1801,2.1305,3.0708,5.3911,6.3582,6.8133,6.6426,5.7607,2.0911,1.1523,0.8631,1.3902,2.13,6.6751) MI_q = Array(27,0,2.8102,3.0005,2.9655,3.2932,5.4541,3.1255,2.9901,3.0117,2.7845,0,0,0,0,0,0,1.4929,-1.5296,3.788,3.3269,3.3542,3.1597,6.4798,3.2357,3.4238,3.4382,3.7363,6.6751) MJ_q = Array(27,0,3.4429,3.0398,2.6434,3.0196,3.7199,4.9173,5.145,4.8708,4.1397,0,0,0,0,0,0,3.5475,3.9098,5.0511,4.4232,4.7113,5.1516,3.8127,2.6761,2.9933,2.8531,2.5332,6.6751) MG_q = Array(27,"A","C","C","C","C","C","C","C","C","C","B","B","B","B","B","A","D","D","D","D","D","D","D","D","D","D","D",6.6751) MX_r = Array(12,0,0,1.16,1.16,1.99,3.4833,3.4833,2.1066,1.3065,1.1631,1.1631,0.003,3.4833) MY_r = Array(12,0,7.45,7.45,6.1933,7.1632,7.6431,6.3864,6.063,5.2862,4.7606,-0.0004,-0.0004,3.4833) MI_r = Array(12,0,0,0,0,4.1626,3.3614,0,3.3738,3.1228,2.1984,0,0,3.4833) MJ_r = Array(12,0,0,0,0,4.4643,5.4602,0,3.7604,4.216,4.7612,0,0,3.4833) MG_r = Array(12,"A","B","B","B","C","C","B","D","D","D","B","B",3.4833) MX_s = Array(38,0.0033,1.0009,1.1912,1.9104,3.1584,3.9622,4.491,4.7025,4.3217,3.5263,1.4853,0.6691,0.2811,0.2359,0.7455,1.7829,4.004,4.8078,5.2793,5.3326,4.3212,4.1308,3.5173,2.5442,1.6345,1.1691,1.1479,1.7299,4.0997,4.8625,5.442,5.5054,4.7438,3.7072,2.0571,1.1474,0.28,-0.0016,5.5054) MY_s = Array(38,2.3637,2.3637,1.6545,1.041,0.8294,1.0197,1.5274,2.3524,2.9235,3.1822,3.5959,4.0323,4.5945,5.9545,6.8239,7.3444,7.2597,6.8577,6.1741,5.6477,5.6477,6.096,6.371,6.4556,6.2652,5.7786,5.0805,4.5499,4.0285,3.6819,2.9226,1.611,0.4686,0.0243,0.0454,0.3627,1.2511,2.3523,5.5054) MI_s = Array(38,0,0,2.8313,2.2748,3.2985,3.2066,3.3077,3.1901,4.0502,2.799,0,2.0894,1.5173,2.4009,2.1514,2.0508,2.6656,3.5916,3.7657,4.2376,0,3.8141,3.284,2.5362,2.541,1.9876,2.1474,1.8995,0,3.6081,3.91,3.4055,3.4533,3.3505,2.9441,2.6263,2.1096,2.6627,5.5054) MJ_s = Array(38,0,0,2.4747,2.1965,5.443,2.4174,2.2307,2.3004,2.3304,-0.4045,0,5.7069,5.0323,5.3455,5.4165,5.5169,1.3224,5.4307,5.6347,5.8031,0,5.6967,5.029,0.727,4.2026,5.4622,5.3996,5.3195,0,1.9335,2.3549,2.1676,2.154,2.2876,4.8663,3.1394,2.1687,2.4471,5.5054) MG_s = Array(38,"A","B","D","D","D","D","D","D","D","D","B","C","C","C","C","C","C","C","C","C","B","D","D","D","D","D","D","D","B","C","C","C","C","C","C","C","C","C",5.5054) MX_t = Array(18,4.1785,2.7624,1.9694,1.3538,1.3538,-0.0001,-0.0001,1.3538,1.3538,2.7077,2.7077,4.175,4.175,2.7076,2.7076,3.2481,4.1748,4.1748,4.1785) MY_t = Array(18,0.1132,0.1251,0.5343,1.835,7.4497,7.4497,8.6902,8.6902,11.1746,11.1746,8.6901,8.6901,7.4495,7.4495,2.1453,1.3012,1.2365,0.106,4.1785) MI_t = Array(18,0,3.493,3.3244,3.0359,0,0,0,0,0,0,0,0,0,0,0,3.6369,3.7968,0,4.1785) MJ_t = Array(18,0,2.8052,2.1861,1.8343,0,0,0,0,0,0,0,0,0,0,0,2.1453,2.4922,0,4.1785) MG_t = Array(18,"A","C","C","C","B","B","B","B","B","B","B","B","B","B","B","D","D","B",4.1785) MX_u = Array(19,6.1899,5.0299,5.0299,4.0132,2.8165,1.4098,0.1831,-0.0002,-0.0002,1.1597,1.1597,1.3197,2.173,3.5796,4.6429,5.0337,5.0337,6.1937,6.1937,6.1937) MY_u = Array(19,0,0,0.9666,0.1999,-0.1734,-0.0834,1.0699,2.1326,7.4498,7.4498,2.2264,1.5197,0.893,0.9829,1.7296,2.9597,7.4495,7.4495,-0.0004,6.1937) MI_u = Array(19,0,0,0,2.566,2.1803,2.3179,1.9191,3.1715,0,0,0,2.8003,2.3307,2.6601,3.0665,2.9027,0,0,0,6.1937) MJ_u = Array(19,0,0,0,3.1766,3.9689,3.0726,1.6866,2.1319,0,0,0,2.2264,2.0017,4.318,2.8439,2.9596,0,0,0,6.1937) MG_u = Array(19,"A","B","B","C","C","C","C","C","B","B","B","D","D","D","D","D","B","B","B",6.1937) MX_v = Array(8,0,1.2566,3.3865,5.5164,6.773,4.063,2.7096,-0.0003,6.773) MY_v = Array(8,7.45,7.45,1.45,7.4499,7.4499,0,0,7.45,6.773) MI_v = Array(8,0,0,0,0,0,0,0,0,6.773) MJ_v = Array(8,0,0,0,0,0,0,0,0,6.773) MG_v = Array(8,"A","B","B","B","B","B","B","B",6.773) MX_w = Array(14,0.0066,1.2632,2.8098,4.3564,5.7097,7.2563,8.7063,10.0596,7.9296,6.5762,5.0295,3.4828,2.1294,-0.0005,10.0596) MY_w = Array(14,7.45,7.45,1.6433,4.7266,4.7266,1.6432,7.4498,7.4498,-0.0002,-0.0002,3.2965,-0.0002,-0.0002,7.4498,10.0596) MI_w = Array(14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.0596) MJ_w = Array(14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.0596) MG_w = Array(14,"A","B","B","B","B","B","B","B","B","B","B","B","B","B",10.0596) MX_x = Array(13,0,2.6132,0.1932,1.5465,3.3831,5.2197,6.573,4.153,6.7662,5.4128,3.3794,1.3461,-0.0072,6.7662) MY_x = Array(13,0,3.87,7.4499,7.4499,4.7398,7.4498,7.4498,3.8698,-0.0002,-0.0002,2.9998,-0.0002,-0.0002,6.7662) MI_x = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.7662) MJ_x = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.7662) MG_x = Array(13,"A","B","B","B","B","B","B","B","B","B","B","B","B",6.7662) MX_y = Array(14,0.8228,1.6121,2.3346,2.2611,-0.0001,1.0869,2.9265,4.7661,5.8531,3.0935,2.5014,1.916,0.7452,0.8154,5.8531) MY_y = Array(14,-0.6311,-0.5542,0.2084,1.1713,7.4499,7.4499,2.1784,7.4498,7.4498,-0.3872,-1.2334,-1.5076,-1.5076,-0.6346,5.8531) MI_y = Array(14,0,0.9639,1.3718,0.5551,0,0,0,0,0,0,1.2798,1.6725,1.3306,0,5.8531) MJ_y = Array(14,0,2.0119,0.3968,0.5564,0,0,0,0,0,0,0.2508,-0.2264,1.5734,0,5.8531) MG_y = Array(14,"A","D","D","D","B","B","B","B","B","B","C","C","C","B",5.8531) MX_z = Array(11,6.0993,0,0,4.3552,0.29,0.29,5.9058,5.9058,1.6472,6.0991,6.0991,6.0993) MY_z = Array(11,0,0,1.0637,6.2894,6.2894,7.4499,7.4499,6.386,1.1604,1.1604,-0.0001,6.0993) MI_z = Array(11,0,0,0,0,0,0,0,0,0,0,0,6.0993) MJ_z = Array(11,0,0,0,0,0,0,0,0,0,0,0,6.0993) MG_z = Array(11,"A","B","B","B","B","B","B","B","B","B","B",6.0993) MX_Peso = Array(48,2.2656,2.2656,1.3865,0.1127,0,0.869,0.9618,1.6716,2.2687,2.2687,1.6417,0.4973,0.2153,0.2683,0.3578,1.5188,2.2717,2.2717,2.8389,2.8389,3.8406,4.8224,4.8754,4.1522,3.9664,3.4688,2.8385,2.8385,3.7772,4.7988,5.0376,3.9761,2.8416,2.8416,2.2743,2.8415,3.349,3.9162,3.946,3.4782,2.8413,2.8413,2.274,2.274,1.7498,0.9802,1.5639,2.2737,5.0376) MY_Peso = Array(48,0.9275,1.8496,1.9855,3.4119,4.2577,4.2577,3.5279,2.7915,2.6986,5.3191,5.4616,6.2411,6.878,7.8466,8.0854,9.1435,9.2894,9.9993,9.9993,9.2893,9.0405,7.9425,7.3753,7.3753,8.0056,8.4003,8.5097,6.1014,5.8526,5.0034,3.5504,2.134,1.852,0.9297,0.9297,2.701,2.8205,3.3577,4.406,4.9432,5.1787,2.6974,6.1704,8.509,8.3995,7.4043,6.3428,6.1735,5.0376) MI_Peso = Array(48,0,0,2.2492,1.9693,6.3343,0,4.2144,1.9447,2.3582,0,3.7931,2.1868,1.7781,2.1292,1.4611,2.3547,2.2743,0,0,0,2.6101,3.1309,3.5015,0,3.1214,3.0546,2.8817,0,1.1415,3.2158,2.847,3.1083,2.7644,0,0,0,2.7207,2.9374,2.7423,2.9265,2.4766,0,0,0,2.2824,2.2608,1.9644,2.384,5.0376) MJ_Peso = Array(48,0,0,4.6526,3.7875,4.6719,0,4.3127,3.7649,5.2395,0,13.4721,7.4906,7.1881,7.258,7.5356,7.0604,7.2615,0,0,0,6.2273,7.4185,7.5335,0,7.4133,7.3676,6.8893,0,-2.1966,4.1386,3.9374,3.8894,4.586,0,0,0,4.351,3.8225,3.9157,3.991,3.2152,0,0,0,7.16,7.2095,7.2543,8.2098,5.0376) MG_Peso = Array(48,"A","B","C","C","C","B","D","D","D","B","C","C","C","C","C","C","C","B","B","B","C","C","C","B","D","D","D","B","C","C","C","C","C","B","B","A","D","D","D","D","D","B","A","B","D","D","D","D",5.0376) MX_Porcent = Array(18,0.6949,4.0582,4.5348,0.6948,1.3481,3.6814,1.348,2.0013,7.7946,8.5412,2.7478,2.0011,8.4111,8.1677,8.411,8.1576,8.1675,8.1575,8.5412) MY_Porcent = Array(18,5.6066,8.9699,8.2433,5.6065,6.2598,7.9397,6.2597,-0.0003,9.9996,9.9996,-0.0003,-0.0003,0.3096,5.0462,0.3095,1.2561,4.1094,1.256,8.5412) MI_Porcent = Array(18,0,2.3782,2.5558,2.4051,0,2.3877,2.3876,0,0,0,0,0,0,8.2411,8.241,0,8.2376,8.2375,8.5412) MJ_Porcent = Array(18,0,7.2866,7.4649,7.2303,0,7.2758,7.2767,0,0,0,0,0,0,2.6746,2.6762,0,2.6821,2.6834,8.5412) MG_Porcent = Array(18,"A","C","C","C","A","D","D","A","B","B","B","B","A","C","C","A","D","D",8.5412) MX_Amberstand = Array(35,8.1621,6.6401,5.6541,4.6085,3.3876,0.0193,0.7869,2.1599,1.5312,1.1738,2.3185,4.9356,5.6139,5.1209,3.7709,5.7395,6.6129,7.5625,6.454,8.1546,5.0213,2.692,1.5736,1.1434,3.0425,4.1045,5.021,3.092,4.1938,4.5312,4.0845,2.7676,2.1588,2.4301,3.0918,8.1621) MY_Amberstand = Array(35,0.3503,0.3503,1.515,0.5885,0.0691,3.0965,4.7673,5.7268,6.534,8.5059,9.8458,9.4918,7.9731,6.5999,5.4617,3.3109,4.6609,4.3002,2.4175,0.3562,2.3281,5.0147,4.1181,3.3041,1.0674,1.428,2.3247,6.1824,7.0625,8.1443,8.935,9.0475,8.1674,7.039,6.182,8.1621) MI_Amberstand = Array(35,0,0,0,1.9345,2.5626,2.7736,2.9766,3.6565,4.7492,4.1025,2.8588,3.2664,4.0638,2.0601,2.734,0,2.7044,0,2.36,0,0,0,4.6957,3.0529,2.8853,2.836,2.4307,0,1.4017,3.0848,3.413,3.3354,3.2772,3.8613,8.3894,8.1621) MJ_Amberstand = Array(35,0,0,0,4.659,3.7025,2.7731,2.7505,2.1233,8.3908,8.018,8.2259,7.0028,8.1918,8.4731,8.0609,0,6.2319,0,6.0952,0,0,0,1.3697,2.8161,2.8591,3.4184,4.055,0,9.4274,8.0015,8.0343,7.931,8.0445,7.9804,10.956,8.1621) MG_Amberstand = Array(35,"A","B","B","C","C","C","C","C","C","C","C","C","C","C","C","B","D","B","C","B","A","B","D","D","D","D","D","A","D","D","D","D","D","D","D",8.1621) MX_AbreParent = Array(9,2.2318,0.2812,0.5147,2.2284,3.0408,1.6855,1.5605,3.0374,2.2249,3.0408) MY_AbreParent = Array(9,-1.289,2.872,7.9179,11.2566,11.2566,8.4573,1.9804,-1.2924,-1.2924,3.0408) MI_AbreParent = Array(9,0,12.1324,8.683,13.9076,0,9.2795,15.3359,9.9285,0,3.0408) MJ_AbreParent = Array(9,0,5.889,5.011,3.1529,0,6.5086,4.9543,3.7864,0,3.0408) MG_AbreParent = Array(9,"A","C","C","C","B","D","D","D","B",3.0408) MX_CierraParent = Array(9,-0.7411,0.7136,0.6243,-0.7411,0.0755,1.8013,2.036,0.072,-0.7446,2.036) MY_CierraParent = Array(9,-1.3832,1.8899,8.4328,11.2497,11.2497,7.8873,2.8055,-1.3834,-1.3834,2.036) MI_CierraParent = Array(9,0,-8.1075,-13.1565,-6.8201,0,-12.7886,-6.1186,-10.5633,0,2.036) MJ_CierraParent = Array(9,0,3.8498,4.9719,6.5638,0,2.5227,4.9753,6.1575,0,2.036) MG_CierraParent = Array(9,"A","D","D","D","B","C","C","C","B",2.036) MX_Bajo = Array(5,0,8.2,8.2,0,0,8.2) MY_Bajo = Array(5,-0.65,-0.65,-1.55,-1.55,-0.65,8.2) MI_Bajo = Array(5,0,0,0,0,0,8.2) MJ_Bajo = Array(5,0,0,0,0,0,8.2) MG_Bajo = Array(5,"A","B","B","B","B",8.2) MX_mas = Array(13,3.0529,3.0529,0,0,3.0529,3.0529,3.7753,3.7753,6.8283,6.8283,3.7753,3.7753,3.0528,6.8283) MY_mas = Array(13,1.6329,4.7658,4.7658,5.4882,5.4882,8.6211,8.6211,5.4881,5.4881,4.7656,4.7656,1.6326,1.6326,6.8283) MI_mas = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.8283) MJ_mas = Array(13,0,0,0,0,0,0,0,0,0,0,0,0,0,6.8283) MG_mas = Array(13,"A","B","B","B","B","B","B","B","B","B","B","B","B",6.8283) MX_DosPuntos = Array(10,0,0,1.0637,1.0637,0,0,0,1.0637,1.0637,0,1.0637) MY_DosPuntos = Array(10,0.5317,1.7588,1.7588,0.5316,0.5316,5.6069,6.834,6.834,5.6068,5.6068,1.0637) MI_DosPuntos = Array(10,0,0,0,0,0,0,0,0,0,0,1.0637) MJ_DosPuntos = Array(10,0,0,0,0,0,0,0,0,0,0,1.0637) MG_DosPuntos = Array(10,"A","B","B","B","B","A","B","B","B","B",1.0637) MX_Comillas = Array(10,0,0,0.5556,0.5556,0,1.2975,1.2975,1.8531,1.8531,1.2974,1.8531) MY_Comillas = Array(10,7.5912,9.9999,9.9999,7.5911,7.5911,7.5911,9.9998,9.9998,7.591,7.591,1.8531) MI_Comillas = Array(10,0,0,0,0,0,0,0,0,0,0,1.8531) MJ_Comillas = Array(10,0,0,0,0,0,0,0,0,0,0,1.8531) MG_Comillas = Array(10,"A","B","B","B","B","A","B","B","B","B",1.8531) MX_IntCierra = Array(21,1.9859,1.9859,3.166,3.166,1.9858,1.9858,2.4492,3.3693,4.1994,3.2559,1.5756,0.9888,0.1186,0.3652,0.8819,4.8725,5.4125,4.0422,3.302,3.1653,1.9851,6) MY_IntCierra = Array(21,0,1.3601,1.3601,0,0,2.5404,4.7107,5.7408,7.311,8.7112,8.4644,6.7141,6.6907,8.7977,9.3811,9.0377,6.864,5.0937,4.1501,2.5432,2.5432,6) MI_IntCierra = Array(21,0,0,0,0,0,0,5.7266,5.2259,2.2057,2.7421,2.6384,2.5738,0.4222,2.5935,2.1641,2.6909,3.1378,2.6652,4.7911,7.6167,0,6) MJ_IntCierra = Array(21,0,0,0,0,0,0,2.8754,3.1567,7.3598,7.347,7.0722,7.1564,11.5921,7.4687,7.7257,7.0451,7.4537,7.574,3.7447,2.9741,0,6) MG_IntCierra = Array(21,"A","B","B","B","B","A","C","C","D","D","D","D","C","C","C","C","C","C","D","D","B",6) MX_IntAbre = Array(22,5.681,3.6951,3.6951,2.515,2.515,3.6952,3.6952,3.2318,2.3117,1.4816,2.4251,4.1054,4.6922,5.5624,5.3158,4.7991,0.8085,0.2685,1.6388,2.379,2.5157,3.6959,6) MY_IntAbre = Array(22,9.3810,9.3810,8.0209,8.0209,9.3810,9.3810,6.8406,4.6703,3.6402,2.0700,0.6698,0.9166,2.6669,2.6903,0.5833,-0.0001,0.3433,2.5170,4.2873,5.2309,6.8378,6.8378 ,6) MI_IntAbre = Array(22,0,0,0,0,0,0,0,-0.0455,0.4551,3.4753,2.9389,3.0426,3.1072,5.2588,3.0875,3.5169,2.9901,2.5432,3.0158,0.8899,-1.9357,0,6) MJ_IntAbre = Array(22,0,0,0,0,0,0,0,6.5056,6.2243,2.0212,2.034,2.3088,2.2246,-2.2111,1.9123,1.6553,2.3359,1.9273,1.807,5.6363,6.4069,0,6) MG_IntAbre = Array(22,"A","A","B","B","B","B","A","C","C","D","D","D","D","C","C","C","C","C","C","D","D","B",6) MX_coma = Array(11,0,0.8949,0.8949,0.7917,0.5022,-0.0001,-0.0001,0.3825,0.4823,-0.0001,-0.0001,0.8949) MY_coma = Array(11,0.9615,0.9615,-0.0032,-0.7185,-1.2175,-1.4504,-1.0811,-0.7218,0.0001,0.0001,0.9616,0.8949) MI_coma = Array(11,0,0,0,-1.8789,-0.3231,-0.059,0,-0.1628,-1.2619,0,0,0.8949) MJ_coma = Array(11,0,0,0,0.0308,-0.4055,-0.6655,0,-0.5251,-0.1268,0,0,0.8949) MG_coma = Array(11,"A","B","B","C","C","C","B","D","D","B","B",0.8949) MX_Punto = Array(5,0,0,0.8849,0.8849,0,0.8849) MY_Punto = Array(5,0,1.0214,1.0214,0,0,0.8849) MI_Punto = Array(5,0,0,0,0,0,0.8849) MJ_Punto = Array(5,0,0,0,0,0,0.8849) MG_Punto = Array(5,"A","B","B","B","B",0.8849) MX_PuntoComa = Array(16,0,0,1.147,1.147,0.9508,0.5185,-0.0001,-0.0001,0.5783,0.6182,-0.0001,-0.0001,-0.0001,1.1469,1.1469,-0.0001,1.147) MY_PuntoComa = Array(16,0.0032,1.2401,1.2401,0.0033,-1.1603,-1.6656,-1.8551,-1.2367,-0.698,0.0001,0.0001,5.4828,6.8093,6.8093,5.4827,5.4827,1.147) MI_PuntoComa = Array(16,0,0,0,0,-2.1771,0.0677,-0.3653,0,-0.1657,-0.8965,0,0,0,0,0,0,1.147) MJ_PuntoComa = Array(16,0,0,0,0,-0.0347,-0.8433,-0.0526,0,-0.4797,-0.264,0,0,0,0,0,0,1.147) MG_PuntoComa = Array(16,"A","B","B","B","C","C","C","B","D","D","B","A","B","B","B","B",1.147) MX_Slash = Array(5,-1.3472,6.2028,7.1169,-0.4331,-1.3472,7.1169) MY_Slash = Array(5,-0.888,10.8924,10.5487,-1.2317,-0.888,7.1169) MI_Slash = Array(5,0,0,0,0,0,7.1169) MJ_Slash = Array(5,0,0,0,0,0,7.1169) MG_Slash = Array(5,"A","B","B","B","B",7.1169) MX_BackSlash = Array(5,6.3417,-1.3418,-0.4109,7.2726,6.3417,7.2726) MY_BackSlash = Array(5,-1.1716,10.8191,11.1693,-0.8214,-1.1716,7.2726) MI_BackSlash = Array(5,0,0,0,0,0,7.2726) MJ_BackSlash = Array(5,0,0,0,0,0,7.2726) MG_BackSlash = Array(5,"A","B","B","B","B",7.2726) MX_Migual = Array(10,0,0,6.9595,6.9595,0,0,0,6.9595,6.9595,0,6.9595) MY_Migual = Array(10,3.7427,4.4799,4.4799,3.7426,3.7426,6.118,6.8552,6.8552,6.1179,6.1179,6.9595) MI_Migual = Array(10,0,0,0,0,0,0,0,0,0,0,6.9595) MJ_Migual = Array(10,0,0,0,0,0,0,0,0,0,0,6.9595) MG_Migual = Array(10,"A","B","B","B","B","A","B","B","B","B",6.9595) MX_menos = Array(5,0,0,5.6617,5.6617,0,5.7077) MY_menos = Array(5,4.7803,5.7077,5.7077,4.7802,4.7802,5.7077) MI_menos = Array(5,0,0,0,0,0,5.7077) MJ_menos = Array(5,0,0,0,0,0,5.7077) MG_menos = Array(5,"A","B","B","B","B",5.7077) MX_1 = Array(10,2.3533,2.3533,0,0,1.0066,2.4032,2.7465,3.6298,3.6298,2.3564,3.6298) MY_1 = Array(10,0,7.06,7.06,8.0399,8.1232,9.1298,9.9997,9.9997,-0.0002,-0.0002,3.6298) MI_1 = Array(10,0,0,0,0,-0.3225,0.7647,-2.9276,0,0,0,3.6298) MJ_1 = Array(10,0,0,0,0,18.0589,9.9302,11.7358,0,0,0,3.6298) MG_1 = Array(10,"A","B","B","B","D","D","D","B","B","B",3.6298) MX_2 = Array(18,6.8303,0.0141,0.6707,2.1239,4.2437,5.2936,4.7969,1.9604,1.617,0.3071,0.7603,6.5698,5.8865,4.1299,2.4433,1.5733,6.8328,6.8328,6.8328) MY_2 = Array(18,0.0033,0.0033,2.4197,3.7863,4.9728,6.1361,8.1691,7.8958,6.5458,6.3324,8.5823,8.2756,4.5825,3.4892,2.5992,1.266,1.266,-0.0006,6.8328) MI_2 = Array(18,0,0,3.6208,4.8087,15.8756,3.2822,3.5619,3.5045,3.3884,0,2.9567,3.5644,4.0839,0.4822,12.358,3.3602,0,0,6.8328) MJ_2 = Array(18,0,0,0.3203,-0.5243,-18.2937,6.8958,6.7901,6.7271,6.8148,0,6.9684,6.5233,6.8266,11.3075,-14.1468,1.0512,0,0,6.8328) MG_2 = Array(18,"A","B","C","C","C","D","D","D","D","B","C","C","C","C","D","D","B","B",6.8328) MX_3 = Array(21,0,1.1695,3.1255,5.1048,4.8982,3.0321,3.0321,3.7851,4.898,3.4951,1.3991,0.2861,0.546,2.342,5.6575,6.2106,4.991,6.4171,6.3937,3.388,-0.0008,6.4171) MY_3 = Array(21,3.2004,3.2004,1.3843,2.3972,4.3765,5.0661,5.8025,5.8357,7.5984,8.7513,6.8485,6.8485,8.2446,9.8341,9.0743,6.7484,5.4354,4.3524,1.7299,0.0039,3.1994,6.4171) MI_3 = Array(21,0,0,3.4419,3.3899,3.5303,3.3637,0,3.2341,3.5956,3.312,3.2871,0,3.0637,3.3005,3.3735,4.1069,4.1116,4.6252,3.7923,3.5608,3.5837,6.4171) MJ_3 = Array(21,0,0,3.6864,3.3073,3.2332,3.0945,0,9.7685,7.1877,7.0994,6.8753,0,7.0535,6.9416,6.7221,7.4773,7.4744,3.4734,3.0654,3.1829,3.6059,6.4171) MG_3 = Array(21,"A","B","D","D","D","D","B","D","D","D","D","B","C","C","C","C","C","C","C","C","C",6.4171) MX_4 = Array(16,4.5451,4.5451,0,0,4.4418,5.8546,5.8546,7.2674,7.2674,5.8545,5.8545,4.5416,4.5416,4.5416,1.5126,4.5416,7.2674) MY_4 = Array(16,0,2.5258,2.5258,3.7387,9.9998,9.9998,3.8419,3.8419,2.5289,2.5289,0.0031,0.0031,3.8418,8.0836,3.8417,3.8417,7.2674) MI_4 = Array(16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7.2674) MJ_4 = Array(16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7.2674) MG_4 = Array(16,"A","B","B","B","B","B","B","B","B","B","B","B","A","B","B","B",7.2674) MX_5 = Array(17,0,1.2597,3.6292,5.2655,3.9224,1.3362,0.1731,0.9496,6.1851,6.1851,1.9193,1.5327,3.059,5.6984,6.0616,1.5225,-0.0005,7) MY_5 = Array(17,2.5582,2.5582,1.2218,2.7015,5.5441,4.8609,4.9574,9.9996,9.9996,8.7398,8.7398,6.3136,6.8134,5.9269,1.3977,0.4313,2.5541,7) MI_5 = Array(17,0,0,3.1756,3.1193,3.1242,3.1088,0,0,0,0,0,0,3.4861,3.4212,3.3659,3.2274,2.956,7) MJ_5 = Array(17,0,0,3.1862,3.4298,3.4275,3.3881,0,0,0,0,0,0,2.9296,3.5194,3.4609,3.5657,3.0673,7) MG_5 = Array(17,"A","B","D","D","D","D","B","B","B","B","B","B","C","C","C","C","C",7) MX_6 = Array(20,6.6007,5.5435,4.3562,1.9584,1.154,3.4896,6.8752,5.3823,2.7564,1.5674,0.1671,0.487,1.53,5.582,6.6,5.4686,4.9683,2.5093,2.4633,5.4651,6.8752) MY_6 = Array(20,8.4108,7.9971,8.7242,7.8362,5.0785,6.5782,3.6457,0.5052,0.16,0.8499,3.229,7.5843,9.1272,9.487,8.4104,4.0353,1.7919,1.562,4.9171,4.0351,6.8752) MI_6 = Array(20,0,0,3.7708,3.7992,5.6182,3.5893,3.6096,3.5698,3.7083,3.7762,4.6786,7.2989,4.4848,3.7834,3.8177,0,3.3034,3.61,3.7585,3.6477,6.8752) MJ_6 = Array(20,0,0,6.4361,6.5472,5.2732,3.8545,3.2972,3.2927,3.0782,3.287,4.2819,4.894,6.0063,6.7472,6.799,0,3.3413,3.0549,3.257,3.3991,6.8752) MG_6 = Array(20,"A","B","D","D","D","C","C","C","C","C","C","C","C","C","C","A","C","C","C","C",6.8752) MX_7 = Array(12,1.3995,2.3091,3.8652,5.4979,-0.0002,-0.0002,6.8975,6.8975,5.7412,3.0421,2.7988,1.3992,6.8975) MY_7 = Array(12,0.0033,4.1452,6.8443,8.7003,8.7003,9.9997,9.9997,8.7002,7.3906,1.7391,-0.0003,-0.0003,6.8975) MI_7 = Array(12,0,13.8292,12.9823,19.4075,0,0,0,0,30.3581,15.4348,18.4014,0,6.8975) MJ_7 = Array(12,0,-0.5557,-0.2098,-5.1817,0,0,0,0,-13.1788,-0.7083,-1.2949,0,6.8975) MG_7 = Array(12,"A","C","C","C","B","B","B","B","D","D","D","B",6.8975) MX_8 = Array(38,1.9908,0.9325,0.3468,0.5883,1.336,5.2799,6.0739,6.1632,5.5974,4.9092,5.9604,6.6194,6.5057,5.6648,1.3697,0.5288,0.347,1.029,1.9901,3.1685,4.3674,4.8228,4.8228,4.4059,2.2221,1.6629,1.7765,2.231,3.1682,4.6736,5.1397,5.2306,4.8215,2.0398,1.6626,1.6989,2.1624,4.6666,6.6194) MY_8 = Array(38,5.5148,5.8982,7.0066,8.8231,9.5476,9.5476,8.6409,6.874,5.8979,5.5041,5.2044,4.6135,0.9547,0.2956,0.3183,0.9773,4.5224,5.2394,5.514,6.0994,6.1585,6.5526,8.455,8.8321,8.8155,8.2716,6.5444,6.158,6.0955,4.5768,4.1581,1.8855,1.4082,1.4267,1.8399,4.1927,4.5896,4.5764,6.6194) MI_8 = Array(38,0,1.84,2.6569,2.9548,2.0596,3.3079,4.6068,2.9022,4.3452,4.3647,3.3469,5.5535,3.1276,5.2735,3.5561,1.7863,3.8446,1.7285,2.1858,0,3.5784,4.2422,2.2,4.2585,3.3456,2.4304,4.0381,2.4097,2.8588,0,4.5633,0.7617,4.5863,3.4544,2.276,5.45,2.2582,3.3759,6.6194) MJ_8 = Array(38,0,6.7508,7.5172,7.5836,8.0531,5.4736,8.1576,7.5949,7.275,7.2539,-1.9689,4.0884,2.8915,1.6607,7.6506,1.7153,2.9243,3.8914,3.0104,0,9.9714,6.7625,7.5036,8.251,4.6451,8.0425,7.5606,6.8284,8.513,0,3.9858,2.8451,2.0235,4.9852,2.0207,2.9579,4.0087,-2.7744,6.6194) MG_8 = Array(38,"A","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","A","C","C","C","C","C","C","C","C",6.6194) MX_9 = Array(22,0.0327,1.1925,1.7157,3.0183,4.4699,5.2994,5.4606,3.6852,0.7856,0.2623,6.2208,6.6816,6.5894,5.852,4.216,1.9348,0.032,2.9948,5.2844,3.0147,1.3016,2.9946,6.6816) MY_9 = Array(22,2.2979,2.2979,1.5512,1.0517,1.5355,2.9871,4.5539,3.6473,4.6737,8.0065,8.2864,6.6734,3.724,1.4658,0.1063,0.1523,2.2936,4.7132,6.2229,8.8492,5.9729,4.7131,6.6816) MI_9 = Array(22,0,0,2.6522,3.1998,3.1663,2.7885,-4.0117,3.0108,3.1115,3.2734,3.3068,2.568,-7.3885,0.0021,3.3431,3.1424,2.9772,0,3.3215,3.2209,3.2163,3.2187,6.6816) MJ_9 = Array(22,0,0,2.7639,3.4732,3.0267,3.4585,4.7371,7.1589,6.6343,6.7717,6.7585,6.3714,5.6374,4.625,2.8208,3.4443,2.9943,0,6.7082,6.7329,6.7812,6.7809,6.6816) MG_9 = Array(22,"A","B","D","D","D","D","D","C","C","C","C","C","C","C","C","C","C","A","D","D","D","D",6.6816) MX_0 = Array(28,3.5806,1.9174,1.0441,0.4808,0.6674,1.1106,2.3471,5.0734,6.1932,6.5898,6.5431,5.9031,5.0298,3.5832,3.5832,4.6797,5.2396,5.5195,5.3561,5.0061,4.4461,2.6529,2.0229,1.6962,1.5562,1.6961,2.0694,3.5859,6.5898) MY_0 = Array(28,0,0.3932,1.0731,2.0595,8.2355,9.0054,9.8452,9.6819,8.7487,7.8387,2.1992,1.0727,0.3927,-0.0005,0.9893,1.4325,2.319,3.5321,7.425,8.3349,8.8482,8.8482,8.2882,7.5182,2.902,2.2954,1.6188,0.9888,6.5898) MI_0 = Array(28,0,3.6418,3.0551,3.509,8.5041,4.0593,2.9511,3.4684,4.1737,3.4914,-3.8762,3.9666,3.1854,3.5308,0,3.5728,3.1914,-1.2732,-5.3937,2.1176,3.9363,3.5495,3.2465,4.5149,11.6217,11.667,3.2234,3.5221,6.5898) MJ_0 = Array(28,0,3.972,2.7542,3.1341,4.9075,6.7955,7.6264,5.7252,7.4639,7.0297,5.1057,2.9172,3.6617,3.0497,0,2.5923,2.9925,4.46,5.0241,6.702,7.7309,6.8822,7.5462,6.7772,4.9072,4.916,2.6964,2.9758,6.5898) MG_0 = Array(28,"A","C","C","C","C","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","D","D","D","D",6.5898) MX_Asterisco = Array(16,1.3429,2.2288,3.1621,3.9812,2.8086,4.505,4.1924,2.5844,2.7396,1.7524,1.8882,0.3147,0,1.6705,0.5389,1.3429,4.505) MY_Asterisco = Array(16,5.9125 ,7.3804 ,5.9125 ,6.4923 ,7.7813 ,8.1650 ,9.1328 ,8.4743 ,10.1696 ,10.1696 ,8.4711 ,9.1328 ,8.1650 ,7.7813 ,6.4923 ,5.9125 ,4.505) MI_Asterisco = Array(16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.505) MJ_Asterisco = Array(16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.505) MG_Asterisco = Array(16,"A","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",4.505) MX_Grado = Array(4,0,0,0.7363,0.7363,4.505) MY_Grado = Array(4,8.2792 ,8.2792,8.2792 ,8.2792,4.505) MI_Grado = Array(4,0,1.8897,0,1.8897,4.505) MJ_Grado = Array(4,0,8.2792,0,8.2792,4.505) MG_Grado = Array(4,"A","C","A","C",4.505) MX_espacio = Array(0,8) MY_espacio = Array(0,8) MI_espacio = Array(0,8) MJ_espacio = Array(0,8) MG_espacio = Array(0,8) MX_Diam = Array(33,1.4652,2.4545,2.8084,6.4656,6.4656,4.8184,5.3437,4.3616,3.9151,3.9151,0.2554,0.2554,1.9005,1.4652,2.1976,3.6377,1.4634,1.4634,1.4634,1.4634,1.4634,1.4634,2.1976,3.0851,5.2576,5.2576,5.2576,4.5220,4.5220,3.0851,3.0851,5.2576,5.2576,6.4656) MY_Diam = Array(33,-0.0071,-0.0071,1.2597,3.2736,6.7264,8.4542,10.3343,10.3343,8.7399,8.7399,6.7264,3.2736,1.5468,-0.0071,2.6079,7.7496,6.3610,6.3610,6.3610,3.6390,3.6390,3.6390,2.6079,2.2501,3.6390,3.6390,6.3610,7.3931,7.3931,2.2501,2.2501,6.3610,6.3610,6.4656) MI_Diam = Array(33,0,0,0,3.3605,0.759,3.3605,0,0,0,0,3.3605,5.962,3.3605,0,0,0,3.3605,0,0,5.962,0,0,3.3605,0,3.3605,0,0.759,3.3605,0,0,0,0,0,6.4656) MJ_Diam = Array(33,0,0,0,4.5847,5,5.4153,0,0,0,0,5.4153,5,4.5847,0,0,0,5.787,0,0,5,0,0,4.213,0,4.213,0,5,5.787,0,0,0,0,0,6.4656) MG_Diam = Array(33,"A","B","B","D","D","D","B","B","B","B","D","D","D","B","A","B","D","B","B","D","B","B","D","A","D","B","D","D","B","B","B","A","B",6.4656) MX_Mayor = Array(8,6.618,0,0,6.618,6.618,1.369,6.618,6.618,6.618) MY_Mayor = Array(8,8.479,5.682,4.536,1.706,2.927,5.103,7.258,8.479,6.618) MI_Mayor = Array(8,0,0,0,0,0,0,0,0,6.618) MJ_Mayor = Array(8,0,0,0,0,0,0,0,0,6.618) MG_Mayor = Array(8,"A","B","B","B","B","B","B","B",6.618) MX_Menor = Array(8,0,0,5.24,0,0,6.618,6.618,0,6.618) MY_Menor = Array(8,8.479,7.258,5.103,2.927,1.706,4.536,5.682,8.479,6.618) MI_Menor = Array(8,0,0,0,0,0,0,0,0,6.618) MJ_Menor = Array(8,0,0,0,0,0,0,0,0,6.618) MG_Menor = Array(8,"A","B","B","B","B","B","B","B",6.618) MX_Vertical = Array(6,0,0,1.069,1.069,0,0,1.069) MY_Vertical = Array(6,-2.775,12.775,12.775,-2.775,-2.775,-2.775,1.069) MI_Vertical = Array(6,0,0,0,0,0,0,1.069) MJ_Vertical = Array(6,0,0,0,0,0,0,1.069) MG_Vertical = Array(6,"A","B","B","B","B","B",1.069) '=== Ingresos === XPOS = GetOEMDRO(1072) YPOS = GetOEMDRO(1073) Top_Mat = GetOEMDRO(1077) Depth = Abs(GetOEMDRO(1075)) Rapid_dis = GetOEMDRO(1079) Feed = Abs(GetOEMDRO(1070)) Porcentaje = GetOEMDRO(1082) Height = Abs(GetOEMDRO(1081)) RPM =GetOEMDRO (1083) ToolNum =GetOEMDRO (1084) '=== Comprobaciones === While Feed <= 0 Feed=Question ("FeedRtae can't be zero or negative, Input a right Value:") Call SetUserDRO(1070, Feed) Wend While Porcentaje <= 0 Porcentaje=Question ("% Separation can't be zero or negative, Input a right Value:") Call SetUserDRO(1082, Porcentaje) Wend While Height = 0 Height= Question ("Height can't be zero,Input a right Value:") Call SetUserDRO(1081, Height) Wend While Rapid_dis < Top_Mat Rapid_dis=Question ("Rapid Height must be > Top Material, Input a right Value:") Call SetUserDRO(1079, Rapid_dis) Wend '=== Escala y Direccion === Escala = Height / 10 If GetUserLED(1050) Then '0° If GetUserLED(1041) Then X1 = -1*Escala X2 = 0 Y1 = 0 Y2 = Escala Else X1 = Escala X2 = 0 Y1 = 0 Y2 = Escala End If End If If GetUserLED(1051) Then '90° If GetUserLED(1041) Then X1 = 0 X2 = -1*Escala Y1 = -1*Escala Y2 = 0 Else X1 = 0 X2 = -1 * Escala Y1 = Escala Y2 = 0 End If End If If GetUserLED(1052) Then '180° If GetUserLED(1041) Then X1 = Escala X2 = 0 Y1 = 0 Y2 = -1*Escala Else X1 = -1 * Escala X2 = 0 Y1 = 0 Y2 = -1 * Escala End If End If If GetUserLED(1053) Then '270° If GetUserLED(1041) Then X1 = 0 X2 = Escala Y1 = Escala Y2 = 0 Else X1 = 0 X2 = Escala Y1 = -1 * Escala Y2 = 0 End If End If If GetUserLED(1041) Then GG="G03" GM="G02" else GG="G02" GM="G03" end If '=== GCode === OpenTeachFile "write.tap" IF GetOEMLED(73)=0 Then IJ=0 Else IJ=1 SetIJMode( 0 ) End If Code "G00 G49 G40 G17 G80 G50 G90 " If GetUserLED (1059) then Code"M6 T"&ToolNum End if If GetUserLED(1055)then Code "G20" Else Code"G21" End if IF GetUserLED(1056) Then Code"M03 S"& RPM Else Code "M04 S"& RPM End if IF GetUserLED(1058) Then Code"M08" End if If GetUserLED (1059) then Code "G00 G43 H"&ToolNum End if Corte = Top_Mat - Depth Code "G00 Z" & Rapid_dis Code "G00 G90 X" & XPOS & "Y" & YPOS Code "F" & Feed '=== Detecta Letra === Total = GetVar(1500) For J = 1 To Total Codigo = GetVar(1500 + J) Total = 0 '=== Escribe === Select Case Codigo Case 21 'A LetraG = MG_AA LetraX = MX_AA LetraY = MY_AA LetraI = MI_AA LetraJ = MJ_AA Case 35 'B LetraG = MG_BB LetraX = MX_BB LetraY = MY_BB LetraI = MI_BB LetraJ = MJ_BB Case 33 'C LetraG = MG_CC LetraX = MX_CC LetraY = MY_CC LetraI = MI_CC LetraJ = MJ_CC Case 23 'D LetraG = MG_DD LetraX = MX_DD LetraY = MY_DD LetraI = MI_DD LetraJ = MJ_DD Case 13 'E LetraG = MG_EE LetraX = MX_EE LetraY = MY_EE LetraI = MI_EE LetraJ = MJ_EE Case 24 'F LetraG = MG_FF LetraX = MX_FF LetraY = MY_FF LetraI = MI_FF LetraJ = MJ_FF Case 25 'G LetraG = MG_GG LetraX = MX_GG LetraY = MY_GG LetraI = MI_GG LetraJ = MJ_GG Case 26 'H LetraG = MG_HH LetraX = MX_HH LetraY = MY_HH LetraI = MI_HH LetraJ = MJ_HH Case 18 'I LetraG = MG_II LetraX = MX_II LetraY = MY_II LetraI = MI_II LetraJ = MJ_II Case 27 'J LetraG = MG_JJ LetraX = MX_JJ LetraY = MY_JJ LetraI = MI_JJ LetraJ = MJ_JJ Case 28 'K LetraG = MG_KK LetraX = MX_KK LetraY = MY_KK LetraI = MI_KK LetraJ = MJ_KK Case 29 'L LetraG = MG_LL LetraX = MX_LL LetraY = MY_LL LetraI = MI_LL LetraJ = MJ_LL Case 37 'M LetraG = MG_MM LetraX = MX_MM LetraY = MY_MM LetraI = MI_MM LetraJ = MJ_MM Case 36 'N LetraG = MG_NN LetraX = MX_NN LetraY = MY_NN LetraI = MI_NN LetraJ = MJ_NN Case 30 'Ñ LetraG = MG_ENNE LetraX = MX_ENNE LetraY = MY_ENNE LetraI = MI_ENNE LetraJ = MJ_ENNE Case 19 'O LetraG = MG_OO LetraX = MX_OO LetraY = MY_OO LetraI = MI_OO LetraJ = MJ_OO Case 20 'P LetraG = MG_PP LetraX = MX_PP LetraY = MY_PP LetraI = MI_PP LetraJ = MJ_PP Case 11 'Q LetraG = MG_QQ LetraX = MX_QQ LetraY = MY_QQ LetraI = MI_QQ LetraJ = MJ_QQ Case 14 'R LetraG = MG_RR LetraX = MX_RR LetraY = MY_RR LetraI = MI_RR LetraJ = MJ_RR Case 22 'S LetraG = MG_SS LetraX = MX_SS LetraY = MY_SS LetraI = MI_SS LetraJ = MJ_SS Case 15 'T LetraG = MG_TT LetraX = MX_TT LetraY = MY_TT LetraI = MI_TT LetraJ = MJ_TT Case 17 'U LetraG = MG_UU LetraX = MX_UU LetraY = MY_UU LetraI = MI_UU LetraJ = MJ_UU Case 34 'V LetraG = MG_VV LetraX = MX_VV LetraY = MY_VV LetraI = MI_VV LetraJ = MJ_VV Case 12 'W LetraG = MG_WW LetraX = MX_WW LetraY = MY_WW LetraI = MI_WW LetraJ = MJ_WW Case 32 'X LetraG = MG_XX LetraX = MX_XX LetraY = MY_XX LetraI = MI_XX LetraJ = MJ_XX Case 16 'Y LetraG = MG_YY LetraX = MX_YY LetraY = MY_YY LetraI = MI_YY LetraJ = MJ_YY Case 31 'Z LetraG = MG_ZZ LetraX = MX_ZZ LetraY = MY_ZZ LetraI = MI_ZZ LetraJ = MJ_ZZ Case 51 'a LetraG = MG_a LetraX = MX_a LetraY = MY_a LetraI = MI_a LetraJ = MJ_a Case 65 'b LetraG = MG_b LetraX = MX_b LetraY = MY_b LetraI = MI_b LetraJ = MJ_b Case 63 'c LetraG = MG_c LetraX = MX_c LetraY = MY_c LetraI = MI_c LetraJ = MJ_c Case 53 'd LetraG = MG_d LetraX = MX_d LetraY = MY_d LetraI = MI_d LetraJ = MJ_d Case 43 'e LetraG = MG_e LetraX = MX_e LetraY = MY_e LetraI = MI_e LetraJ = MJ_e Case 54 'f LetraG = MG_f LetraX = MX_f LetraY = MY_f LetraI = MI_f LetraJ = MJ_f Case 55 'g LetraG = MG_g LetraX = MX_g LetraY = MY_g LetraI = MI_g LetraJ = MJ_g Case 56 'h LetraG = MG_h LetraX = MX_h LetraY = MY_h LetraI = MI_h LetraJ = MJ_h Case 48 'i LetraG = MG_i LetraX = MX_i LetraY = MY_i LetraI = MI_i LetraJ = MJ_i Case 57 'j LetraG = MG_j LetraX = MX_j LetraY = MY_j LetraI = MI_j LetraJ = MJ_j Case 58 'k LetraG = MG_k LetraX = MX_k LetraY = MY_k LetraI = MI_k LetraJ = MJ_k Case 59 'l LetraG = MG_l LetraX = MX_l LetraY = MY_l LetraI = MI_l LetraJ = MJ_l Case 67 'm LetraG = MG_m LetraX = MX_m LetraY = MY_m LetraI = MI_m LetraJ = MJ_m Case 66 'n LetraG = MG_n LetraX = MX_n LetraY = MY_n LetraI = MI_n LetraJ = MJ_n Case 60 'ñ LetraG = MG_enneMin LetraX = MX_enneMin LetraY = MY_enneMin LetraI = MI_enneMin LetraJ = MJ_enneMin Case 49 'o LetraG = MG_o LetraX = MX_o LetraY = MY_o LetraI = MI_o LetraJ = MJ_o Case 50 'p LetraG = MG_p LetraX = MX_p LetraY = MY_p LetraI = MI_p LetraJ = MJ_p Case 41 'q LetraG = MG_q LetraX = MX_q LetraY = MY_q LetraI = MI_q LetraJ = MJ_q Case 44 'r LetraG = MG_r LetraX = MX_r LetraY = MY_r LetraI = MI_r LetraJ = MJ_r Case 52 's LetraG = MG_s LetraX = MX_s LetraY = MY_s LetraI = MI_s LetraJ = MJ_s Case 45 't LetraG = MG_t LetraX = MX_t LetraY = MY_t LetraI = MI_t LetraJ = MJ_t Case 47 'u LetraG = MG_u LetraX = MX_u LetraY = MY_u LetraI = MI_u LetraJ = MJ_u Case 64 'v LetraG = MG_v LetraX = MX_v LetraY = MY_v LetraI = MI_v LetraJ = MJ_v Case 42 'w LetraG = MG_w LetraX = MX_w LetraY = MY_w LetraI = MI_w LetraJ = MJ_w Case 62 'x LetraG = MG_x LetraX = MX_x LetraY = MY_x LetraI = MI_x LetraJ = MJ_x Case 46 'y LetraG = MG_y LetraX = MX_y LetraY = MY_y LetraI = MI_y LetraJ = MJ_y Case 61 'z LetraG = MG_z LetraX = MX_z LetraY = MY_z LetraI = MI_z LetraJ = MJ_z Case 78 '$ LetraG = MG_peso LetraX = MX_peso LetraY = MY_peso LetraI = MI_peso LetraJ = MJ_peso Case 83 '% LetraG = MG_porcent LetraX = MX_Porcent LetraY = MY_Porcent LetraI = MI_Porcent LetraJ = MJ_Porcent Case 79 '& LetraG = MG_Amberstand LetraX = MX_Amberstand LetraY = MY_Amberstand LetraI = MI_Amberstand LetraJ = MJ_Amberstand Case 80 '( LetraG = MG_AbreParent LetraX = MX_AbreParent LetraY = MY_AbreParent LetraI = MI_AbreParent LetraJ = MJ_AbreParent Case 81 ') LetraG = MG_CierraParent LetraX = MX_CierraParent LetraY = MY_CierraParent LetraI = MI_CierraParent LetraJ = MJ_CierraParent Case 75 '_ LetraG = MG_Bajo LetraX = MX_Bajo LetraY = MY_Bajo LetraI = MI_Bajo LetraJ = MJ_Bajo Case 38 '+ LetraG = MG_mas LetraX = MX_mas LetraY = MY_mas LetraI = MI_mas LetraJ = MJ_mas Case 76 ': LetraG = MG_DosPuntos LetraX = MX_DosPuntos LetraY = MY_DosPuntos LetraI = MI_DosPuntos LetraJ = MJ_DosPuntos Case 82 '" LetraG = MG_Comillas LetraX = MX_Comillas LetraY = MY_Comillas LetraI = MI_Comillas LetraJ = MJ_Comillas Case 70 '? LetraG = MG_IntCierra LetraX = MX_IntCierra LetraY = MY_IntCierra LetraI = MI_IntCierra LetraJ = MJ_IntCierra Case 71 '¿ LetraG = MG_IntAbre LetraX = MX_IntAbre LetraY = MY_IntAbre LetraI = MI_IntAbre LetraJ = MJ_IntAbre Case 68 'coma LetraG = MG_coma LetraX = MX_coma LetraY = MY_coma LetraI = MI_coma LetraJ = MJ_coma Case 69 'Punto LetraG = MG_Punto LetraX = MX_Punto LetraY = MY_Punto LetraI = MI_Punto LetraJ = MJ_Punto Case 77 '; LetraG = MG_PuntoComa LetraX = MX_PuntoComa LetraY = MY_PuntoComa LetraI = MI_PuntoComa LetraJ = MJ_PuntoComa Case 72 '/ LetraG = MG_Slash LetraX = MX_Slash LetraY = MY_Slash LetraI = MI_Slash LetraJ = MJ_Slash Case 73 '\ LetraG = MG_BackSlash LetraX = MX_BackSlash LetraY = MY_BackSlash LetraI = MI_BackSlash LetraJ = MJ_BackSlash Case 74 '= LetraG = MG_Migual LetraX = MX_Migual LetraY = MY_Migual LetraI = MI_Migual LetraJ = MJ_Migual Case 39 '- LetraG = MG_menos LetraX = MX_menos LetraY = MY_menos LetraI = MI_menos LetraJ = MJ_menos Case 1 '1 LetraG = MG_1 LetraX = MX_1 LetraY = MY_1 LetraI = MI_1 LetraJ = MJ_1 Case 2 '2 LetraG = MG_2 LetraX = MX_2 LetraY = MY_2 LetraI = MI_2 LetraJ = MJ_2 Case 3 '3 LetraG = MG_3 LetraX = MX_3 LetraY = MY_3 LetraI = MI_3 LetraJ = MJ_3 Case 4 '4 LetraG = MG_4 LetraX = MX_4 LetraY = MY_4 LetraI = MI_4 LetraJ = MJ_4 Case 5 '5 LetraG = MG_5 LetraX = MX_5 LetraY = MY_5 LetraI = MI_5 LetraJ = MJ_5 Case 6 '6 LetraG = MG_6 LetraX = MX_6 LetraY = MY_6 LetraI = MI_6 LetraJ = MJ_6 Case 7 '7 LetraG = MG_7 LetraX = MX_7 LetraY = MY_7 LetraI = MI_7 LetraJ = MJ_7 Case 8 '8 LetraG = MG_8 LetraX = MX_8 LetraY = MY_8 LetraI = MI_8 LetraJ = MJ_8 Case 9 '9 LetraG = MG_9 LetraX = MX_9 LetraY = MY_9 LetraI = MI_9 LetraJ = MJ_9 Case 10 '0 LetraG = MG_0 LetraX = MX_0 LetraY = MY_0 LetraI = MI_0 LetraJ = MJ_0 Case 84 '* LetraG = MG_Asterisco LetraX = MX_Asterisco LetraY = MY_Asterisco LetraI = MI_Asterisco LetraJ = MJ_Asterisco Case 85 '° LetraG = MG_Grado LetraX = MX_Grado LetraY = MY_Grado LetraI = MI_Grado LetraJ = MJ_Grado Case 40 'spc LetraG = MG_espacio LetraX = MX_espacio LetraY = MY_espacio LetraI = MI_espacio LetraJ = MJ_espacio Case 86 'Diam LetraG = MG_Diam LetraX = MX_Diam LetraY = MY_Diam LetraI = MI_Diam LetraJ = MJ_Diam Case 87 '> LetraG = MG_Mayor LetraX = MX_Mayor LetraY = MY_Mayor LetraI = MI_Mayor LetraJ = MJ_Mayor Case 88 '< LetraG = MG_Menor LetraX = MX_Menor LetraY = MY_Menor LetraI = MI_Menor LetraJ = MJ_Menor Case 89 '| LetraG = MG_Vertical LetraX = MX_Vertical LetraY = MY_Vertical LetraI = MI_Vertical LetraJ = MJ_Vertical End Select Lineas = LetraG(0) GC = "G01" For I = 0 to Lineas-1 G6789 = LetraG( I + 1 ) If G6789 = "A" Then If GC <> "G00" Then Code "G00 Z" & Rapid_dis Else If GC = "G00" Then Code "G00 Z" & Top_Mat Code "G01 Z" & Corte End If End If Select case G6789 Case G6789 = "A" GC = "G00" Case G6789 = "B" GC = "G01" Case G6789 = "C" GC = GG Case G6789 = "D" GC = GM End Select XX = XPOS + LetraX(I + 1) * X1 + LetraY(I + 1) * X2 YY = YPOS + LetraX(I + 1) * Y1 + LetraY(I + 1) * Y2 II = XPOS + LetraI(I + 1) * X1 + LetraJ(I + 1) * X2 JJ = YPOS + LetraI(I + 1) * Y1 + LetraJ(I + 1) * Y2 Code GC & " X" & XX & " Y" & YY & " I" & II & " J" & JJ Next Largo = LetraG( Lineas + 1) '=== Actaliza DRO'S === XPOS = XPOS + ( Largo + 3.268 * Porcentaje / 100) * X1 YPOS = YPOS + ( Largo + 3.268 * Porcentaje / 100) * Y1 Code "G00 Z" & Rapid_dis Next Call SetUserDRO(1072, XPOS) Call SetUserDRO(1073, YPOS) Code "G00 X" & XPOS & " Y" & YPOS ' Restaura IJ Mode If IJ=1 then SetIJMode( 0 ) Code"M30" If GetUserLED(1063) Then SaveWizard() CloseTeachFile() call LoadStandardLayout() call LoadTeachFile()