软件名称：[B]点石成金(红绿双线[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2009-01-12 04:58:48
软件简介:

随意移动,精确定位,自动找点,大智慧新一代版点石成金
随意移动,精确定位,自动找点,点石成金
大智慧新一代版“点石成金”,可随意移动,精确定位,主图用设红绿两线,调整参数为零则自动找高低点,增减参
数值可使取点变动.

源码:  (主图) 调整两个参数，可以得到如动画的效果

{点石成金(红绿双线); 参数:绿(0,0,1000),红(0,0,1000)}

高点时区:=PEAKBARS(4,30,1 );
低点时区:=TROUGHBARS(4,30,1 );
eee:=BACKSET(BARSTATUS=2 ,if(绿=0,高点时区+1,绿));
ee:=FILTER(eee ,if(绿=0,高点时区*2,绿+2 ));
VERTLINE(ee,2 ),ALIGN2,COLORFFff00;
s2:=COUNT(eee ,绿 );
bc:=s2;
点石成金H:=IF(close>100,SUM(h*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(H,bc)/SUM(C,BC)){,colorred,LINETHICK2};
点石成金L:=IF(close>100,SUM(l*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(L,bc)/SUM(C,BC)){,colorblue,LINETHICK2};
点石成金:if(ref(h,bc)>ref(h,bc+1) and ref(h,bc)>ref(h,bc-1) ,点石成金h,点石成金l),color00ff00,LINETHICK1;
PARTLINE(点石成金,eee=1 ),color00ff00,LINETHICK2;
DRAWTEXT(BARSTATUS=2,点石成金*1.01,''+点石成金),COLOR00ff00,VALIGN2,ALIGN2;
DRAWTEXT(ee,点石成金*1.01,''+绿),COLOR00ff00,VALIGN2,ALIGN2;
DRAWTEXT(BARSTATUS=2,点石成金*1.01,'________'),COLOR00ff00,VALIGN2,ALIGN2;
eee1:=BACKSET(BARSTATUS=2 ,if(红=0,低点时区+1,红));
ee1:=FILTER(eee1 ,if(红=0,低点时区*2,红+2 ));
VERTLINE(ee1,2 ),ALIGN2,COLORFFdd00;
s21:=COUNT(eee1 ,红 );
bc1:=s21;
点石成金H1:=IF(close>100,SUM(h*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(H,bc1)/SUM(C,BC1));
点石成金L1:=IF(close>100,SUM(l*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(L,bc1)/SUM(C,BC1));
点石成金1:if(ref(h,bc1)>ref(h,bc1+1) and ref(h,bc1)>ref(h,bc1-1) ,点石成金h1,点石成金l1),colorred,LINETHICK1;
PARTLINE(点石成金1,eee1=1 ),colorred,LINETHICK2;
DRAWTEXT(BARSTATUS=2,点石成金1*0.98,''+点石成金1),COLORred,VALIGN0,ALIGN2;
DRAWTEXT(ee1,点石成金1*0.98,''+红),COLORred,VALIGN0,ALIGN2;
DRAWTEXT(BARSTATUS=2,点石成金1*0.98,'________'),COLOR00ff00,VALIGN0,ALIGN2;
 

[url=http://www.70822.com/soft/sort013/sort03/down-5518.html]点石成金(红绿双线[/url]