|
以下是通达信展翅高飞及选股公式源码（无源码的请下载附件导入）
通达信公式展翅高飞及选股
MAC5:=(ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*180/3.14115926);
M5:=MA(MAC5,5);
AA:=PLOYLINE(CROSS(MAC5,M5),M5);
AAB:=PLOYLINE(CROSS(M5,MAC5),MAC5);
W:COUNT(CROSS(MAC5,M5),AA<REF(AA,5) AND AAB>REF(AAB,5));
STICKLINE(IF(W,-120,0),+1,0,4,0),COLOR000088;
STICKLINE(IF(W,-120,0),+1,0,3,0),COLOR0000AA;
STICKLINE(IF(W,-120,0),+1,0,2,0),COLOR0000CC;
STICKLINE(IF(W,-120,0),+1,0,1.4,0),COLOR0000EE;
STICKLINE(IF(W,-120,0),+1,0,0.9,0),COLOR0000EE;
STICKLINE(IF(W,-120,0),+1,0,0.3,0),COLORLIMAGENTA;
STICKLINE(IF(W,-120,0),+0.9,0,7,0),COLOR770077;
STICKLINE(IF(W,-120,0),+0.9,0,6,0),COLOR990099;
STICKLINE(IF(W,-120,0),+0.9,0,5,0),COLORBB00BB;
STICKLINE(IF(W,-120,0),+0.9,0,4,0),COLORDD00DD;
STICKLINE(IF(W,-120,0),+0.9,0,3,0),COLORFF00FF;
STICKLINE(IF(W,-120,0),+0.9,0,2,0),COLORDD00DD;
STICKLINE(IF(W,-120,0),+0.6,0,7,0),COLOR003300;
STICKLINE(IF(W,-120,0),+0.6,0,6,0),COLOR005500;
STICKLINE(IF(W,-120,0),+0.6,0,5,0),COLOR007700;
STICKLINE(IF(W,-120,0),+0.6,0,3.5,0),COLOR009900;
STICKLINE(IF(W,-120,0),+0.6,0,2,0),COLOR00CC00;
STICKLINE(IF(W,-120,0),+0.3,0,7,0),COLOR666666;
STICKLINE(IF(W,-120,0),+0.3,0,6,0),COLOR777777;
STICKLINE(IF(W,-120,0),+0.3,0,5,0),COLOR888888;
STICKLINE(IF(W,-120,0),+0.3,0,4,0),COLOR999999;
STICKLINE(IF(W,-120,0),+0.3,0,3,0),COLORDDDDDD;
STICKLINE(IF(W,-120,0),+0.3,0,2,0),COLORFFFFFF;
DRAWTEXT(W,0.9,"展"),COLORYELLOW;
DRAWTEXT(W,0.75,"翅"),COLORYELLOW;
DRAWTEXT(W,0.45,"高"),COLORRED;
DRAWTEXT(W,0.15,"飞"),COLORRED;
{
选股公式:
MAC5:=(ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*180/3.14115926);
M5:=MA(MAC5,5);
AA:=PLOYLINE(CROSS(MAC5,M5),M5);
AAB:=PLOYLINE(CROSS(M5,MAC5),MAC5);
展翅高飞:COUNT(CROSS(MAC5,M5),AA<REF(AA,5) AND AAB>REF(AAB,5));
}
71277725.png
|
