WO1:=IF(WEEKDAY
WO:=HHV(WO1,WEEKDAY),LINETHICK0;
WH:=HHV(H,WEEKDAY),LINETHICK0;
WL:=LLV(L,WEEKDAY),LINETHICK0;
MC:=C#MONTH,LINETHICK0;
MO1:=IF(DAY
MO:=HHV(MO1,DAY),LINETHICK0;
AG:=DAY
BG:=BARSLAST(AG)+1;
MH:=HHV(H,BG),LINETHICK0;
ML:=LLV(L,BG),LINETHICK0;
STICKLINE(MC>=MO,MO,MC,4,0),COLOR5CA8FD;
STICKLINE(MC
STICKLINE(WC>=WO,WO,WC,4,0),COLOR003399;
STICKLINE(WC
DRAWKLINE(H,O,L,C);
RZYKZQ{飞狐}n:=6;m:=36;KG:=1;WW:=FLOOR((DATETOD1970(date)-3)/7);WSt:=barpos=1 or WW<>ref(ww,1);mm:=month;mst:=barpos=1 or mm<>ref(mm,1);
if kg=1 then beginWW:=mod(barpos,n)=1;WSt:=barpos=1 or WW;MM:=mod(barpos,m)=1;MSt:=barpos=1 or MM;end;
Wed:=refx(WSt,1) or barpos=datacount;Wsp:=BARSLAST(WSt)+1;WO:ref(O,BARSLAST(WSt)) LINETHICK0 colorYELLOW;WH:HHV(H,Wsp) LINETHICK0 colorYELLOW;WH:=SETVAL(Wed,WH,-BARSLAST(WSt),WH);WL:LLV(L,Wsp) LINETHICK0 colorYELLOW;WL:=SETVAL(Wed,WL,-BARSLAST(WSt),WL);WC:SETVAL(Wed,C,-BARSLAST(WSt),C) LINETHICK0colorYELLOW;WV:=SETVAL(Wed,0,-FLOOR(BARSLAST(WSt)/2),1);WV:=SETVAL(Wed,WV,-FLOOR(BARSLAST(WSt)/2)+1,0);PKW:=Wsp>1;PKMV:=PKW and WV;PKLV:=WSt and Not(Wed);PKRV:=PKW and Wed;PARTLINE(PKW,WO) colorYELLOW;PARTLINE(PKW,WC) colorYELLOW;STICKLINE(PKMV,WH,MAX(WC,WO),0,0) colorYELLOW;STICKLINE(PKMV,WL,MIN(WC,WO),0,0) colorYELLOW;STICKLINE(PKLV,WC,WO,0,0) colorYELLOW;STICKLINE(PKRV,WC,WO,0,0) colorYELLOW;
Med:=refx(MSt,1) or barpos=datacount;Msp:=BARSLAST(MSt)+1;MO:ref(O,BARSLAST(MSt)) LINETHICK0 colorWHITE;MH:HHV(H,Msp) LINETHICK0 colorWHITE;MH:=SETVAL(Med,MH,-BARSLAST(MSt),MH);ML:LLV(L,Msp) LINETHICK0 colorWHITE;ML:=SETVAL(Med,ML,-BARSLAST(MSt),ML);MC:SETVAL(Med,C,-BARSLAST(MSt),C) LINETHICK0 colorWHITE;MV:=SETVAL(Med,0,-FLOOR(BARSLAST(MSt)/2),1);MV:=SETVAL(Med,MV,-FLOOR(BARSLAST(MSt)/2)+1,0);PKM:=Msp>1;PKMV:=PKM and MV;PKLV:=MSt and Not(Med);PKRV:=PKM and Med;PARTLINE(PKM,MO) colorwhite;PARTLINE(PKM,MC) colorwhite;STICKLINE(PKMV,MH,MAX(MC,MO),0,0) colorwhite;STICKLINE(PKMV,ML,MIN(MC,MO),0,0) colorwhite;STICKLINE(PKLV,MC,MO,0,0) colorwhite;STICKLINE(PKRV,MC,MO,0,0) colorwhite;
DRAWTEXT(PKMV and mcDRAWNUMBER(PKMV and mcDRAWTEXT(PKMV andmc>=ref(mc,msp),MH*1.01,'月'),COLORred,ALIGN1;DRAWNUMBER(PKMV andmc>=ref(mc,msp),MH*1.01,MM,0),COLORred,ALIGN2;
if SYSPARAM(1)kline(o,h,l,c,0);
飞狐用日周月K线同图(解盘)原码(主图)
炒股票往往盯着日线或者看分时K线图,必然忽略大的趋势,然而看大趋势,才能挣大钱,所以必须要看大趋势周线月线,此公式是把周线和月线K线在一个K线图里,短中长期结合在一起,分析起来很方便.
{周月K线}
TBS:=POW(10,ABS(LOG(MINDIFF)));
//周线
BZ:=WEEKDAY;ZB:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) ORBARPOS=1;
ZW:=BARSLAST(ZB),LINETHICK;
Zdg:=ZW=0 or ISLASTBAR;
Zwx:=0*c;
for i=datacount-1 downto lbound(Zdg) do
if Zdgthen
Zwx:=0;
else
Zwx:=Zwx[i+1]+1;
Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR;
Zwx:=refx(Zwx,1)+Zr,LINETHICK;
zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1;
Zo:=ref(o,Zw);
Zh:=hhv(h,Zw+1);
ZL:=LLv(L,Zw+1);
周开:ROUND(ZO*TBS)/TBS,LINETHICK;
周高:ROUND(refx(Zh,Zwx)*TBS)/TBS,,COLORFF,LINETHICK;
周低:ROUND(refx(ZL,Zwx)*TBS)/TBS,COLORFF00,LINETHICK;
周收:ROUND(refx(c,Zwx)*TBS)/TBS,,COLORFF00FF,LINETHICK;
Zf:=周收>周开 or (周收=周开 and 周收>ref(周收,Zw+1));
Zj:=cross(Zw,Zwx);// OR ISLASTBAR;
yt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 orzq=1,7,14));
//影线
STICKLINE(Zw>0 and Zf andZj,周低,周高,1,0)COLORAAAAEE,linethick2;
STICKLINE(周开<周收,周开,周收,YT,0),COLORAAAAEE,linethick2;
STICKLINE(Zw>0 and not(Zf) andZj,周低,周高,1,0)COLOREEAAAA,linethick2;
STICKLINE(周开>周收,周开,周收,YT,0),COLOREEAAAA,linethick2;
//日线
{阴柱}
STICKLINE(open>=close ,close ,open,0,0),COLOR00FF00;
STICKLINE(open>=close ,close ,open,8,0 ),COLOR008800;
STICKLINE(open>=close ,close ,open,7,0 ),COLOR009900;
STICKLINE(open>=close ,close ,open,6,0 ),COLOR00AA00;
STICKLINE(open>=close ,close ,open,5,0 ),COLOR00BB00;
STICKLINE(open>=close ,close ,open,4,0 ),COLOR00CC00;
STICKLINE(open>=close ,close ,open,3,0 ),COLOR00DD00;
STICKLINE(open>=close ,close ,open,2,0 ),COLOR00EE00;
STICKLINE(open>=close ,close ,open,1,0 ),COLOR00FF00;
{红柱}
STICKLINE(close>open,close,open,0,0) ,COLORFFBBFF;
STICKLINE(close>open,close,open,8,0) ,COLORFF00FF;
STICKLINE(close>open,close,open,7,0) ,COLORFF22FF;
STICKLINE(close>open,close,open,6,0) ,COLORFF44FF;
STICKLINE(close>open,close,open,5,0) ,COLORFF66FF;
STICKLINE(close>open,close,open,4,0) ,COLORFF88FF;
STICKLINE(close>open,close,open,3,0) ,COLORFF99FF;
STICKLINE(close>open,close,open,2,0) ,COLORFFAAFF;
STICKLINE(close>open,close,open,1,0) ,COLORFFBBFF;
//月线
BY:=MONTH;YB:=BY-REF(BY,1)<>0 OR BARPOS=1;
w:=BARSLAST(YB),LINETHICK;
dg:=w=0 or ISLASTBAR;
wx:=0*C;
for i=datacount-1 downto lbound(dg) do
ifdgthen
wx:=0;
else
wx:=wx[i+1]+1;
r:=BACKSET(ISLASTBAR,w+1)-ISLASTBAR;
wx:=refx(wx,1)+r,LINETHICK;
oo:=ref(o,w);
hh:=hhv(h,w+1);
LL:=LLv(L,w+1);
月开:ROUND(OO*TBS)/TBS,LINETHICK;
月高:ROUND(refx(hh,wx)*TBS)/TBS,LINETHICK;
月低:ROUND(refx(LL,wx)*TBS)/TBS,LINETHICK;
月收:ROUND(refx(c,wx)*TBS)/TBS,LINETHICK;
f:=月收>月开 or (月收=月开 and 月收>ref(月收,w+1));
j:=cross(w,wx);// OR ISLASTBAR;
//画横线
PARTLINE(w>0 andf,月收){COLORMAGENTA}colorred,LINETHICK2;
PARTLINE(w>0 andf,月开){COLORMAGENTA}colorred,LINETHICK2;
//影线
STICKLINE(w>0 and f andj,月收,月高,1,0),{COLORMAGENTA}colorred,LINETHICK2;
STICKLINE(w>0 and f andj,月开,月低,1,0),{COLORMAGENTA}colorred,LINETHICK2;
STICKLINE(w=0 and f,月收,月开,1,0),{COLORMAGENTA}colorred,LINETHICK2;
STICKLINE((refx(w=0,1) or ISLASTBAR) andf,月开,月收,1,0),{COLORMAGENTA}colorred,LINETHICK2;
PARTLINE(w>0 and not(f),月收),COLORFFDD00,LINETHICK2;
PARTLINE(w>0 and not(f),月开),COLORFFDD00,LINETHICK2;
STICKLINE(w>0 and not(f) andj,月开,月高,1,0)COLORFFDD00,LINETHICK2;
STICKLINE(w>0 and not(f) andj,月收,月低,1,0)COLORFFDD00,LINETHICK2;
STICKLINE(w=0 andnot(f),月开,月收,1,0)COLORFFDD00,LINETHICK2;
STICKLINE((refx(w=0,1) or ISLASTBAR) andnot(f),月收,月开,1,0)COLORFFDD00,LINETHICK2;
//
MA1:MA(CLOSE,5),ColorFFFFFF,linethick1;
MA2:MA(CLOSE,10),ColorYELLOW,linethick1;
MA3:MA(CLOSE,30),Colorff0062ff,linethick2;
PARTLINE(ma3>REF(ma3,1),ma3),color0062ff,linethick2;
PARTLINE(ma3
MA4:MA(CLOSE,60),Color0088ff,linethick1;
MA5:MA(CLOSE,120),Colorcyan,linethick1;
MA6:MA(CLOSE,250),Color009900,linethick1;
DRAWTEXT((SYSPARAM(2)=BARPOS),CLOSE,('所属板块:'+BLKNAME)),ALIGN4,coloryellow;
EXPLAIN(1,(((STKLABEL+STKNAME)+'n所属板块:n')+BLKNAME)),colorFFFF80;
EXPLAIN(c>0,'〓 K线形态分析 〓 '),ColorFFFFFF;
★早晨之星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) <REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
★黄昏之星:=REF(CLOSE,2)/REF(OPEN,2) > 1.03 AND REF(OPEN,1) >REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02AND
CLOSE/OPEN<0.97 AND CLOSE
★长十字:=CLOSE=OPEN AND HIGH/LOW >1.03;
★垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;
★早晨十字星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) <REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
★黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2) > 1.05 AND REF(OPEN,1) >REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN<0.95 AND CLOSE
★射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW >3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5);
★倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW >3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5);
★锤头:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW >3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5);
★吊颈:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW >3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);
★穿头破脚:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 ANDCLOSEREF(CLOSE,1))
OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 ANDCLOSE>REF(OPEN,1) AND OPEN
★乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 ANDOPEN>REF(CLOSE,1) AND CLOSE
★曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 ANDOPENREF(CLOSE,1);
★身怀六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 ANDABS(CLOSE-OPEN)/CLOSE<0.005 AND
MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) ANDMIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1));
★十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 ANDCLOSE=OPEN AND
CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE >MIN(REF(CLOSE,1),REF(OPEN,1));
★平顶:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;
★平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001 andabs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001);
★大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW <CLOSE/OPEN+0.018;
★红三兵:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1)AND CLOSE>OPEN
AND REF(CLOSE,1)>REF(CLOSE,2) ANDCLOSE>REF(CLOSE,1);
★双飞乌鸦:=REF(CLOSE,1)<0.98;
★孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND(REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100ANDREF(OPEN,1)>=REF(CLOSE,1) AND
(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 ANDREF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) ANDC>=OPEN AND
(CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) ANDOPEN<=REF(CLOSE,1) AND(MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
★多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)OPEN;
★出水芙蓉:=(OPENMAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60))))
AND (V/MA(V,30)>1.2 AND C/REF(C,1)>1.049);
★上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)
REF(LOW,4)REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 ANDCLOSE>REF(CLOSE,4);
★下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 ANDREF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) ANDREF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)
REF(LOW,4)REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) ANDREF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
CLOSE
★跳空缺口:=HIGHREF(HIGH,1);
★三只乌鸦:=REF(CLOSE,2)
★光脚阴线:=LOW=CLOSE AND HIGH<>LOW;
★光头阳线--:=HIGH=CLOSE AND HIGH<>LOW;
★分离:=OPEN=REF(OPEN,1) AND(CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
★长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
★长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
★十字星:=CLOSE=OPEN AND HIGH<>LOW;
★大阴烛:=OPEN/CLOSE > 1.05 AND HIGH/LOW <OPEN/CLOSE+0.018;
★好友反攻:=(REF(CLOSE,1)OPEN ANDABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)
OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<0.002);
★倾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND OREF(O,1) AND C
EXPLAIN(★倾盆大雨,'★倾盆大雨★见顶信号;'),COLORCYAN;
EXPLAIN(★大阴烛,'★大阴烛★后市向淡,发生逆转;'),COLORCYAN;
EXPLAIN(★好友反攻,'★好友反攻★底部反转;'),COLORRED;
EXPLAIN(★跳空缺口,'★跳空缺口★注意向上还是向下跳空;'),COLORWHITE;
EXPLAIN(★光脚阴线,'★光脚阴线★下跌信号;'),COLORCYAN;
EXPLAIN(★光头阳线,'★光头阳线★后市看涨;'),COLORRED;
EXPLAIN(★三只乌鸦,'★三只乌鸦★可能见顶回落;'),COLORCYAN;
EXPLAIN(★分离,'★分离★注意看涨分离和看跌分离;'),COLORWHITE;
EXPLAIN(★长下影,'★长下影★持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意;'),COLORRED;
EXPLAIN(★长上影,'★长上影★表明行情上档压力沉重,升势受阻;'),COLORCYAN;
EXPLAIN(★下跌三部曲,'★下跌三部曲★下跌信号;'),COLORRED;
EXPLAIN(★上升三部曲,'★上升三部曲★上涨信号;'),COLORCYAN;
EXPLAIN(★早晨之星,'★早晨之星★见底回升;'),COLORRED;
EXPLAIN(★黄昏之星,'★黄昏之星★见顶回落;'),COLORCYAN;
EXPLAIN(★十字星,'★十字星★有转向意味,注意股价位置在顶部还是底部;'),COLORWHITE;
EXPLAIN(★长十字,'★长十字★注意在顶部还是底部;'),COLORWHITE;
EXPLAIN(★垂死十字,'★垂死十字★下跌信号;'),COLORCYAN;
EXPLAIN(★早晨十字星,'★早晨十字星★上涨信号,见底回升;'),COLORRED;
EXPLAIN(★黄昏十字星,'★黄昏十字星★下跌信号,见顶回落;'),COLORCYAN;
EXPLAIN(★射击之星,'★射击之星★可能见顶回落,可靠性低;'),COLORCYAN;
EXPLAIN(★倒转锤头,'★倒转锤头★可能见底回升;'),COLORRED;
EXPLAIN(★锤头,'★锤头★可能见底回升,如有量配合,信号强烈;'),COLORRED;
EXPLAIN(★吊颈,'★吊颈★上升行情中见顶回落,顶部出现,见顶信号;'),COLORCYAN;
EXPLAIN(★平顶,'★平顶★温和的反转;'),COLORCYAN;
EXPLAIN(★穿头破脚,'★穿头破脚★顶部出现,见顶回落信号;'),COLORCYAN;
EXPLAIN(★乌云盖顶,'★乌云盖顶★见顶回落信号;'),COLORCYAN;
EXPLAIN(★曙光初现,'★曙光初现★后市见底回升;'),COLORRED;
EXPLAIN(★身怀六甲,'★身怀六甲★出现在底部,是见底回升信号;出现在顶部,是见顶回落信号;'),COLORRED;
EXPLAIN(★十字胎,'★十字胎★'),COLORRED;
EXPLAIN(★平底,'★平底★温和的反转;'),COLORRED;
EXPLAIN(★大阳烛,'★大阳烛★看涨;'),COLORRED;
EXPLAIN(★红三兵,'★红三兵★每日收盘价上移,表示可能见底回升;'),COLORRED;
EXPLAIN(★双飞乌鸦,'★双飞乌鸦★行情将见顶回落;'),COLORCYAN;
EXPLAIN(★孕育线,'★孕育线★注意股价位置;'),COLORWHITE;
EXPLAIN(★多方炮,'★多方炮★在底部出现有上涨可能,在中间出现有可能是上涨中继,顶部出现是复合见顶信号;'),COLORRED;
EXPLAIN(★出水芙蓉,'★出水芙蓉★见底回升;'),COLORRED;
{-------------------------------------------------------------------}
有了这个主图,您的股价的短中长期所处的日周月k线位置一眼全知,周O1:=IF(WEEKDAY<周开,周开,周收,4,0),COLOR9F3333;DRAWKLINE(H,O,L,C);
- INPUT:N(6,2,999),M(36,2,999),KG(0,0,1);
- WW:=FLOOR((DATETOD1970(date)-3)/7);
- WSt:=barpos=1 or WW<>ref(ww,1);
- mm:=month;
- mst:=barpos=1 or mm<>ref(mm,1);
- if kg=1 then begin
- WW:=mod(barpos,n)=1;
- WSt:=barpos=1 or WW;
- MM:=mod(barpos,m)=1;
- MSt:=barpos=1 or MM;
- end;
- {月K线}
- Med:=refx(MSt,1) or barpos=datacount;
- Msp:=BARSLAST(MSt)+1;
- MO:ref(O,BARSLAST(MSt)) LINETHICK0 colorWHITE;
- MH:HHV(H,Msp) LINETHICK0 colorWHITE;
- MH:=SETVAL(Med,MH,-BARSLAST(MSt),MH);
- ML:LLV(L,Msp) LINETHICK0 colorWHITE;
- ML:=SETVAL(Med,ML,-BARSLAST(MSt),ML);
- MC:SETVAL(Med,C,-BARSLAST(MSt),C) LINETHICK0 colorWHITE;
- MV:=SETVAL(Med,0,-FLOOR(BARSLAST(MSt)/2),1);
- MV:=SETVAL(Med,MV,-FLOOR(BARSLAST(MSt)/2)+1,0);
- PKM:=Msp>1;
- PKMV:=PKM and MV;
- PKLV:=MSt and Not(Med);
- PKRV:=PKM and Med;
- Zf:=MC>MO or (MC=MO and MC>ref(MC,Msp));
- PARTLINE(PKM AND ZF,MO),COLORMAGENTA;
- PARTLINE(PKM AND NOT(ZF),MO),colorffdd00;
- PARTLINE(PKM AND ZF,MC),COLORMAGENTA;
- PARTLINE(PKM AND NOT(ZF),MC),colorffdd00;
- STICKLINE(PKMV AND ZF,MH,MAX(MC,MO),0,0),COLORMAGENTA;
- STICKLINE(PKMV AND ZF,ML,MIN(MC,MO),0,0),COLORMAGENTA;
- STICKLINE(PKMV ANDNOT(ZF),MH,MAX(MC,MO),0,0),colorffdd00;
- STICKLINE(PKMV ANDNOT(ZF),ML,MIN(MC,MO),0,0),colorffdd00;
- STICKLINE(PKLV AND ZF,MC,MO,0,0),COLORMAGENTA;
- STICKLINE(PKRV AND ZF,MC,MO,0,0),COLORMAGENTA;
- STICKLINE(PKLV AND NOT(ZF),MC,MO,0,0),colorffdd00;
- STICKLINE(PKRV AND NOT(ZF),MC,MO,0,0),colorffdd00;
- DRAWTEXT(PKMV and mc
- DRAWNUMBER(PKMV and mc
- DRAWTEXT(PKMV andmc>=ref(mc,msp),MH*1.01,'月'),COLORred,ALIGN1;
- DRAWNUMBER(PKMV andmc>=ref(mc,msp),MH*1.01,MM,0),COLORred,ALIGN2;
- {周K线}
- Wed:=refx(WSt,1) or barpos=datacount;
- Wsp:=BARSLAST(WSt)+1;
- WO:ref(O,BARSLAST(WSt)) LINETHICK0 colorYELLOW;
- WH:HHV(H,Wsp) LINETHICK0 colorYELLOW;
- WH:=SETVAL(Wed,WH,-BARSLAST(WSt),WH);
- WL:LLV(L,Wsp) LINETHICK0 colorYELLOW;
- WL:=SETVAL(Wed,WL,-BARSLAST(WSt),WL);
- WC:SETVAL(Wed,C,-BARSLAST(WSt),C) LINETHICK0 colorYELLOW;
- WV:=SETVAL(Wed,0,-FLOOR(BARSLAST(WSt)/2),1);
- WV:=SETVAL(Wed,WV,-FLOOR(BARSLAST(WSt)/2)+1,0);
- PKW:=Wsp>1;
- PKMV:=PKW and WV;
- PKLV:=WSt and Not(Wed);
- PKRV:=PKW and Wed;
- f:=WC>WO or (WC=WO and WC>ref(WC,Wsp));
- PARTLINE(PKW AND F,WO),COLORAAAAEE;
- PARTLINE(PKW AND NOT(F),WO) colorEEAAAA;
- PARTLINE(PKW AND F,WC),COLORAAAAEE;
- PARTLINE(PKW AND NOT(F),WC),colorEEAAAA;
- STICKLINE(PKMV AND F,WH,MAX(WC,WO),0,0),COLORAAAAEE;
- STICKLINE(PKMV AND F,WL,MIN(WC,WO),0,0),COLORAAAAEE;
- STICKLINE(PKMV AND NOT(F),WH,MAX(WC,WO),0,0),colorEEAAAA;
- STICKLINE(PKMV AND NOT(F),WL,MIN(WC,WO),0,0),colorEEAAAA;
- STICKLINE(PKLV AND F,WC,WO,0,0),COLORAAAAEE;
- STICKLINE(PKRV AND F,WC,WO,0,0),COLORAAAAEE;
- STICKLINE(PKLV AND NOT(F),WC,WO,0,0),colorEEAAAA;
- STICKLINE(PKRV AND NOT(F),WC,WO,0,0),colorEEAAAA;
- {日K线}
- if SYSPARAM(1)
- kline(o,h,l,c,0);
日周月同图{tdx}
{月}MC:=C#MONTH,NODRAW;MH:=H#MONTH,NODRAW;ML:=L#MONTH,NODRAW;MO1:=IF(DAY=MO,MH,ML,4,-1)COLOR00009C;STICKLINE(MC<=MO,MH,ML,4,-1),COLOR4F2F4F;K1:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;K2:EMA(K1,25),LINETHICK2;DRAWBAND(K1,RGB(80,0,0),K2,RGB(0,91,0));{周}周O1:=IF(WEEKDAY=周开,周收,周高,4,0)COLOR600060;STICKLINE(周收>=周开,周低,周收,4,0)COLOR000066;STICKLINE(周收<周开,周收,周高,4,0),COLOR9F3333;STICKLINE(周收<周开,周开,周低,4,0),COLOR9F3333;{日}AQ:=O#WEEK;B:=C#WEEK;AAQ:=H#WEEK;BB:=L#WEEK;IF(AAQ=MA60 AND MA60>=MA10,MA10,MA60,1,-1),COLORBLUE;STICKLINE(MA5>=MA10 AND MA5<=MA60,MA10,MA5,1,-1),COLORBLUE;STICKLINE(MA20>=MA60 AND MA60>=MA40,MA40,MA60,1,-1),COLORFF00FF;STICKLINE(MA20>=MA40 AND MA20=MA20 AND MA20>=MA10,MA10,MA20,1,-1),COLORYELLOW;STICKLINE(MA5>=MA10 AND MA5
DZH周月K线解盘
上收:=c;
上开:=o;
上高:=h;
上低:=l;
AA:=上收>=上开;
BB:=上开>上收;
JJ:=(上开+上高+上低)/3;
A:=EMA(JJ,N1);
B:=REF(A,1);
VA1:=EMA(上收,8);
VA2:=EMA(上收,20);
选手a:=MA(上收,3);
箱顶a:=MA(REF(HHV(上收,6),1),3);
箱底a:=MA(REF(LLV(上收,3),1),3);
t1:=MA(上收,20)>=REF(MA(上收,20),1);
t2:=CROSS(选手a,箱底a) AND 箱顶a/箱底a>100/100 AND t1;
t3:=CROSS(箱顶a,选手a) AND 箱顶a/箱底a>100/100;
选手:=MA(上收,2);
顶:=MA(REF(HHV(上收,30),1),2);
底:=MA(REF(LLV(上收,30),1),2);
t4:=CROSS(选手,底) AND 顶/底>110/100;
t5:=CROSS(顶,选手) AND 顶/底>110/100;
Var1:=(上收-LLV(上低,27))/(HHV(上高,27)-LLV(上低,27))*100;
Var2:=SMA(Var1,3,1);
Var3:=SMA(Var2,3,1);
Var4:=SMA(Var3,3,1);
voo:=month<>ref(month,1);
vd11:=barslast(voo);
vd22:=ref(vd11,vd11+1);
ccc:=ref(c,vd11+1);
koo:=ref(o,vd22+1);
hhh:=hhv(ref(h,1),vd22);
lll:=llv(ref(l,1),vd22);
vo:=weekday=1;
vd1:=barslast(vo);
vd2:=ref(vd1,vd1+1);
cc:=ref(c,vd1+1);
ko:=ref(o,vd2+1);
hh:=hhv(ref(h,1),vd2);
ll:=llv(ref(l,1),vd2);
周产金:=IF(vo and cc>ko,l,h);
周产煤:=IF(vo and cc<=ko,l,h);
月产金:=if(voo and ccc>koo,l,h);
月产煤:=if(voo and ccc<=koo,l,h);
vooo:=month<>ref(month,1);
vd11l:=barslast(vooo);
vd222:=ref(vd11l,vd11l+1);
cccc:=ref(c,vd11l+1);
kooo:=ref(o,vd222+1);
hhhh:=hhv(ref(h,1),vd222);
llll:=llv(ref(l,1),vd222);
voooo:=weekday=1;
vd1l:=barslast(vo);
cccccc:=ref(c,vd1l+1);
kooooo:=ref(o,vd22+1);
hhhhh:=hhv(ref(h,1),vd2);
lllll:=llv(ref(l,1),vd2);
周盈:=IF(vo and cc>ko,l,h);
周亏:=IF(vo and cc<=ko,l,h);
月盈:=if(voo and ccc>koo,l,h);
月亏:=if(voo and ccc<=koo,l,h);
'『周月K线解盘』'+
IFS(AA,'今天买入。','')+
IFS(BB,'今天卖出。','')+
IFS(CROSS(VA2,VA1),'止损。','')+
IFS(CROSS(VA1,VA2),'买入。','')+
IFS(t2 OR t4,'发出买入信号,见底啦。','')+
IFS(t3 OR t5,'发出持币信号,一定要持币。','')+
IFS(Var3>=Var4,'持仓区,大盘中期向好!','')+
IFS(A>B,'大盘短期向好!','')+
IFS(CROSS(Var3,Var4) AND Var3<40,'逢低吸呐。','')+
IFS(Var3
IFS(A
IFS(CROSS(Var4,Var3) AND Var4>75,'逢高减磅!','')+
'【A】='+str(A,2)+';【B】='+str(B,2)+';【顶】='+str(顶,2)+';【底】='+str(底,2)+';【周产金】='+str(周产金,2)+';【周产煤】='+str(周产煤,2)+';【月产金】='+str(月产金,2)+';【月产煤】='+str(月产煤,2)+';【周盈】='+str(周盈,2)+';【周亏】='+str(周亏,2)+';【月盈】='+str(月盈,2)+';【月亏】='+str(月亏,2)+'。'