LTA:=FINANCE(7)+300000000;
GB:=2*IF(FINANCE(7)<100000000000,FLOOR(ABS((FINANCE(7)/1000000000-1))),FLOOR(ABS((FINANCE(7)/1000000000-1)))/10),NODRAW ;
C1:=CLOSE;
V1:=TIME;
A1:=COUNT(BARSCOUNT(C)=1 AND TIME<102000 ,0 );
T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))),NODRAW;
成交額:AMOUNT,NODRAW;
大額線:=50*3+300*GB,COLOR00FFFF;
VV2:=SUM(AMOUNT,T),NODRAW;
初正1:=IF(T=1 AND DYNAINFO(4)>=DYNAINFO(3),VV2,0);
初負1:=IF(T=1 AND DYNAINFO(4)
初正2:=CONST(SUM(IF(T=1,初正1,0),T)),NODRAW;
初負2:=CONST(SUM(IF(T=1,初負1,0),T)),NODRAW;
初正:=CONST(SUM(IF(初正1>大額線 AND T=1,初正1,0),T)),NODRAW;
初負:=CONST(SUM(IF(初負1>大額線 AND T=1,初負1,0),T)),NODRAW;
T00:=IF(C1>REF(C1,1),0.9,-0.9);
T01:=IF(C1
T02:=T00+T01;
TT1:=BARSLAST(CROSS(T02,0));
TT2:=BARSLAST(CROSS(0,T02));
TT:=IF(T02=1.8,1,IF(T02=-1.8,-1,0));
正V1:=IF(TT=1 OR (TT=0 AND TT1>TT2),成交額,0);
負V1:=IF(TT=-1 OR (TT=0 AND TT1
正總1:=初正1+SUM(正V1,T),NODRAW,COLOR0000FF;
負總1:=初負1+SUM(負V1,T),NODRAW,COLOR00FF00;
總:=(正總1+負總1)+初正2+初負2,NODRAW;
正V:=IF(正V1>大額線,正V1,0);
負V:=IF(負V1>大額線,負V1,0);
正總:初正+SUM(正V,T),NODRAW,COLOR0000FF;
負總:初負+SUM(負V,T),NODRAW,COLOR00FF00;
差%:(正總-負總)/總*100,COLOR00FF00,NODRAW;
TTA:=INTPART(2*T/5);
KP30:=T<240;
KPGD:=H=HHV(H,0) AND KP30;
GDSJ:=BARSLAST(KPGD);
{強弱界}
MMA30:=EMA(CLOSE,30);
強弱界定:=EMA(CLOSE,900);
DRAWBAND(MMA30,RGB(100,0,0),強弱界定,RGB(0,255,0));
DRAWICON(CROSS(MMA30,強弱界定),H,1);
CC:=CLOSE,COLORWHITE,LINETHICK2;
VAR7:=SMA(CC,6.18,1);
VAR8:=SMA(VAR7,3.14,1);
RCC:=DYNAINFO(3);
S2:=SMA(C,3,1);
S6:=SMA(C,5,1);
DK:=4*(S2-S6);
KK:=1;
{暗軌}
{AA1:=PLOYLINE(CLOSE5,COST(20));
BB1:=PLOYLINE(CLOSE5,COST(80));
DRAWBAND(BB1,RGB(50,50,50),AA1,DRAWNULL);
{CYC}
VAR1:=AMOUNT/VOL/100;
VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR3:=SUM(AMOUNT,5)/VAR1/100;
VAR4:=SUM(AMOUNT,13)/VAR1/100;
VAR5:=SUM(AMOUNT,34)/VAR1/100;
CYC5:=DMA(VAR2,VOL/VAR3);
CYC13:=DMA(VAR2,VOL/VAR4);
CYC34:=DMA(VAR2,VOL/VAR5);
DRAWBAND(CYC5,RGB(00,50,50),CYC13,DRAWNULL);
DRAWBAND(CYC13,RGB(00,150,150),CYC34,DRAWNULL);
{分時MACD}
昨收:=DYNAINFO(3);
HH:=DYNAINFO(5);
LL:=DYNAINFO(6);
FK:=MAX(HH-昨收,昨收-LL)*0.1;
ZS:=昨收-FK*3.2;
Q1:=昨收-FK*3.22;
Q2:=昨收-2*FK*3.22;
Q3:=昨收-3*FK*3.2;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA30:=MA(CLOSE,30);
DIF:=(EMA(CLOSE,13) - EMA(CLOSE,24));
DEA:=(EMA(DIF,6));
MACD:=5*(DIF-DEA);
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORFF00FF,LINETHICK3;
STICKLINE(MACD>=0 AND MACD< REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORBLUE,LINETHICK3;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLOR4ABEFF,LINETHICK3;
STICKLINE(MACD<0 AND MACD< REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORBLUE,LINETHICK3;
STICKLINE(DK>0,RCC*KK,RCC*KK+DK,0,1),COLORRED;
STICKLINE(DK<0,RCC*KK,RCC*KK+DK,0,1),COLORCYAN;
{多頭MACD}
DIFF:=EMA(CLOSE,240)-EMA(CLOSE,240)*100;
DEAA:=EMA(DIFF,18);
多頭MACD:=(-3*(DIFF-DEAA))*20,NODRAW;
ZD:=HHV(多頭MACD,0);
ZX:=LLV(多頭MACD,0);
CZ:=(Q2-Q3)/6;
FDM:=MAX(ABS(ZD),ABS(ZX))*1.5;
RB:=(Q2+Q3)/2+2*(Q2-Q3)/3/FDM*多頭MACD;
STICKLINE(多頭MACD>0,RB,(Q2+Q3)/2,2,1),LINETHICK1,COLOR0000FF;
STICKLINE(多頭MACD<0,RB,(Q2+Q3)/2,2,1),LINETHICK1,COLOR00FF00;
{火焰山及底部信号}
FAA:=WINNER(CLOSE+CLOSE*15/100)*100;
FBB:=WINNER(CLOSE+CLOSE*0/100)*100;
FCC:=FAA-FBB;
FDD:=(WINNER(CLOSE-CLOSE*0.1/100)-WINNER(CLOSE-CLOSE*15/100))*100;
FEE:=FCC<3 AND FDD<0.5 AND OPEN!=LOW;
FA1:=DYNAINFO(6);
FA2:=IF(LOW>FA1,0,IF(HIGH
FA3:=VOL/WINNER(LOW);
FA4:=REF(HHV(CLOSE,120),1);
FA5:=REF(LLV(CLOSE,120),1);
FA6:=100*(CLOSE-FA5)/(FA4-FA5);
FA7:=FA2>0 OR FA2=1;
FA8:=FA7 AND FA3/REF(FA3,3)>=3 AND FA6<80;
FA9:=REF(FA8,1) OR REF(FA8,2) OR REF(FA8,3) OR REF(FA8,4);
FA10:=FA8 AND FA9;
FA11:=IF(FILTER(FA8,3),5,0);
FA12:=IF(FILTER(FA10,3) OR FEE,10,0);
EEEE:=(RCC-ZS)/5;
FVAR1:=REF(LOW,1);
FVAR2:=SMA(ABS(LOW-FVAR1),13,1)/SMA(MAX(LOW-FVAR1,0),13,1);
FVAR3:=EMA(FVAR2,13);
FVAR4:=LLV(LOW,34);
FVAR51:=EMA(IF(LOW<=FVAR4,FVAR3,0),3);
FVAR5:=IF(FVAR51>20,20,FVAR51);
DRAWTEXT(FA11,(Q2+Q3)/2*1.02,'↑進'),COLOR00FFFF;
DRAWTEXT(FA12,(Q2+Q3)/2*1.03,',↑加');
進場:STICKLINE(FVAR5>REF(FVAR5,1),(Q2+Q3)/2,(Q2+Q3)/2+FVAR5*EEEE,10,0 ),COLORRED;
洗盤:IF(FVAR5
STICKLINE(FVAR5
FVAR6:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-
LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
FVAR7:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV
(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
FVAR8:=FVAR6[REF(VOL,1) AND CLOSE>REF(CLOSE,1);]
DRAWTEXT(FVAR8 AND COUNT(FVAR8,30)=1,(Q2+Q3)/2+3*EEEE,'迹');
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,(Q2+Q3)/2,(Q2+Q3)/2*1.01,4,0),COLORFF00FF;
DRAWTEXT(二次金叉,(Q2+Q3)/2*1.01,' 二金'),COLORYELLOW;
HHH:=MA(CLOSE,10);
GGG:=MA(CLOSE,12);
上:=EMA((MA(HIGH,3) * 1.05),30);
下:=EMA((MA(LOW,3) * 0.96),30);
決戰:STICKLINE((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND
(DIF < 0)),(Q2+Q3)/2,(Q2+Q3)/2*1.01,1,0),COLOR0000FF;
DRAWTEXT((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF
<= 0)),(Q2+Q3)/2*1.01,'DIF金叉'),COLOR0000FF;
{兩個主要買進信号}
RSV:=((CLOSE-LLV(LOW,240))/(HHV(HIGH,240)-LLV(LOW,240))*200-100);
K:=SMA(SMA(RSV,18,1),3,1);
D:=MA(EMA(K,18),3);
短買:=CROSS(K,D) AND K>0 AND CLOSE
DRAWTEXT(短買,(Q2+Q3)/2+(Q2-Q3)/1,'短買'),COLORFF00FF;
YY:=SMA(VOL,30,1);
量1:=(YY-LLV(LLV(YY,1),30))/(HHV(HHV(YY,1),30)-LLV(LLV(YY,1),30));
量:=(YY-LLV(LLV(YY,1),30))/(HHV(HHV(YY,1),30)-LLV(LLV(YY,1),30))>0.92;
短橫:=((HHV(CLOSE,TTA)-LLV(CLOSE,TTA))/CLOSE)<0.04;
橫後上漲:=(CLOSE/DYNAINFO(3))>=1.02=0 AND 短橫 AND 量 AND CROSS(C,(MA(C*V,TTA)/MA(V,TTA) + AVEDEV(C,TTA)*2));
上漲:=FILTER((CROSS(橫後上漲,0)AND 量 AND T>60
OR (T>60 AND CLOSE
AND CROSS(C,MA(HHV(C,TTA),1)))),30);
DRAWTEXT(上漲,(Q2+Q3)/2+(Q2-Q3)/1,'漲'),COLORRED,LINETHICK3;
HHHH:REF(H,GDSJ),COLORFFFFFF,POINTDOT,LINETHICK1;
過頂:IF(CROSS(C,HHHH),1,0),COLOR00FF00,POINTDOT,NODRAW;
沖高:IF(FILTER(CROSS(C,HHHH*1.01),15),1,0),COLOR00FFFF,POINTDOT,NODRAW;
DRAWBAND(VAR7,RGB(255,255,0),VAR8,RGB(0,255,255));
DRAWTEXT(過頂,HHHH*1.005,'↑'),COLOR00FF00;
DRAWTEXT(沖高,HHHH*1.005,''),COLOR00FFFF;
C,LINETHICK2,COLORFFFFFF;
有話要說...