// 下面是程序,,贴图是 划线的效果;
// 峰值和估值 的数值和位置,都没有错。就是画不出来。
WARNING_DISABLE:1;
WARNING_DISABLE:2;
WARNING_DISABLE:3;
WARNING_DISABLE:4;
//WARNING_DISABLE:5; //禁止在GOTO使用时提示
WARNING_DISABLE:6; //禁止在EXIT使用时提示
变数:=2;
5m振幅均值:=0.243;
//5m振幅均值:=EXTGBDATA('Tx_5m振幅均值');
第1峰值:=PEAK(4,5m振幅均值*变数,1 );
第1峰位置:=PEAKBARS(4,5m振幅均值*变数,1);
第2峰值:=PEAK(4,5m振幅均值*变数,2 );
第2峰位置:=PEAKBARS(4,5m振幅均值*变数,2);
第3峰值:=PEAK(4,5m振幅均值*变数,3 );
第3峰位置:=PEAKBARS(4,5m振幅均值*变数,3);
第4峰值:=PEAK(4,5m振幅均值*变数,4 );
第4峰位置:=PEAKBARS(4,5m振幅均值*变数,4);
第5峰值:=PEAK(4,5m振幅均值*变数,5 );
第5峰位置:=PEAKBARS(4,5m振幅均值*变数,5);
DRAWTEXTEX(1,1 ,551 ,550-50 ,'第1峰值:'+NUMTOSTREX(第1峰值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,600-50 ,'第1峰位置:'+NUMTOSTREX(第1峰位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,650-50 ,'第2峰值:'+NUMTOSTREX(第2峰值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,700-50 ,'第2峰位置:'+NUMTOSTREX(第2峰位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,750-50 ,'第3峰值:'+NUMTOSTREX(第3峰值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,800-50 ,'第3峰位置:'+NUMTOSTREX(第3峰位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,850-50 ,'第4峰值:'+NUMTOSTREX(第4峰值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,900-50 ,'第4峰位置:'+NUMTOSTREX(第4峰位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,950-50 ,'第5峰值:'+NUMTOSTREX(第5峰值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551 ,1000-50 ,'第5峰位置:'+NUMTOSTREX(第5峰位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
第1谷值:=TROUGH(4,5m振幅均值*变数,1 );
第1谷位置:=TROUGHBARS(4,5m振幅均值*变数,1);
第2谷值:=TROUGH(4,5m振幅均值*变数,2 );
第2谷位置:=TROUGHBARS(4,5m振幅均值*变数,2);
第3谷值:=TROUGH(4,5m振幅均值*变数,3 );
第3谷位置:=TROUGHBARS(4,5m振幅均值*变数,3);
第4谷值:=TROUGH(4,5m振幅均值*变数,4 );
第4谷位置:=TROUGHBARS(4,5m振幅均值*变数,4);
第5谷值:=TROUGH(4,5m振幅均值*变数,5 );
第5谷位置:=TROUGHBARS(4,5m振幅均值*变数,5);
DRAWTEXTEX(1,1 ,551-100 ,550-50 ,'第1谷值:'+NUMTOSTREX(第1谷值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,600-50 ,'第1谷位置:'+NUMTOSTREX(第1谷位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,650-50 ,'第2谷值:'+NUMTOSTREX(第2谷值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,700-50 ,'第2谷位置:'+NUMTOSTREX(第2谷位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,750-50 ,'第3谷值:'+NUMTOSTREX(第3谷值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,800-50 ,'第3谷位置:'+NUMTOSTREX(第3谷位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,850-50 ,'第4谷值:'+NUMTOSTREX(第4谷值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,900-50 ,'第4谷位置:'+NUMTOSTREX(第4谷位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,950-50 ,'第5谷值:'+NUMTOSTREX(第5谷值 ,0 ,2 ),COLORRGB(0,155 , 155) );
DRAWTEXTEX(1,1 ,551-100 ,1000-50 ,'第5谷位置:'+NUMTOSTREX(第5谷位置 ,0 ,2 ),COLORRGB(0,155 , 155) );
IF (ISLASTBAR()) THEN
BEGIN
DRAWLINE(第1谷位置 ,第1谷值 ,第1峰位置 ,第1峰值 ,0 );
DRAWLINE(第1峰位置 ,第1峰值 ,第1谷位置 ,第1谷值 ,0 );
DRAWLINE(第1峰位置 ,第1峰值 ,第2谷位置 ,第2谷值 ,0 );
DRAWLINE(第2谷位置 ,第2谷值 ,第2峰位置 ,第2峰值 ,0 );
DRAWLINE(第2峰位置 ,第2峰值 ,第3谷位置 ,第3谷值 ,0 );
//DRAWLINE(40 ,14000 ,50 ,14200 ,0 );
END