大智慧L2版本，早就发布过，可以用搜索找找本网，这次发通达信版本：
A1:=(IF((DATE <= 1091025),1,0)) * (IF((DATE <= 1091025),1,0));
{DRAWGBK((CLOSE > 0),'5');}
A2:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
A3:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;
A4:=EMA((MA(A2,5)),10);
A5:=EMA((MA(A2,15)),10);
A6:=EMA((MA(A2,13)),21);
A7:=((A4 + A5) + A6) / 3;
A8:=(((REF(A7,1)) + A7) + (REF(A7,2))) / 3;
决策线:EMA((MA(CLOSE,5)),3),COLORGREEN;
PLOYLINE(决策线,决策线 > (REF(决策线,3))),COLORRED;
UPR:决策线 + (3 * (STD(决策线,10))),COLOR808000;
DWN:决策线 - (3 * (STD(决策线,10))),COLORA10000;
多空价:A8*A1,LINETHICK,COLOR008E00;
半年线:MA(CLOSE,120),POINTDOT,LINETHICK4,COLORGRAY;
年线:MA(CLOSE,250),CROSSDOT,COLOR717143;
STICKLINE((CLOSE > OPEN),HIGH,LOW,0.0001,1),COLORRED;
STICKLINE((CLOSE > OPEN),OPEN,CLOSE,8,1),COLOR5050FF;
STICKLINE((CLOSE < OPEN),OPEN,CLOSE,8,0),COLORFFFF85;
STICKLINE((CLOSE < OPEN),HIGH,LOW,0.0001,0),COLORCYAN;
A9:=((EMA((MA(A2,3)),3)) + (EMA(A2,5))) / 2;
A10:=REF(A9,1);
A11:=BARSCOUNT(CLOSE);
A12:=IF((A11 = 1),0,(((A9 - A10) / A10) * 100));
A13:=REF(CLOSE,1);
A14:=IF((A11 = 1),0,(((CLOSE - A13) / A13) * 100));
A15:=IF((A11 = 1),((CLOSE + OPEN) / 2),A10);
A16:=REF(A9,2);
A17:=((A9 + A10) + A16) / 3;
A18:=((ABS((A9 - A17)) + ABS((A10 - A17))) + ABS((A16 - A17))) / 3;
A19:=IF((A11 < 3),0,((A18 / A9) * 100));
A20:=IF((((A12 > 0.5) AND ((A19 > 0.215) OR (LOW > A15))) AND (CLOSE >= OPEN)),1,0);
A21:=IF((((A12 < (0 - 0.3)) AND ((A19 > 0.2) OR (HIGH < A15))) AND ((OPEN >= CLOSE) OR (A14 < -1))),1,0);
B:((COUNT(A20,BARSLAST(A21))) = 1) AND A20,LINETHICK0;
D:((COUNT(A21,BARSLAST(A20))) = 1) AND A21,LINETHICK0;
A22:=BARSLAST(B);
A23:=((SUM(D,A22)) = 0) * A22;
A24:=A23 > 0;
A25:=A23 = 0;
STICKLINE(A24,CLOSE,OPEN,8,0),COLORMAGENTA;
STICKLINE(A24,CLOSE,OPEN,7,0),COLORFF28FF;
STICKLINE(A24,CLOSE,OPEN,6,0),COLORFF3DFF;
STICKLINE(A24,CLOSE,OPEN,5,0),COLORFF51FF;
STICKLINE(A24,CLOSE,OPEN,4,0),COLORFF65FF;
STICKLINE(A24,CLOSE,OPEN,3,0),COLORFF7AFF;
STICKLINE(A24,CLOSE,OPEN,2,0),COLORFF8EFF;
STICKLINE(A24,CLOSE,OPEN,1,0),COLORFFA2FF;
STICKLINE(A25,CLOSE,OPEN,8,0),COLORFFFD02;
STICKLINE(A25,CLOSE,OPEN,7,0),COLORF8FF24;
STICKLINE(A25,CLOSE,OPEN,6,0),COLORFDFF4A;
STICKLINE(A25,CLOSE,OPEN,5,0),COLORFCFF69;
STICKLINE(A25,CLOSE,OPEN,4,0),COLORFDFD97;
STICKLINE(A25,CLOSE,OPEN,3,0),COLORFFFFA2;
STICKLINE(A25,CLOSE,OPEN,2,0),COLORFFFFB6;
STICKLINE(A25,CLOSE,OPEN,1,0),COLORFFFFCC;
STICKLINE(B,CLOSE,OPEN,8,0),COLORYELLOW;
STICKLINE(D,CLOSE,OPEN,8,0),COLOR00BE00;
DRAWTEXT(B,(LOW * 0.98),'B'),LINETHICK2,COLORWHITE;
DRAWTEXT(D,(HIGH * 1.035),'Ｓ'),LINETHICK2,COLORGREEN;
PLOYLINE(决策线,决策线 > (REF(决策线,3))),LINETHICK1,COLORRED;
A26:=(((CLOSE / A13) - 1) * 100) >=(7*A1);
A27:=HIGH - ((HIGH - LOW) / 3);
A28:=LOW + ((HIGH - LOW) / 3);
PLOYLINE(多空价,多空价 > (REF(多空价,3))),COLORRED;
BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
附大智慧L2版本源码：
input:N(5,1,111),N1(10,1,111),P(3,0.1,30),M(21,0,100);
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
a1:=(IF((DATE <= 1091025),1,0)) * (IF((CURRENTDATE <= 1091025),1,0));
DRAWGBK((CLOSE > 0),'5');
a2:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a3:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;
a4:=EMA((MA(a2,5)),10);
a5:=EMA((MA(a2,15)),10);
a6:=EMA((MA(a2,13)),21);
a7:=((a4 + a5) + a6) / 3;
a8:=(((REF(a7,1)) + a7) + (REF(a7,2))) / 3;
决策线:EMA((MA(CLOSE,5)),3),colorGreen;
PARTLINE(决策线,决策线 > (REF(决策线,3)),RGB(255,0,0)),linethick1,colorRed;
UPR:决策线 + (3 * (STD(决策线,10))),Color808000;
DWN:决策线 - (3 * (STD(决策线,10))),ColorA10000;
多空价:a8 * a1,linethick2,Color008E00;
半年线:MA(CLOSE,120),POINTDOT,linethick4,colorGray;
年线:MA(CLOSE,250),CROSSDOT,Color717143;
STICKLINE((CLOSE > OPEN),HIGH,LOW,0.0001,1),colorRed;
STICKLINE((CLOSE > OPEN),OPEN,CLOSE,8,1),Color5050FF;
STICKLINE((CLOSE < OPEN),OPEN,CLOSE,8,0),ColorFFFF85;
STICKLINE((CLOSE < OPEN),HIGH,LOW,0.0001,0),colorCyan;
a9:=((EMA((MA(a2,3)),3)) + (WMA(a2,5))) / 2;
a10:=REF(a9,1);
a11:=BARSCOUNT(CLOSE);
a12:=IF((a11 = 1),0,(((a9 - a10) / a10) * 100));
a13:=REF(CLOSE,1);
a14:=IF((a11 = 1),0,(((CLOSE - a13) / a13) * 100));
a15:=IF((a11 = 1),((CLOSE + OPEN) / 2),a10);
a16:=REF(a9,2);
a17:=((a9 + a10) + a16) / 3;
a18:=((ABS((a9 - a17)) + ABS((a10 - a17))) + ABS((a16 - a17))) / 3;
a19:=IF((a11 < 3),0,((a18 / a9) * 100));
a20:=IF((((a12 > 0.5) AND ((a19 > 0.215) OR (LOW > a15))) AND (CLOSE >= OPEN)),1,0);
a21:=IF((((a12 < (0 - 0.3)) AND ((a19 > 0.2) OR (HIGH < a15))) AND ((OPEN >= CLOSE) OR (a14 < -1))),1,0);
B:((COUNT(a20,BARSLAST(a21))) = 1) AND a20,linethick0;
D:((COUNT(a21,BARSLAST(a20))) = 1) AND a21,linethick0;
a22:=BARSLAST(B);
a23:=((SUM(D,a22)) = 0) * a22;
a24:=a23 > 0;
a25:=a23 = 0;
STICKLINE(a24,CLOSE,OPEN,8,0),colorMagenta;
STICKLINE(a24,CLOSE,OPEN,7,0),ColorFF28FF;
STICKLINE(a24,CLOSE,OPEN,6,0),ColorFF3DFF;
STICKLINE(a24,CLOSE,OPEN,5,0),ColorFF51FF;
STICKLINE(a24,CLOSE,OPEN,4,0),ColorFF65FF;
STICKLINE(a24,CLOSE,OPEN,3,0),ColorFF7AFF;
STICKLINE(a24,CLOSE,OPEN,2,0),ColorFF8EFF;
STICKLINE(a24,CLOSE,OPEN,1,0),ColorFFA2FF;
STICKLINE(a25,CLOSE,OPEN,8,0),ColorFFFD02;
STICKLINE(a25,CLOSE,OPEN,7,0),ColorF8FF24;
STICKLINE(a25,CLOSE,OPEN,6,0),ColorFDFF4A;
STICKLINE(a25,CLOSE,OPEN,5,0),ColorFCFF69;
STICKLINE(a25,CLOSE,OPEN,4,0),ColorFDFD97;
STICKLINE(a25,CLOSE,OPEN,3,0),ColorFFFFA2;
STICKLINE(a25,CLOSE,OPEN,2,0),ColorFFFFB6;
STICKLINE(a25,CLOSE,OPEN,1,0),ColorFFFFCC;
STICKLINE(B,CLOSE,OPEN,8,0),colorYellow;
STICKLINE(D,CLOSE,OPEN,8,0),Color00BE00;
DRAWTEXT(B,(LOW * 0.98),'B'),linethick2,ALIGN1,colorWhite;
DRAWTEXT(D,(HIGH * 1.035),'Ｓ'),linethick2,ALIGN1,colorGreen;
PARTLINE(决策线,决策线 > (REF(决策线,3)),RGB(255,0,0)),linethick1,colorRed;
a26:=(((CLOSE / a13) - 1) * 100) >= (7 * a1);
a27:=HIGH - ((HIGH - LOW) / 3);
a28:=LOW + ((HIGH - LOW) / 3);
PARTLINE(多空价,多空价 > (REF(多空价,3)),RGB(255,0,0)),linethick2,colorRed;
DRAWTEXTREL(10,800,'㊣十二星座*神獒赢富㊣'),linethick1,COLOR00EEff;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
