大智慧《操盘铁律》指标公式源码

主线:=(3*CLOSE+LOW+OPEN+HIGH)/6;

观察线:(20*主线+19*REF(主线,1)+18*REF(主线,2)+17*REF(主线,3)+16*REF(主线,4)
+15*REF(主线,5)+14*REF(主线,6)+13*REF(主线,7)+12*REF(主线,8)+11*REF(主线,9)
+10*REF(主线,10)+9*REF(主线,11)+8*REF(主线,12)+7*REF(主线,13)+6*REF(主线,14)
+5*REF(主线,15)+4*REF(主线,16)+3*REF(主线,17)
+2*REF(主线,18)+REF(主线,20))/210,COLORRED;

参考线:MA(观察线,6),COLORGREEN;

QK0:=SMA(MAX(CLOSE-REF(C,1),0),12,1)/SMA(ABS(CLOSE-REF(C,1)),15,1)*100;
DRAWTEXT(CROSS(82,QK0),HIGH,'快卖'),COLORWHITE;
DRAWTEXTABS(10,10,STKLABEL+' '+STKNAME+' '+BKNAME),COLOR00FFFF;

QK1:=C-REF(C,1);
DX0:=100*EMA(EMA(QK1,6),6)/EMA(EMA(ABS(QK1),6),6);
介入:=IF(LLV(DX0,2)=LLV(DX0,7) AND COUNT(DX0<0,2) AND CROSS(DX0,MA(DX0,2)),1,0);
DRAWTEXT(FILTER(介入=1,5),LOW-0.03,'拉升'),COLORFFDE00;

QK2:=(EMA(C,1)+EMA(C,2)+EMA(C,3)+EMA(C,4))/4;
QK3:=(EMA(C,10)+EMA(C,20)+EMA(C,40)+EMA(C,80))/4;
DRAWTEXT(CROSS(QK2-QK3,0),L*0.95,'★B'),COLORRED;

QK4:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100;
DRAWTEXT(CROSS(84,QK4),H*1.05,'☆S'),COLORGREEN;

QK5:=REF(CLOSE,1);
参考价位:(QK5*1.0035*97+0.2)/99.65,COLORRED,LINETHICK0;

DRAWTEXTABS(CLOSE,25,'★ ======================'),COLORRED;
DRAWTEXTABS(CLOSE,41,'操 '),COLORRED;
DRAWTEXTABS(CLOSE,57,'盘 '),COLORRED;
DRAWTEXTABS(CLOSE,73,'铁'),COLORRED;
DRAWTEXTABS(CLOSE,89,'律'),COLORRED;
DRAWTEXTABS(CLOSE,105,'★ ======================'),COLORRED;
DRAWTEXTABS(CLOSE,41,' 参考条件 E13 cci'),COLORYELLOW;
DRAWTEXTABS(CLOSE,57,' 参考时间 2:30以后'),COLORYELLOW;
DRAWTEXTABS(CLOSE,73,' 参考价位 '+NUMTOSTR(参考价位)+'元'),COLORYELLOW;
DRAWTEXTABS(CLOSE,89,' 线上工作 线下休息'),COLOR00FFFF;

QK6:=(HIGH+LOW+OPEN+2*CLOSE)/5;
阻力位:=2*QK6-LOW;
支撑位:=2*QK6-HIGH;
突破位:=QK6+(HIGH-LOW);
反转位:=QK6-(HIGH-LOW);
今阻力:=REF(阻力位,1);
今支撑:=REF(支撑位,1);
DRAWTEXTABS(200,25,'今日阻力=：'+NUMTOSTR(今阻力)),COLORFFFF00;
DRAWTEXTABS(200,41,'今日支撑=：'+NUMTOSTR(今支撑)),COLORRED;
DRAWTEXTABS(200,57,'明日突破=：'+NUMTOSTR(突破位)),COLORFF00FF;
DRAWTEXTABS(200,73,'明日阻力=：'+NUMTOSTR(阻力位)),COLORFFFF00;
DRAWTEXTABS(200,89,'明日支撑=：'+NUMTOSTR(支撑位)),COLORRED;
DRAWTEXTABS(200,105,'明日反转=：'+NUMTOSTR(反转位)),COLORYELLOW;

QK7:=HHV(HIGH,13)=HIGH AND HIGH>REF(HIGH,1);
QK8:=FILTER(QK7,12);
QK9:=LLV(LOW,13)=LOW AND LOW<REF(LOW,1);
QKA:=FILTER(QK9,12);
QKB:=BARSLAST(QK8);
箱顶:REF(HIGH,QKB),COLORFF00FF,LINETHICK0;
STICKLINE(1,箱顶,箱顶,7,0),COLORFF00FF;
QKC:=BARSLAST(QKA);
箱底:REF(LOW,QKC),COLORFFBB80,LINETHICK0;
STICKLINE(1,箱底,箱底,7,0),COLORFFBB80;
箱高:100*(箱顶-箱底)/箱底,LINETHICK0;

