Charly
Neuling

Offline
Beiträge: 10
|
 |
« Antworten #19 am: 12. März 2008, 10:12:05 » |
|
Die Y-Korrektur werde ich am Nachmitteg ausprobieren, weil ich erst am Nachmittag in der Firma bin.
Hier ein Programm mit der y_KorSw . MODULE RR_Data PROC Data_13783() CONST num Reg_ATyp:=2; CONST num Reg_Durchm:=440; CONST num Rohr_Durchm:=33.7; CONST num Rohr_Ende_Abst:=380; CONST num Rohr_Ende_Länge:=40; CONST num RSZ_Elek_Länge:=132; CONST num RSZ_Elek_Mulde:=15; CONST num Stab_01_Data{10}:=[1,40,375,45,125,1,1,6,6,0]; CONST num Stab_01_WAbst{20}:=[45,45,45,45,45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_02_Data{10}:=[2,90,80,45,0,1,1,2,2,0]; CONST num Stab_02_WAbst{20}:=[48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_03_Data{10}:=[1,90,260,45,10,1,1,6,6,0]; CONST num Stab_03_WAbst{20}:=[45,45,45,45,45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_04_Data{10}:=[1,180,260,45,10,1,1,6,6,0]; CONST num Stab_04_WAbst{20}:=[45,45,45,45,45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_05_Data{10}:=[2,185,80,45,0,1,1,2,2,0]; CONST num Stab_05_WAbst{20}:=[45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_06_Data{10}:=[3,215,320,0,0,1,0,0,0,0]; CONST num Stab_06_WAbst{20}:=[324,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_07_Data{10}:=[2,270,80,45,0,1,1,2,2,0]; CONST num Stab_07_WAbst{20}:=[45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_08_Data{10}:=[1,270,262,45,10,1,1,6,6,0]; CONST num Stab_08_WAbst{20}:=[45,45,45,45,45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_09_Data{10}:=[0,0,0,0,0,0,0,0,0,0]; CONST num Stab_09_WAbst{20}:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_10_Data{10}:=[0,0,0,0,0,0,0,0,0,0]; CONST num Stab_10_WAbst{20}:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_11_Data{10}:=[0,0,0,0,0,0,0,0,0,0]; CONST num Stab_11_WAbst{20}:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Stab_12_Data{10}:=[0,0,0,0,0,0,0,0,0,0]; CONST num Stab_12_WAbst{20}:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; CONST num Z_Abst_xBase:=500; CONST num Z_Abst_EA_Oben:=10; CONST num Z_Kor_Sw_x:=4; CONST num Z_Kor_Sw_y:=0; CONST num Z_Kor_Sw_z:=0; CONST num Z_Dreh_SWZ_VorSw:=0; CONST num Z_Dreh_SWZ_Sw:=0; CONST num Z_Kipp_SWZ_Ab:=0; CONST num Z_Kipp_SWZ_Auf:=0;
R_Typ:=Reg_ATyp; R_DM:=Reg_Durchm; R_RoDM:=Rohr_Durchm; R_AnDist:=Rohr_Ende_Abst; R_AnLg:=Rohr_Ende_Länge; SWZ_ELg:=RSZ_Elek_Länge; SWZ_EMulde:=RSZ_Elek_Mulde; x_Base:=Z_Abst_xBase; n_EA_AbOben:=Z_Abst_EA_Oben; x_KorSw:=Z_Kor_Sw_x; y_KorSw:=Z_Kor_Sw_y; z_KorSw:=Z_Kor_Sw_z; Rz_max_VorSw:=Z_Dreh_SWZ_VorSw; Rz_max_Sw:=Z_Dreh_SWZ_Sw; Ry_max_Ab:=Z_Kipp_SWZ_Ab; Ry_max_Auf:=Z_Kipp_SWZ_Auf; AbDat_01:=Stab_01_Data; WdAb_01:=Stab_01_WAbst; AbDat_02:=Stab_02_Data; WdAb_02:=Stab_02_WAbst; AbDat_03:=Stab_03_Data; WdAb_03:=Stab_03_WAbst; AbDat_04:=Stab_04_Data; WdAb_04:=Stab_04_WAbst; AbDat_05:=Stab_05_Data; WdAb_05:=Stab_05_WAbst; AbDat_06:=Stab_06_Data; WdAb_06:=Stab_06_WAbst; AbDat_07:=Stab_07_Data; WdAb_07:=Stab_07_WAbst; AbDat_08:=Stab_08_Data; WdAb_08:=Stab_08_WAbst; AbDat_09:=Stab_09_Data; WdAb_09:=Stab_09_WAbst; AbDat_10:=Stab_10_Data; WdAb_10:=Stab_10_WAbst; AbDat_11:=Stab_11_Data; WdAb_11:=Stab_11_WAbst; AbDat_12:=Stab_12_Data; WdAb_12:=Stab_12_WAbst; ENDPROC
Charly
|