打印本文
關閉窗口
相關標簽:
?
好美主圖
?
?
原理解析：
?
?來源:程序化99（ www.tumamayizhan.com ）
源碼：
?
?
?
DRAWGBK( EMA((EMA(CLOSE,4)+EMA(CLOSE,7)+EMA(CLOSE,14)+EMA(CLOSE,18))/4,2)>REF(EMA((EMA(CLOSE,4)+EMA(CLOSE,7)+EMA(CLOSE,14)+EMA(CLOSE,18))/4,2),1),strip(RGB(220,0,0) ,RGB(40,0,0),2));
DRAWGBK( EMA((EMA(CLOSE,4)+EMA(CLOSE,7)+EMA(CLOSE,14)+EMA(CLOSE,18))/4,2)<REF(EMA((EMA(CLOSE,4)+EMA(CLOSE,7)+EMA(CLOSE,14)+EMA(CLOSE,18))/4,2),1),strip(RGB(0,220,100) ,RGB(0,50,20),2));
{操盤手BS}
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
BU:=cross(買線,賣線);
SEL:=cross(賣線,買線);
drawtext(bu,LOW,'B'),ALIGN1,VALIGN0,colorYELLOW,linethick2;
drawtext(sel,HIGH,'S'),ALIGN1,VALIGN2,colorFFFF00,linethick2;
MA5:ma(c,5),COLORRED,linethick2;
DD5:=MA5<REF(MA5,1);
PARTLINE(MA5,DD5),ColorFFFF00,linethick2;
x:=(3*c+l+o+h)/6;
多空線:(20*x+19*ref(x,1)+18*ref(x,2)+17*ref(x,3)+16*ref(x,4)+15*ref(x,5)+14*ref(x,6)
+13*ref(x,7)+12*ref(x,8)+11*ref(x,9)+10*ref(x,10)+9*ref(x,11)+8*ref(x,12)
+7*ref(x,13)+6*ref(x,14)+5*ref(x,15)+4*ref(x,16)+3*ref(x,17)+2*ref(x,18)+
ref(x,20))/210,coloryellow,linethick2;
DD:=多空線<REF(多空線,1);
PARTLINE(多空線,DD),colorblue,linethick5;
A:=(MA5>多空線);
PARTLINE(多空線,A),COLORYELLOW,POINTDOT;
A1:=(MA5<多空線);
PARTLINE(多空線,A1),COLORWHITE;
STICKLINE((C<=O),C,O,3,0),COLOR998855;
STICKLINE((C<=O),C,O,1.5,0),COLORBBAA77;
STICKLINE((C<=O),C,O,0.8,0),COLORDDCC99;
STICKLINE((C>=O),C,O,3,0),COLORRED;
STICKLINE((C>=O),C,O,1.5,0),COLORFF00FF;
STICKLINE((C>=O),C,O,0.8,0);
DRAWTEXTREL(820,680,'黃金賣點：'+NUMTOSTRN(EMA(c+(h-l)*0.618,3),2 )),LINETHICK2,coloryellow;
DRAWTEXTREL(820,620,'黃金買點：'+NUMTOSTRN(EMA((o+h+l)/3,4),2 )),LINETHICK2,coloryellow;
DRAWTEXTREL(820,750,'昨測今日買點：'+NUMTOSTRN(ref(EMA((o+h+l)/3,4)+((h+l)/2-ref((o+h+l)/3,3))/4,1),2 )),LINETHICK2,colorwhite;
DRAWTEXTREL(820,810,'昨測今日賣點：'+NUMTOSTRN(ref(EMA(c+(h-l)*0.618,3)+(EMA(c+(h-l)*0.618,3)-EMA((o+h+l)/3,4))*0.618,1),2 )),LINETHICK2,colorwhite;
CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2+O)/5;
E:=CDP;
zl:=2*E-REF(L,1);
zc:=2*E-REF(H,1);
fz:=E-(REF(H,1)-REF(L,1));
ZZ:=CDP+(REF(H,1)-REF(L,1));
drawtextabs(10,80,'低吸:'+ numtostrn(zc,3)),ColorFFFFFF;
drawtextabs(10,60,'中價:'+ numtostrn(E,3)),ColorFFFF10;
drawtextabs(10,40,'高拋:'+ numtostrn(zl,3)),COLORGREEN;
drawtextabs(10,20,'追漲:'+ numtostrn(ZZ,3)),Coloryellow;
drawtextabs(10,100,'殺跌:'+ numtostrn(fz,3)),ColorFF77FF;
STICKLINE(DISPSTATUS=2 ,zl,zl,50,9991),COLORGREEN;
STICKLINE(DISPSTATUS=2 ,zc,zc,50,9991),ColorFFFFFF;
STICKLINE(DISPSTATUS=2 ,E,E,50,9991),ColorFFFF10;
STICKLINE(DISPSTATUS=2 ,fz,fz,50,9991),ColorFF77FF;
STICKLINE(DISPSTATUS=2 ,ZZ,ZZ,50,9991),Coloryellow;
N:=20;
均價:=(3*C+H+L+O)/6;
VAR1:=(8*均價+7*REF(均價,1)+6*REF(均價,2)+5*REF(均價,3)+4*REF(均價,4)+3*REF(均價,5)+2*REF(均價,6)+REF(均價,8))/36;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1;
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);;
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);
XD2:=VAR1=VAR2 AND CLOSE>VAR1;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));
量能飽和度:=IF(SAT>1,1,SAT)*100;
IF BARSTATUS=2 AND SZ1 THEN BEGIN
DRAWTEXTABS(320,25,'調整結束短線介入'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ2 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道走勢良好'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ3 THEN BEGIN
DRAWTEXTABS(320,25,'股價偏離注意調整'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ4 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道調整洗盤'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND SZ5 THEN BEGIN
DRAWTEXTABS(320,25,'轉向特征注意離場'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND SZ6 THEN BEGIN
DRAWTEXTABS(320,25,'通道改變堅決離場'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND XD1 THEN BEGIN
DRAWTEXTABS(320,25,'下跌通道只宜觀望'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND XD2 THEN BEGIN
DRAWTEXTABS(320,25,'短期底部準備進入'),COLORYELLOW;
END;
AB1:=COST(0.33);
AB2:=COST(5);
AB3:=COST(15);
AB4:=COST(55);
AB5:=COST(97);
獲利:=WINNER(CLOSE)*100;
套牢:=100-WINNER(CLOSE)*100;
DRAWTEXTABS(520,25,'建倉:'+NUMTOSTRN(AB2,2)),COLOR00FFFF;
DRAWTEXTABS(600,25,'快刀:'+NUMTOSTRN(AB3,2)),COLOR00FFFF;
DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(AB4,2)),COLOR00FFFF;
DRAWTEXTABS(520,40,'獲利:'+NUMTOSTRN(獲利,2)+'%'),COLOR00FFFF;
DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF;
DRAWTEXTABS(675,40,'預測:'+NUMTOSTRN(AB5,2)),COLOR00FFFF;
明日阻力:=2*E-LOW;
明日支撐:=2*E-HIGH;
明日突破:=E+(HIGH-LOW);
明日反轉:=E-(HIGH-LOW);
今日阻力:=REF(明日阻力 , 1);
今日支撐:=REF(明日支撐 , 1);
DRAWTEXTREL(10,600,'今日阻力=：'+NUMTOSTRN(今日阻力,2 )+''),Color00FFFF;
DRAWTEXTREL(10,650,'今日支撐=：'+NUMTOSTRN(今日支撐,2 )+''),Color00FF00;
DRAWTEXTREL(10,700,'明日突破=：'+NUMTOSTRN(明日突破,2 )),ColorFF00FF;
DRAWTEXTREL(10,750,'明日阻力=：'+NUMTOSTRN(明日阻力,2 )),ColorFFFF00;
DRAWTEXTREL(10,800,'明日支撐=：'+NUMTOSTRN(明日支撐,2 )),COLORRED;
DRAWTEXTREL(10,850,'明日反轉=：'+NUMTOSTRN(明日反轉,2 )),COLORGREEN;
PT:= REF(HIGH,1)-REF(LOW,1);
重心:=(HIGH + LOW + CLOSE)/3;
壓力Ⅰ:= 2*重心-LOW;
壓力Ⅱ:= 重心 + PT;
支撐Ⅰ:= 2*重心-HIGH;
支撐Ⅱ:= 重心 - PT;
DRAWTEXTABS(100,13,'《逆勢操作》'),ColorFFFF00;
DRAWTEXTABS(175,13,'重心:'+重心),Color208FFF;
DRAWTEXTABS(100,32,' 支撐'),ColorFFFFFF;
DRAWTEXTABS(100,49,' '+支撐Ⅰ),ColorFFFFFF;
DRAWTEXTABS(100,67,' '+支撐Ⅱ),ColorFFFFFF;
DRAWTEXTABS(100,32,' 壓力'),Color00FF00;
DRAWTEXTABS(100,49,' '+壓力Ⅰ),Color00FF00;
DRAWTEXTABS(100,67,' '+壓力Ⅱ),Color00FF00;
DRAWTEXTABS(100,10,'│'),Color00FFFF;
DRAWTEXTABS(100,22,'│'),Color00FFFF;
DRAWTEXTABS(100,34,'│'),Color00FFFF;
DRAWTEXTABS(100,46,'│'),Color00FFFF;
DRAWTEXTABS(100,58,'│'),Color00FFFF;
DRAWTEXTABS(100,70,'│'),Color00FFFF;
DRAWTEXTABS(243,10,'│'),Color00FFFF;
DRAWTEXTABS(243,22,'│'),Color00FFFF;
DRAWTEXTABS(243,34,'│'),Color00FFFF;
DRAWTEXTABS(243,46,'│'),Color00FFFF;
DRAWTEXTABS(243,58,'│'),Color00FFFF;
DRAWTEXTABS(243,70,'│'),Color00FFFF;
DRAWTEXTABS(171,30,'│'),Color00FFFF;
DRAWTEXTABS(171,34,'│'),Color00FFFF;
DRAWTEXTABS(171,46,'│'),Color00FFFF;
DRAWTEXTABS(171,58,'│'),Color00FFFF;
DRAWTEXTABS(171,70,'│'),Color00FFFF;
DRAWTEXTABS(105,5,'────────────'),Color00FFFF;
DRAWTEXTABS(105,25,'────────────'),Color00FFFF;
DRAWTEXTABS(105,42,'────────────'),Color00FFFF;
DRAWTEXTABS(105,59,'────────────'),Color00FFFF;
DRAWTEXTABS(105,76,'────────────'),Color00FFFF;
{支撐}
VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2222:=CROSS(VAR1111,0.9);
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4444:=CROSS(VAR3333,0.9);
壓力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5;
支撐: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff,linethick3;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff;
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'←b'),CROSSDOT,LINETHICK1,Color00FFFF;
DRAWTEXT(賣１>0,HIGH*1.02,'←s'),CROSSDOT,LINETHICK1,COLORGREEN;
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
qc8:=ZIG(3,13);
買:DRAWTEXT((REF(qc8,2) > REF(qc8,1)) and (qc8 > REF(qc8,1)),LOW - (LOW)*(0.05),'買'),colorred;
賣:DRAWTEXT((REF(qc8,2) < REF(qc8,1)) and (qc8 < REF(qc8,1)),h*1.03{LOW - (LOW)*(0.03)},'賣'),Color66FF00;
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?