QKD:=(3*C+H+L+O)/6;
QKE:=(8*QKD+7*REF(QKD,1)+6*REF(QKD,2)+5*REF(QKD,3)+
4*REF(QKD,4)+3*REF(QKD,5)+2*REF(QKD,6)+REF(QKD,8))/36;
QKF:=(LLV(QKE,2)+LLV(QKE,4)+LLV(QKE,6))/3;
QKG:=REF(QKE,1)=REF(QKF,1) AND QKE>QKF AND CLOSE>QKE;
QKH:=QKE>QKF AND QKE>REF(QKE,1) AND QKF>REF(QKF,1)
AND H/QKE<1.1 AND L>QKF AND CLOSE>QKE;
QKI:=QKE>QKF AND QKE>REF(QKE,1) AND QKF>=REF(QKF,1) AND H/QKE>1.1;
QKJ:=QKE>QKF AND QKE>REF(QKE,1) AND QKF>REF(QKF,1)
AND CLOSE>QKF AND CLOSE<QKE;
QKK:=(QKE>QKF AND QKF>REF(QKF,1) AND QKE<>REF(QKE,1)
AND CLOSE<QKF) OR (QKE>QKF AND QKE<REF(QKE,1)
AND QKF<REF(QKF,1) AND CLOSE<QKF);
QKL:=REF(QKE,1)>REF(QKF,1) AND QKE=QKF AND CLOSE<QKF;
QKM:=QKE=QKF AND CLOSE<QKF OR (QKE<REF(QKE,1) AND QKF<REF(QKF,1)
AND REF(QKE,1)=REF(QKF,1) AND CLOSE<QKF);
QKN:=QKE=QKF AND CLOSE>QKE;

QKO:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能值:=IF(QKO>1,1,QKO)*100;

IF BARSTATUS=2 AND QKG THEN BEGIN
DRAWTEXTABS(350,25,'调整结束短线介入'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND QKH THEN BEGIN
DRAWTEXTABS(350,25,'上升通道走势良好'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND QKI THEN BEGIN
DRAWTEXTABS(350,25,'股价偏离注意调整'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND QKJ THEN BEGIN
DRAWTEXTABS(350,25,'上升通道调整洗盘'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND QKK THEN BEGIN
DRAWTEXTABS(350,25,'转向特征注意离场'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND QKL THEN BEGIN
DRAWTEXTABS(350,25,'通道改变坚决离场'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND QKM THEN BEGIN
DRAWTEXTABS(350,25,'下跌通道只宜观望'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND QKN THEN BEGIN
DRAWTEXTABS(350,25,'短期底部准备进入'),COLORYELLOW;
END;

STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5,0),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5,0),COLOR00FF00;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5,0),COLOR00FF00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,7,0),COLORFF7700;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,6,0),COLORFF9900;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,5,0),COLORFFBB00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,4,0),COLORFFCC00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3,0),COLORFFDD00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2,0),COLORFFEE00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1,0),COLORFFFF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0),COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0),COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),COLOR0000FF;

QKP:=C=HHV(C,4) AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3))
OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4)
AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4)
AND C>=REF(C,1) AND C>=REF(C,2);
STICKLINE(QKP,C,(O+C)/2,7,0),COLOR000055;
STICKLINE(QKP,C,(O+C)/2,6,0),COLOR000066;
STICKLINE(QKP,C,(O+C)/2,5,0),COLOR000077;
STICKLINE(QKP,C,(O+C)/2,4,0),COLOR000099;
STICKLINE(QKP,C,(O+C)/2,3,0),COLOR0000BB;
STICKLINE(QKP,C,(O+C)/2,2,0),COLOR0000DD;
STICKLINE(QKP,C,(O+C)/2,1,0),COLOR0000FF;

QKQ:=C=HHV(C,4) AND REF(C,1)=LLV(C,4);
STICKLINE(QKQ,C,(O+C)/2,7,0),COLORFF11FF;
STICKLINE(QKQ,C,(O+C)/2,6,0),COLORFF33FF;
STICKLINE(QKQ,C,(O+C)/2,5,0),COLORFF55FF;
STICKLINE(QKQ,C,(O+C)/2,4,0),COLORFF77FF;
STICKLINE(QKQ,C,(O+C)/2,3,0),COLORFF99FF;
STICKLINE(QKQ,C,(O+C)/2,2,0),COLORFFBBFF;
STICKLINE(QKQ,C,(O+C)/2,1,0),COLORFFDDFF;

QKR:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3))
OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4)
AND REF(C,1)<>HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4)
AND C<REF(C,1) AND C<REF(C,2);
STICKLINE(QKR,C,(O+C)/2,7,0),COLOR333333;
STICKLINE(QKR,C,(O+C)/2,6,0),COLOR555555;
STICKLINE(QKR,C,(O+C)/2,5,0),COLOR777777;
STICKLINE(QKR,C,(O+C)/2,4,0),COLOR999999;
STICKLINE(QKR,C,(O+C)/2,3,0),COLORBBBBBB;
STICKLINE(QKR,C,(O+C)/2,2,0),COLORDDDDDD;
STICKLINE(QKR,C,(O+C)/2,1,0),COLORFFFFFF;

QKS:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4)
AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);
STICKLINE(QKS,O,(O+C)/2,7,0),COLOR003300;