幾個(gè)不錯(cuò)的大智慧主圖指標(biāo)公式公式（公式、源碼）[大智慧公式]

相關(guān)標(biāo)簽:

?

{大智慧精確主圖}

{N：10 1 60 1}

A1:= PDAY1>PDAY2 AND PDAY2>PDAY3 AND PDAY3>PDAY4 AND PDAY4>PDAY5 AND PDAY5<5;
A2:= COUNT(CROSS(R10,R5),PDAY2)=1;
AA:=IF(A1 AND A2 AND MA(C,5)>=MA(C,10) AND MA(C,10)>MA(C,60),10,0);
BB:=FILTER( A1 AND A2 AND MA(C,5)>=MA(C,10) AND MA(C,10)>MA(C,60),5);
有戲:=IF(AA AND BB,1,0);
DRAWICON(AA AND BB ,LOW*0.99,1),ALIGN1;
A0:=AMOUNT/VOL/100;
A3:=(EMA(A0,3)>EMA(A0,7) AND EMA(A0,7)>EMA(A0,13) AND EMA(A0,13)>EMA(A0,21));
DRAWTEXT(A3,MA(C,60),'*'),ALIGN1,colorred;
GJ:=(C+H+L+O)/4;
明阻:=L+(GJ-L)+(C-L);
明支:=L+(C-GJ);
阻:REF(明阻 , 1),LINETHICK0,PRECIS2,COLORRED;
支:REF(明支 , 1),LINETHICK0,PRECIS2,COLORFF00FF;
STICKLINE(DISPSTATUS=2AND C>=阻,阻*1.001,阻*0.999,15,0),COLOR0000FF;
STICKLINE(DISPSTATUS=2AND C<阻,阻*1.001,阻*0.999,15,0),COLOR00FF00;
STICKLINE(DISPSTATUS=2AND C>=支,支*1.001,支*0.999,15,0),COLORFF00FF;
STICKLINE(DISPSTATUS=2AND C<支,支*1.001,支*0.999,15,0),COLORFF8800;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
ZX:=100*EMA(EMA(MTM,12),12)/EMA(EMA(ABS(MTM),12),12);
CX:=100*EMA(EMA(MTM,26),26)/EMA(EMA(ABS(MTM),26),26);
DXGD:=LLV(DX,2)=LLV(DX,5) AND CROSS(DX,MA(DX,2));
ZXGD:=LLV(ZX,2)=LLV(ZX,5) AND CROSS(ZX,MA(ZX,2)) AND DX>ZX;
短買:=IF(DXGD AND BETWEEN(DX,0,60) AND ZX>0,1,0);
中買:=IF(ZXGD AND BETWEEN(DX,0,50) AND BETWEEN(CX,0,50),1,0);
DTPL:=DX>ZX AND ZX>CX AND CX>0;
QSXS:=DX>REF(DX,1) AND ZX>REF(ZX,1);
TSJC:=CROSS(DX,CX) AND CROSS(ZX,CX);
優(yōu)選:=IF(CROSS(DTPL,0.8) AND (TSJC OR COUNT(QSXS,3)=3) AND CX<40,1,0);
短賣:=IF(CROSS(ZX,DX),1,0);
中賣:=IF(CROSS(CX,ZX) AND DX<ZX,1,0);
買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
賣:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
DRAWTEXT(短買,low*0.99,'△'),COLORe91daf,ALIGN1;
DRAWTEXT(中買,low*0.99,'▲'),COLORe91daf,ALIGN1;
DRAWTEXT(短賣,high*1.02,'▽'),COLORff0000,ALIGN1;
DRAWTEXT(中賣,high*1.02,'▼'),COLORff0000,ALIGN1;
DRAWTEXT(filter(買=1,5),low-0.03,''),COLORe91adf,ALIGN1;
DRAWTEXT(filter(賣=1,5),high*1.015,''),COLORff0000,ALIGN1;
DRAWICON(優(yōu)選,low-0.03,7);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K1:=SMA(RSV,3,1);
D1:=SMA(K1,3,1);
J1:=3*K1-2*D1;
BDGD1:=HHV(J1,2)=HHV(J1,8) AND J1>80;
BDDD:=LLV(J1,2)=LLV(J1,8);
J1向下拐頭:=IF(CROSS(REF(J1-0.01,1),J1) AND REF(BDGD1,1),1,0);
DRAWTEXT(j1向下拐頭 ,high*1.015,'J'),COLORFFFFFF;
J1向上拐頭:=IF(CROSS(J1,REF(J1+0.01,1)) AND BDDD AND J1<20,1,0);
DRAWTEXT(j1向上拐頭,low*0.993,'J'),COLOR00ffFF;
WR2:=100*(HHV(HIGH,6)-CLOSE)/(HHV(HIGH,6)-LLV(LOW,6));
DDSJ:=BARSLAST((1-C/REF(C,1))*100>=2);
XD:=C<REF(C,1);
DF:=(HHV(H,5)/C-1)*100>=5;
跌6:=COUNT(XD,6)>=5 AND XD AND DF AND DDSJ<=1;
跌9:=WR2>80;
底:=跌6 AND 跌9;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
A:=REF(C,1);
RSI:=SMA(MAX(C-A,0),6,1)/SMA(ABS(C-A),6,1)*100;
A11:=(C/MA(C,5)-1)*100<-10;
A21:=(C/MA(C,13)-1)*100<-10;
A31:=(C/MA(C,34)-1)*100<-15;
A41:=RSI<18;
A51:=CCI<-120;
A61:=COUNT(ABS(C/REF(C,1)-1)*100>=6,30)>=1;
底部:=A11 AND A21 AND A31 AND A41 AND A51 AND A61;
DRAWTEXT(底部,low*0.99,'底'),COLOR00FF00;
DRAWTEXT(底>0,low-0.03,'D'),COLORFFFFFF,ALIGN1;
BDGD:=C=HHV(C,N);
GDSJ:=BARSLAST(BDGD);
前高1:=IF(GDSJ>0,REF(C,GDSJ),REF(C,GDSJ));
TP1:=CROSS(C,REF(前高1,1));
突破1:=TP1 AND COUNT(TP1,5)=1;
STICKLINE(突破1,(O+C)/2*1.01,(O+C)/2*1.01,15,0),COLOR00ff00;
主籌估算:=EMA(WINNER(c)*70,3);
散籌估算:=EMA((WINNER((c)*1.1)-WINNER((c)*0.9))*70,3);
籌碼鎖定:=散籌估算-主籌估算 ;
動(dòng)態(tài)底部:=EMA(IF(L<= LLV(l,60),SMA(ABS(L-REF(L,1)),60,1)/SMA(MAX(L-REF(l,1),0),99,1),0)*5,3);
漲:=CROSS(主籌估算,籌碼鎖定);
強(qiáng):=CROSS(主籌估算,散籌估算);
STICKLINE(漲,O,C,4,1),COLORYELLOW;
STICKLINE(漲,O,H,0,0),COLORYELLOW;
STICKLINE(漲,L,C,0,0),COLORYELLOW;
STICKLINE(強(qiáng), O,C,4,1),colormagenta;
STICKLINE(強(qiáng),O,H,0,0),colormagenta;
STICKLINE(強(qiáng),L,C,0,0),colormagenta;
STICKLINE(籌碼鎖定<-50,O,C,4,1),COLORred;
STICKLINE(籌碼鎖定<-50,O,H,0,0),COLORred;
STICKLINE(籌碼鎖定<-50,L,C,0,0),COLORred;
買入:=STRFIND(Extrastring('評級'),'買入',1)>0;
增持:=STRFIND(Extrastring('評級'),'增持',1)>0;
持有:=STRFIND(Extrastring('評級'),'持有',1)>0;
DRAWTEXTREL(400,970,'評級:'+Extrastring('評級')),colora9a9a9;
{DRAWTEXTABS(5,360,'板塊:'+BKNAME),colora9a9a9;}
流通:=FINANCE2(37)/10000;
市盈率:=DYNAINFO(39);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );X:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(X-M)/(X+M)*100;
集中度90:=F1;
集中度70:=M1;
獲利盤:=WINNER(CLOSE)*100;
套牢盤:=100*(1-WINNER(C));
收益:=FINANCE2(3);
浮籌比:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;
DRAWTEXTABS(5,65,'浮籌比:'+浮籌比+'% '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(110,20,'流通:'+流通+' '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(5,80,'市盈率:'+市盈率+' '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(5,5,'集中度90:'+集中度90+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(5,20,'集中度70:'+集中度70+' '),LINETHICK1,ColorYELLOW;
DRAWTEXTABS(5,35,'獲利盤:'+獲利盤+'% '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(5,50,'套牢盤:'+套牢盤+'% '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(110,5,'收益:'+收益+'元 '),LINETHICK1,COLORa9a9a9;

二、絕好主圖

{N：20 1 500 1}

{P：12 1 30 1}

DRAWGBK(C,STRIP(RGB(10,160,0),RGB(25,15,0),1));
阻擋線:SMA(HIGH,21,2)*1.035,POINTDOT,colorFFFFFF,PRECIS2;
下檔線:SMA(LOW,21,2)*0.96,POINTDOT,PRECIS2;
上:=ema(MA(HIGH,3)*1.05,30); {原句 上:=FFT(MA(HIGH,3)*1.05,30);分析家無FFT,故改}
趨勢:=ema(MA(LOW,3)*0.96,30); {原句 趨勢:=FFT(MA(LOW,3)*0.96,30);分析家無FFT,故改}
短期支撐:LLV(CLOSE,N),PRECIS2,color6803C7;
中:=ema(MA(OPEN,3)*0.99,30); {原句 中:=FFT(MA(OPEN,3)*0.99,30);分析家無FFT,故改}
趨勢線:=SMA(LOW,8,1);
VAR1:=(OPEN+LOW+HIGH+CLOSE)/4;
VAR2:=((CLOSE-REF(CLOSE,1))/REF(CLOSE,1))*100;
VAR3:=((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18)))*100;
VAR4:=SMA(VAR3,9,1);
VAR5:=SMA(VAR4,3,1);
J:=3*VAR4-2*VAR5;
A2:=EMA(VAR4,3);
A3:=EMA(A2,3);
A4:=EMA(A3,3);
A5:=EMA(A4,3);
AA:=EMA(A5,6);
中期大底:LLV(LOW,30),colorCDFFBB,PRECIS2;
VAR9:=HHVBARS(HIGH,50);
VAR11:=((CLOSE-REF(OPEN,VAR9))/REF(OPEN,VAR9))*100;
DRAWTEXT((CROSS(A4,AA) AND (VAR11<(0- 23))),(LOW-0.3),''),colorFF0000;
STICKLINE((CROSS(A4,AA) AND (VAR11<(0-23))),中期大底,(中期大底-0.27),4,0),colorFFFFFF;
CG:=MA(CLOSE,19);
CD:=MA(CLOSE,2);
MA20:=MA(CLOSE,20);
MA120:=MA(CLOSE,120);
支撐:=EMA(VAR1,5);
壓力一:HHV(LOW,20),PRECIS2,Color00FFFF;
壓力:HHV(支撐,60),colorD8CFBB,PRECIS2;
短期底部:LLV(HIGH,30),PRECIS2,Color00FF00;
DRAWTEXT(FILTER(((((((CLOSE>CG) AND (HIGH<上)) AND (CLOSE <上)) AND ((趨勢線-REF(趨勢線,3))>0)) AND ((趨勢-REF(趨勢,1))>=0)) AND CROSS(CD,CG)),5),(LOW-0.02),'大底成'),color4D84FF;
DRAWTEXT(FILTER(((CROSS(趨勢,中期大底) AND (LOW<=中)) AND ((趨勢-REF(趨勢,1))>0)),3),(中期大底-0.08),'←分時(shí)拉升'),colorFF00FF;
DRAWTEXT(FILTER((CROSS(中,短期底部) AND ((趨勢-REF(趨勢,1))>0)),4),(中期大底-0.16),'←分時(shí)狂牛'),color430CC0;
aaa1:=ema(c,2);
bba1:=ema(aaa1,2);
aa:=ma(bba1,3);
aaa2:=ema((h+c+o)/3,18);
dd3:=aa>=aaa2 and c>aaa2;
dd4:=aa<aaa2 ;
dd5:=aa>aaa2 ;
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;
STICKLINE((dd3 or c>aaa2) and o<=c,c,o,7,0),Colorred;
STICKLINE((dd3 or c>aaa2) and o<=c,h,l,0.5,0),Colorred;
STICKLINE((dd3 or c>aaa2) and o>=c,c,o,7,0),Colorff33ff;
STICKLINE((dd3 or c>aaa2) and o>=c,h,l,0.5,0),Colorff33ff;
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.8,1),coloryellow;
上一:=(SMA(HIGH,21,2)*1.05);
DRAWTEXT((((((CLOSE<REF(CLOSE,1)) AND ((上-REF(上,1))<0)) AND (CLOSE<REF(CLOSE,1))) AND (HIGH>上一)) AND (CLOSE<上一)),(HIGH+0.13),'←分時(shí)短線'),colorFFFFFF;

VARQ:=MA(CLOSE,152);
VARW:=MA(CLOSE,194.16);
VARE:=(VARW+(2*STD(CLOSE,170)));
VARR:=(VARQ+(2*STD(CLOSE,170)));
VART:=IF((DATE>1080822),0,1);
VAR61:=EMA(HHV(HIGH,500),21);
VAR71:=EMA(HHV(HIGH,250),21);
VAR81:=EMA(HHV(HIGH,90),21);
VAR91:=EMA(LLV(LOW,500),21);
VARA1:=EMA(LLV(LOW,250),21);
VARB1:=EMA(LLV(LOW,90),21);
VARC1:=EMA(((VAR91*0.96+VARA1*0.96+VARB1*0.96+VAR61*0.558+VAR71*0.558+VAR81*0.558)/6),21);
VARD1:=EMA(((VAR91*1.25+VARA1*1.23+VARB1*1.20+VAR61*0.550+VAR71*0.550+VAR81*0.650)/6),21);
VARE1:=EMA(((VAR91*1.30+VARA1*1.30+VARB1*1.30+VAR61*0.680+VAR71*0.680+VAR81*0.680)/6),21);
VARF1:=EMA((((VARC1*3+VARD1*2+VARE1)/6)* 1.738),21);

VAR101:=REF(LOW,1);
VAR111:=((SMA(ABS((LOW-VAR101)),3,1)/SMA(MAX((LOW-VAR101),0),3,1))*100);
VAR121:=EMA(IF(((CLOSE*1.35)<=VARF1),(VAR111*10),(VAR111/10)),3);
VAR131:=LLV(LOW,30);
VAR141:=HHV(VAR121,30);
VAR151:=IF(MA(CLOSE,58),1,0);
VAR161:=(EMA(IF((LOW<=VAR131),((VAR121+(VAR141*2))/2),0),3)/618)*VAR151;
VAR171:=((IF((VAR161>50),50,VAR161)/20)*15)*VART;
主力吸籌:VAR171>中期大底,colorFF00FF,linethick0;
STICKLINE(VAR171>中期大底,中期大底,(中期大底-0.05),1,0),colorFF00FF;
DRAWTEXT(FILTER((((((LOW<=趨勢) AND (CLOSE>趨勢)) AND (VAR171>0)) AND ((趨勢-REF(趨勢,1))>0)) AND (CLOSE>OPEN)),5),(LOW-0.04),'←分時(shí)黑馬'),color8CF800;

B1:=(HIGH+LOW+CLOSE)/3;
B6:=HHV(B1,4*15);
B7:=LLV(B1,4*15);
B8:=B6-B7;
飛龍頂?shù)拙€:=MA(((B1-B7)/B8),2)*80;
DRAWTEXT(FILTER(((((飛龍頂?shù)拙€<=1) AND (VAR171>0)) AND (LOW<=趨勢)) AND (CLOSE>趨勢)),3),(LOW-0.04),'←分時(shí)短抄'),colorFFFF00;
DRAWTEXT(FILTER((((LOW <= 趨勢) AND (CLOSE >= 趨勢)) AND ((趨勢 - REF(趨勢,1))>0)),8),(中期大底 - 0.08),'←分時(shí)半倉'),color87D826;
DRAWTEXT((((CROSS(中,短期底部) AND (HIGH<壓力一)) AND (HIGH<上)) AND ((趨勢-REF(趨勢,1))>0)),LOW,'←分時(shí)必殺'),colorFFFFFF;
均五:=MA(CLOSE,4);
X7:=EMA(EMA(EMA(HIGH,9),9),9);
海底:=X7*0.92;
海底二:=X7*0.933;
海底三:=X7*0.897;
天際:=X7*1.05;
中線:=SMA(LOW,5,1);
中軌道:=MA(CLOSE,2);
DRAWTEXT(FILTER(((((HIGH>壓力) AND (CLOSE<壓力)) AND ((趨勢-REF(趨勢,1))<0)) AND (CLOSE<OPEN)),5),(HIGH+0.12),'●逃'),colorFFFF00;
MA12:=MA(CLOSE,P);
MA42:=MA(CLOSE,42);
DRAWTEXT((((CROSS(中軌道,均五) AND (LOW<=海底)) AND ((均五-REF(均五,1))>0)) AND (CLOSE>=海底二)),LOW,' 底部'),Color00FFFF;
DRAWTEXT(((((CROSS(中軌道,海底) AND VAR171) AND (LOW<=海底)) AND ((MA20-REF(MA20,1))>0)) AND (CLOSE>海底)),(LOW-0.06),'小底不急'),colorBCF0AF;
DRAWTEXT(((((CROSS(中軌道,海底三) AND (CLOSE>OPEN)) AND ((CLOSE-REF(CLOSE,4))>0)) AND (LOW<=海底三)) AND (CLOSE>海底三)),LOW,'底二'),colorFF0000;
MA30:=MA(CLOSE,30);

V1:=HHVBARS(HIGH,100);
V2:=CROSS(MA(CLOSE,10),MA(CLOSE,30));
V3:=(V1>60 AND V2)*100;
DRAWTEXT((((((V3 AND (HIGH<上)) AND (CLOSE<壓力)) AND (CLOSE>OPEN)) AND ((上-REF(上,1))>0)) AND ((趨勢-REF(趨勢,1))>0)),(LOW-0.04),'←量價(jià)齊升'),color8B0CFF;
DRAWTEXT(((((V3 AND (HIGH<趨勢)) AND (HIGH<天際)) AND ((支撐-REF(支撐,1))>0)) AND ((MA20-REF(MA20,1))>0)),(LOW-0.03),'分時(shí)波段介入'),color5BA8FF;
DRAWTEXT(((CROSS(趨勢,MA12) AND (CLOSE>OPEN)) AND ((趨勢-REF(趨勢,1))>0)),LOW,'分時(shí)果斷'),colorFF0000;
DRAWTEXT(FILTER(((((((((CROSS(支撐,MA12) AND ((MA12-REF(MA12,1))>0)) AND (HIGH<上)) AND (OPEN<壓力一)) AND ((CLOSE-REF(CLOSE,1))>0)) AND ((MA42-REF(MA42,1))>0)) AND (支撐<壓力)) AND (支撐>MA12)) AND ((趨勢-REF(趨勢,1))>0)),6),(LOW-0.02),'←分時(shí)回抽'),color4DFFFF;
DRAWTEXT((((LOW<=趨勢) AND (CLOSE>=支撐)) AND ((MA120-REF(MA120,1))>0)),(LOW-0.35),'抄底'),colorFF0000;
DRAWTEXT(FILTER(((((((LOW<=短期底部) AND ((上-REF(上,1))>0)) AND ((上-REF(上,1))>0)) AND (CLOSE>OPEN)) AND (趨勢線<=短期底部)) AND (CLOSE>=短期底部)),5),(LOW-0.03),'←分時(shí)望月'),colorA99FFF;

VAR22:=(CLOSE+HIGH+LOW)/3;
VAR33:=EMA(VAR22,10);
VAR44:=REF(VAR33,1);
FILLRGN(VAR33,VAR44,VAR33 > VAR44),Color0000FF;
FILLRGN(VAR44,VAR33,VAR33 < VAR44),Color00FF00;
DRAWTEXT(FILTER((((LOW<=中期大底) AND ((趨勢-REF(趨勢,1))>0)) AND VAR171),5),(LOW-0.03),'←●買點(diǎn)出現(xiàn)');
DRAWTEXT(((((LOW<=下檔線) AND (LOW<=短期支撐)) AND (短期支撐<=下檔線)) AND ((MA20-REF(MA20,1))> 0)),LOW,'←絕佳買點(diǎn)'),colorFF0000;
DRAWTEXT(((((CROSS(VAR33,MA20) AND (LOW<=VAR33)) AND (CLOSE>= VAR33)) AND ((趨勢-REF(趨勢,2))>0)) AND ((VAR33-REF(VAR33,1))>0)),LOW,'←回頭望月'),colorFFFFFF;
DRAWTEXT(FILTER((((HIGH>壓力) AND (CLOSE<壓力)) AND (HIGH>阻擋線)),8),HIGH,'←減倉'),colorB0FA00;

cpbd:=f10find('☆[操盤必讀]☆',1);
zxzb:=f10find('◆ 最新指標(biāo)',cpbd+1);
zxsjsj:=f10find('◇萬國測評制作',cpbd+1);
hydw:=f10find('◆ 行業(yè)地位 ◆',1000);
gxsj:=f10find('◇萬國測評制作:',hydw);
zjsj:=f10text(gxsj,36);
hydw1:=f10find('所屬行業(yè):',hydw+1);
hydw3:=f10find('證監(jiān)會(huì)行業(yè):',hydw1+1);
hydw2:=f10find('截止日期:',hydw3+1);
IF hydw1>0 and hydw3>0 and hydw2>0THEN
BEGIN
zjh:=f10text(hydw3,hydw2-hydw3);
hydw4:=f10find('共',hydw3+1);
js:=strtonum(f10text(hydw4+2,3));
sj:=f10text(hydw2,19);
mgsy:=f10find('每股收益 排名',hydw2+1);
mgsy1:=f10find('凈資產(chǎn)收 排名',mgsy+1);
gpszh:=f10find(STKLABEL,mgsy);
f10str:=f10text(gpszh,73);
dm:=strleft(f10str,15);
每股收益排:strtonum(strright(f10str,3)),linethick0,PRECIS2,colorgray;
gpszh1:=f10find(STKLABEL,mgsy1);
f10str1:=f10text(gpszh1,73);
凈利潤排:strtonum(f10text(gpszh1+56,3)),linethick0,PRECIS2,colorgray;
主營收入排:strtonum(f10text(gpszh+56,3)),linethick0,precis2,colorgray;
凈資產(chǎn)收益排:strtonum(strright(f10str1,3)),linethick0,precis2,colorgray;
綜合排名值:每股收益排+凈利潤排+主營收入排+凈資產(chǎn)收益排,linethick0,precis2,colorff00a0;
zytb:=f10find('主營收入同比增長',cpbd+1);
主營收入同比:strtonum(f10text(zytb+20,10)),linethick0,PRECIS2,colorgray;
jll:=f10find('凈利潤同比增長',zytb+1);
凈利潤同比:strtonum(f10text(jll+20,10)),linethick0,PRECIS2,colorgray;
jzc:=f10find('凈資產(chǎn)收益率',jll+1);
凈資產(chǎn)收益率:strtonum(f10text(jzc+20,10)),linethick0,precis2,colorgray;
zxsj:=f10text(zxzb,zxsjsj-5-zxzb);
gxsjy:=f10text(zxsjsj,34);
{--------圖解模版---------}
DRAWTEXTABS(20,40,zxsj+''+gxsjy),ColorFFFFFF;
DRAWTEXTABS(20,60,'主營收入同比增長 '+主營收入同比+' ％'+'凈利潤同比增長'+凈利潤同比+' ％'+' 凈資產(chǎn)收益率 '+凈資產(chǎn)收益率+' ％'),ColorFFFFFF;
DRAWTEXTABS(20,80,sj+''+zjsj),ColorFFFFFF;
DRAWTEXTABS(20,100,zjh),ColorFFFFFF;
DRAWTEXTABS(20,120,'每股收益在本行業(yè)內(nèi)排第 '+每股收益排+' 位 '+'凈利潤金額在本行業(yè)內(nèi)排第 '+凈利潤排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,140,'主營收入在本行業(yè)內(nèi)排第 '+主營收入排+' 位 '+'凈資產(chǎn)收益在本行業(yè)內(nèi)排第 '+凈資產(chǎn)收益排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,160,dm+' 在本行業(yè)綜合排名分值：'+綜合排名值),Color00FFF8,linethick2;
DRAWTEXTABS(20,180,'機(jī)構(gòu)當(dāng)前評級:'+EXTRASTRING('評級')),Color00FFF8,linethick2;

三、均線主圖

{星期顯示}
yy1:=WEEKDAY;
IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(10,950,'■星期五■'),LINETHICK2,Color0048EE;end;
IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(10,950,'■星期四■'),LINETHICK2,Color3056FF;end;
IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(10,950,'■星期三■'),LINETHICK2,Color7156FF;end;
IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(10,950,'■星期二■'),LINETHICK2,Color936AFF;end;
IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(10,950,'■星期一■'),LINETHICK2,ColorD4A3FF;end;
IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(10,950,'■星期六■'),LINETHICK2,Color05FF00;end;
IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(10,950,'■星期日■'),LINETHICK2,Color0000FF;end;

{均線語言 箱體空間}
if DISPSTATUS=2 then aaa:=BARPOS;
if DISPSTATUS=1 then bbb:=BARPOS;
ddd:=aaa-bbb;
ee:=hhv(h,ddd);
MSTATUS:=BARSTATUS=2;
MA5:MA(C,5),PRECIS2;
MA10:MA(C,10),PRECIS2;
MA30:MA(C,30),PRECIS2;
MA60:MA(C,60),PRECIS2,LINETHICK2;
MA125:MA(C,125),ColorFFFF00,PRECIS2,LINETHICK2;
MA250:MA(C,250),PRECIS2,LINETHICK2;
i:=1;
IF MSTATUS and (MA5 > MA10 and MA10 > MA30 and MA5 > MA30) THEN BEGIN DRAWTEXTABS(0,i*16,'短期均線多頭排列。股價(jià)高位謹(jǐn)防筑頂。中低位當(dāng)股價(jià)向上突破5、10、30日均線，均線呈多頭排列是最佳買入時(shí)機(jī)。'+ma5+' > '+ma10+' > '+ma30+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 < MA10 and MA10 < MA30 and MA5 < MA30) THEN BEGIN DRAWTEXTABS(0,i*16,'短期均線空頭排列。股價(jià)高位謹(jǐn)防棄莊，賣盤涌出破位下跌。中低位當(dāng)股價(jià)向下突破5、10、30日均線，均線呈空頭排列時(shí)，注意觀察股價(jià)所處箱體位置。'+ma5+' < '+ma10+' < '+ma30+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > MA60 and MA30 > MA125 and MA60 > MA125) THEN BEGIN DRAWTEXTABS(0,i*16,'中期均線多頭排列。注意股價(jià)突然下跌，當(dāng)股價(jià)回檔至當(dāng)前盤面30、60、125日任一均線獲得支撐，關(guān)注均線助漲，次日股價(jià)放量向上突破，是中長期最佳買入時(shí)機(jī)。'+ma30+' > '+ma60+' > '+ma125+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 < MA60 and MA30 < MA125 and MA60 < MA125) THEN BEGIN DRAWTEXTABS(0,i*16,'中期均線空頭列排。30、60、125日中長期均線下行呈空頭排列，注意箱體上下?lián)螇夯驘o量空跌。'+ma30+' < '+ma60+' < '+ma125+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA60 > MA125 and MA125 > MA250 and MA60 > MA250) THEN BEGIN DRAWTEXTABS(0,i*16,'長期均線多頭排列。即60，125，250日均線向上多頭排列。注意：當(dāng)股價(jià)處于箱體頂部，所有均線多頭排列，股價(jià)反復(fù)震蕩不能突破，可能頂部即將形成。'+ma60+' > '+ma125+' > '+ma250+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1; END;
IF MSTATUS and (MA60 < MA125 and MA125 < MA250 and MA60 < MA250) THEN BEGIN DRAWTEXTABS(0,i*16,'長期均線空頭排列。即60，125，250日均線向下空頭排列。注意：當(dāng)所有均線空頭排列的時(shí)候，股價(jià)處于箱體的一個(gè)次高位，中位，或箱體下沿，可能是階段底部的形成。 '+ma60+' < '+ma125+' < '+ma250+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA5,MA10)) THEN BEGIN DRAWTEXTABS(0,i*16,'短期5日10日均線金叉。注意觀察股價(jià)在箱體的位置，30日和其他均線是否成為股價(jià)上漲的阻力，或股價(jià)在高位的運(yùn)行方向，判斷是反轉(zhuǎn)上漲還是下跌中途的小反彈。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA10,MA5)) THEN BEGIN DRAWTEXTABS(0,i*16,'短期5日10日均線死叉。當(dāng)股價(jià)反彈遭遇30日和其他均線的阻力形成死叉，可能是股價(jià)下跌中途的小反彈。高位區(qū)死叉，必須逃頂或止損。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA125)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價(jià)上穿半年線。在半年線上方運(yùn)行的個(gè)股被稱為強(qiáng)勢股。適合中小資金根據(jù)短線技術(shù)指標(biāo)套利操作。'),COLORFF00FF,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA125,C)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價(jià)跌破半年線。在半年線下方運(yùn)行的個(gè)股被稱為弱勢股。適合大資金進(jìn)場吸籌操作。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA250)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價(jià)上穿年線。股票筑底后，股價(jià)經(jīng)過反復(fù)震蕩洗盤上穿年線，予以鎖定跟蹤。'),COLORFF00FF,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA250,C)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價(jià)跌破年線。跌破年線，證明深度調(diào)整格局可能形成。如果后市股價(jià)繼續(xù)深跌，調(diào)整時(shí)間和空間難以預(yù)測。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA60) and CROSS(C,MA125) and CROSS(C,MA250)) THEN BEGIN DRAWTEXTABS(0,i*16,'股價(jià)一陽穿三線。5、10、30日均線三線合一，股價(jià)一陽穿三線，向上反轉(zhuǎn)，可能變盤反轉(zhuǎn)在即。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > REF(MA30,1)) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均線趨勢向上。注意：如果股價(jià)在低位中位30日均線之上，圍繞另一條重要均線縮量橫盤，隨后5-10日均線金叉，所有均線向上呈多頭排列，是中長期績優(yōu)牛股的搖籃。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > REF(MA30,1) AND MA30 < REF(MA30,1)*1.001) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均線趨勢走平。需觀察5日和10日均線方向，如30日均線發(fā)出趨勢向下信號，5日10日均線形成死叉，注意減倉或出貨。'),COLORFFCC66,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 < REF(MA30,1)) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均線趨勢向下。關(guān)注股價(jià)所處箱體位置，如股價(jià)當(dāng)前上漲或下跌時(shí)，則需觀察箱體阻力支撐位置。如果股價(jià)處于遠(yuǎn)離30日均線位置，一般情況下股價(jià)反彈空間有限。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 > REF(MA5,1)*1.015) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均線強(qiáng)勁向上。需觀察股價(jià)所處其他均線和箱體位置,如果收盤時(shí)股價(jià)突然跌破5日均線，則需觀察箱體下方支撐，提防空頭陷阱，股價(jià)轉(zhuǎn)向。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 > REF(MA5,1) AND MA5 < REF(MA5,1)*1.005) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均線方向不明。當(dāng)股價(jià)連續(xù)跌破5日均線和箱體下沿，導(dǎo)致股價(jià)方向開始向下，績優(yōu)股應(yīng)適當(dāng)做空；股價(jià)在箱體內(nèi)則需觀察股價(jià)下方的重要均線位置，可否獲得支撐。'),COLORYELLOW,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 < REF(MA5,1)*0.985) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均線快速向下，短線風(fēng)險(xiǎn)可能降臨。需結(jié)合其他均線運(yùn)行方向分析，如果股價(jià)在一個(gè)大箱體中，則需觀察下方均線支撐，偌收盤前股價(jià)獲得支撐，5-10均線金叉并數(shù)日向上，則可順勢而為做多。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
if DISPSTATUS=2 then begin;
var100:='■所屬行業(yè)板塊：';
if inblock('電力')=1 then var100:=var100+'電力。';
if inblock('電力設(shè)備')=1 then var100:=var100+'電力設(shè)備。';
if inblock('電器')=1 then var100:=var100+'電器。';
if inblock('電子信息')=1 then var100:=var100+'電子信息。';
if inblock('房地產(chǎn)')=1 then var100:=var100+'房地產(chǎn)。';
if inblock('紡織服裝')=1 then var100:=var100+'紡織服裝。';
if inblock('鋼鐵')=1 then var100:=var100+'鋼鐵。';
if inblock('工程建筑')=1 then var100:=var100+'工程建筑。';
if inblock('供水供氣')=1 then var100:=var100+'供水供氣。';
if inblock('化工')=1 then var100:=var100+'化工。';
if inblock('化纖')=1 then var100:=var100+'化纖。';
if inblock('機(jī)械')=1 then var100:=var100+'機(jī)械。';
if inblock('計(jì)算機(jī)')=1 then var100:=var100+'計(jì)算機(jī)。';
if inblock('建材')=1 then var100:=var100+'建材。';
if inblock('交通工具')=1 then var100:=var100+'交通工具。';
if inblock('交通設(shè)施')=1 then var100:=var100+'交通設(shè)施。';
if inblock('教育傳媒')=1 then var100:=var100+'教育傳媒。';
if inblock('旅游酒店')=1 then var100:=var100+'旅游酒店。';
if inblock('煤炭石油')=1 then var100:=var100+'煤炭石油。';
if inblock('釀酒食品')=1 then var100:=var100+'釀酒食品。';
if inblock('農(nóng)林牧漁')=1 then var100:=var100+'農(nóng)林牧漁。';
if inblock('其他行業(yè)')=1 then var100:=var100+'其他行業(yè)。';
if inblock('汽車')=1 then var100:=var100+'汽車。';
if inblock('汽配')=1 then var100:=var100+'汽配。';
if inblock('券商')=1 then var100:=var100+'券商。';
if inblock('商業(yè)連鎖')=1 then var100:=var100+'商業(yè)連鎖。';
if inblock('石化')=1 then var100:=var100+'石化。';
if inblock('通信')=1 then var100:=var100+'通信。';
if inblock('外貿(mào)')=1 then var100:=var100+'外貿(mào)。';
if inblock('醫(yī)藥')=1 then var100:=var100+'醫(yī)藥。';
if inblock('儀電儀表')=1 then var100:=var100+'儀電儀表。';
if inblock('銀行類')=1 then var100:=var100+'銀行類。';
if inblock('有色金屬')=1 then var100:=var100+'有色金屬。';
if inblock('運(yùn)輸物流')=1 then var100:=var100+'運(yùn)輸物流。';
if inblock('造紙印刷')=1 then var100:=var100+'造紙印刷。';
if inblock('其他制造業(yè)')=1 then var100:=var100+'其他制造業(yè)。';
if inblock('安徽')=1 then var100:=var100+'所屬地區(qū)：安徽。';
if inblock('北京')=1 then var100:=var100+'所屬地區(qū)：北京。';
if inblock('福建')=1 then var100:=var100+'所屬地區(qū)：福建。';
if inblock('甘肅')=1 then var100:=var100+'所屬地區(qū)：甘肅。';
if inblock('廣東')=1 then var100:=var100+'所屬地區(qū)：廣東。';
if inblock('廣西')=1 then var100:=var100+'所屬地區(qū)：廣西。';
if inblock('貴州')=1 then var100:=var100+'所屬地區(qū)：貴州。';
if inblock('海南')=1 then var100:=var100+'所屬地區(qū)：海南。';
if inblock('河北')=1 then var100:=var100+'所屬地區(qū)：河北。';
if inblock('河南')=1 then var100:=var100+'所屬地區(qū)：河南。';
if inblock('黑龍江')=1 then var100:=var100+'所屬地區(qū)：黑龍江。';
if inblock('湖北')=1 then var100:=var100+'所屬地區(qū)：湖北。';
if inblock('湖南')=1 then var100:=var100+'所屬地區(qū)：湖南。';
if inblock('吉林')=1 then var100:=var100+'所屬地區(qū)：吉林。';
if inblock('江蘇')=1 then var100:=var100+'所屬地區(qū)：江蘇。';
if inblock('江西')=1 then var100:=var100+'所屬地區(qū)：江西。';
if inblock('遼寧')=1 then var100:=var100+'所屬地區(qū)：遼寧。';
if inblock('內(nèi)蒙古')=1 then var100:=var100+'所屬地區(qū)：內(nèi)蒙古。';
if inblock('寧夏')=1 then var100:=var100+'所屬地區(qū)：寧夏。';
if inblock('青海')=1 then var100:=var100+'所屬地區(qū)：青海。';
if inblock('山東')=1 then var100:=var100+'所屬地區(qū)：山東。';
if inblock('山西')=1 then var100:=var100+'所屬地區(qū)：山西。';
if inblock('陜西')=1 then var100:=var100+'所屬地區(qū)：陜西。';
if inblock('上海')=1 then var100:=var100+'所屬地區(qū)：上海。';
if inblock('深圳')=1 then var100:=var100+'所屬地區(qū)：深圳。';
if inblock('四川')=1 then var100:=var100+'所屬地區(qū)：四川。';
if inblock('天津')=1 then var100:=var100+'所屬地區(qū)：天津。';
if inblock('西藏')=1 then var100:=var100+'所屬地區(qū)：西藏。';
if inblock('新疆')=1 then var100:=var100+'所屬地區(qū)：新疆。';
if inblock('云南')=1 then var100:=var100+'所屬地區(qū)：云南。';
if inblock('浙江')=1 then var100:=var100+'所屬地區(qū)：浙江。';
if inblock('重慶')=1 then var100:=var100+'所屬地區(qū)：重慶。';
if inblock('3G')=1 then var100:=var100+' 3G概念→';
if inblock('CDM項(xiàng)目')=1 then var100:=var100+' CDM項(xiàng)目概念→';
if inblock('H股')=1 then var100:=var100+' H股概念→';
if inblock('QFII持股')=1 then var100:=var100+'QFII持股概念→';
if inblock('ST')=1 then var100:=var100+'ST概念→';
if inblock('S板')=1 then var100:=var100+'S板概念→';
if inblock('奧運(yùn)')=1 then var100:=var100+'奧運(yùn)概念→';
if inblock('參股金融')=1 then var100:=var100+'參股金融概念→';
if inblock('成渝特區(qū)')=1 then var100:=var100+'成渝特區(qū)概念→';
if inblock('出口退稅')=1 then var100:=var100+'出口退稅概念→';
if inblock('次新股')=1 then var100:=var100+'次新股概念→';
if inblock('大訂單')=1 then var100:=var100+'大訂單概念→';
if inblock('大盤')=1 then var100:=var100+'大盤概念→';
if inblock('中盤')=1 then var100:=var100+'中盤概念→';
if inblock('小盤')=1 then var100:=var100+'小盤概念→';
if inblock('低價(jià)')=1 then var100:=var100+'低價(jià)概念→';
if inblock('低市凈率')=1 then var100:=var100+'低市凈率→';
if inblock('中價(jià)')=1 then var100:=var100+'中價(jià)概念→';
if inblock('定向增發(fā)')=1 then var100:=var100+'定向增發(fā)概念→';
if inblock('封閉基金')=1 then var100:=var100+'封閉基金概念→';
if inblock('高價(jià)')=1 then var100:=var100+'高價(jià)概念→';
if inblock('公募增發(fā)')=1 then var100:=var100+'公募增發(fā)概念→';
if inblock('股權(quán)改革')=1 then var100:=var100+'股權(quán)改革概念→';
if inblock('股權(quán)激勵(lì)')=1 then var100:=var100+'股權(quán)激勵(lì)概念→';
if inblock('股權(quán)投資')=1 then var100:=var100+'股權(quán)投資概念→';
if inblock('航天軍工')=1 then var100:=var100+'航天軍工概念→';
if inblock('滬深300')=1 then var100:=var100+'滬深300概念→';
if inblock('基金重倉')=1 then var100:=var100+'基金重倉→';
if inblock('節(jié)能環(huán)保')=1 then var100:=var100+'節(jié)能環(huán)保概念→';
if inblock('可轉(zhuǎn)債')=1 then var100:=var100+'可轉(zhuǎn)債概念→';
if inblock('農(nóng)業(yè)龍頭')=1 then var100:=var100+'農(nóng)業(yè)龍頭概念→';
if inblock('清欠')=1 then var100:=var100+'清欠概念→';
if inblock('權(quán)證')=1 then var100:=var100+'權(quán)證概念→';
if inblock('券商重倉')=1 then var100:=var100+'券商重倉概念→';
if inblock('社保重倉')=1 then var100:=var100+'社保重倉概念→';
if inblock('深成40')=1 then var100:=var100+'深成40概念→';
if inblock('數(shù)字電視')=1 then var100:=var100+'數(shù)字電視概念→';
if inblock('稅收優(yōu)惠')=1 then var100:=var100+'稅收優(yōu)惠概念→';
if inblock('送轉(zhuǎn)')=1 then var100:=var100+'送轉(zhuǎn)概念→';
if inblock('外資并購')=1 then var100:=var100+'外資并購概念→';
if inblock('網(wǎng)絡(luò)游戲')=1 then var100:=var100+'網(wǎng)絡(luò)游戲概念→';
if inblock('稀缺資源')=1 then var100:=var100+'稀缺資源概念→';
if inblock('預(yù)虧預(yù)減')=1 then var100:=var100+'預(yù)虧預(yù)減概念→';
if inblock('預(yù)盈預(yù)增')=1 then var100:=var100+'預(yù)盈預(yù)增概念→';
if inblock('整體上市')=1 then var100:=var100+'整體上市概念→';
if inblock('低市盈利')=1 then var100:=var100+'低市盈利概念→';
if inblock('新能源')=1 then var100:=var100+'新能源概念→';
if inblock('新材料')=1 then var100:=var100+'新材料概念→';
if inblock('新上海')=1 then var100:=var100+'新上海概念→';
if inblock('注資承諾')=1 then var100:=var100+'注資承諾概念→';
if inblock('中小板指')=1 then var100:=var100+'中小板指概念→';
end;
DRAWTEXTABS(10,160,var100),Color00FF00;
均線60角度:=atan((MA(C,60)/ref(MA(C,60),3)-1)*100)*180/3.14159;
均線125角度:=atan((MA(C,125)/ref(MA(C,125),3)-1)*100)*180/3.14159;
均線250角度:=atan((MA(C,250)/ref(MA(C,250),3)-1)*100)*180/3.14159;
DRAWTEXTABS(10,140,'■60天均線角度:'+NUMTOSTRN(均線60角度,2)+''),ColorRED;
DRAWTEXTABS(160,140,'■125天均線角度:'+NUMTOSTRN(均線125角度,2)+''),ColorRED;
DRAWTEXTABS(315,140,'■250天均線角度:'+NUMTOSTRN(均線250角度,2)+''),ColorRED;
DRAWTEXTABS(10,180,'■當(dāng)前機(jī)構(gòu)評級:'+EXTRASTRING('評級')),LINETHICK1,Color00FF00;
DRAWTEXTABS(10,200,'------------------------------------------------------------------------------------'),LINETHICK1,Color80BEFF;
{箱體空間}
NN:= DISPSTATUS=2;
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B1:=FILTER(A1,3);
C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);
A2:=REF(LOW,3)=LLV(LOW,2*3+1);
B2:=FILTER(A2,3);
C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1=E2));
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);
L2:=LD OR BARSTATUS OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H1,X2)>0,HHVBARS(IF(H1,HIGH,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);
UU:=BACKSET(BARSTATUS,BARSLAST(LD)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
XX:=WW>REF(WW,1);
UU2:=BACKSET(BARSTATUS,BARSLAST(HD)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
XX2:=WW2>REF(WW2,1);
前一低支撐:REF(L,BARSLAST(VV)),PRECIS2,COLOR99FF66,LINETHICK1,DOTLINE;
箱體下沿:REF(L,BARSLAST(XX)),ColorFFFF00,PRECIS2;
前一高壓力:REF(H,BARSLAST(VV2)),PRECIS2,COLOR99FF66,LINETHICK1,DOTLINE;
箱體上沿:REF(H,BARSLAST(XX2)),PRECIS2,Color00FFFF;
DRAWTEXT(nn,前一低支撐,'前一低支撐: '+NUMTOSTRN(前一低支撐,2)+'元'),ALIGN2,Color00dd00,VALIGN0;
DRAWTEXT(nn,前一高壓力,'前一高壓力: '+NUMTOSTRN(前一高壓力,2)+'元'),ALIGN2,Color00dd00,VALIGN2;
DRAWTEXT(nn,箱體下沿,'箱體下沿: '+NUMTOSTRN(箱體下沿,2)+'元'),ALIGN2,ColorFFFF00,LINETHICK1,VALIGN0;
DRAWTEXT(nn,箱體上沿,'箱體上沿: '+NUMTOSTRN(箱體上沿,2)+'元'),ALIGN2,Color00FFFF,LINETHICK1,VALIGN2;


四、拾金圖（主圖）

SSL:=EMA(CLOSE,3);
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
MM:=(IF(((DATATYPE > 5) AND (DATATYPE < 9)),MA(MMV,1),IF((DATATYPE = 5),MA(MMV,4),IF((DATATYPE = 4),MA(MMV,8),IF((DATATYPE = 3),MA(MMV,16),IF((DATATYPE = 2),MA(MMV,32),0))))) );
STICKLINE(((SSL > MM) ),SSL,MM,0.1,0),colorred;
SA:=(MM * 0.985);
SS:=(MA(CLOSE,5));
DD:=(MA(CLOSE,13));
GG:=(MA(CLOSE,21));
財(cái)神爺:IF(((SSL > MM)),MM,SA),LINETHICK2,colorFF00FF;
VAR2Y:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
VAR3Y:=(((CLOSE - REF(OPEN,29)) / REF(OPEN,29)) * 100);
VAR4Y:=REF(CLOSE,1);
VAR5Y:=((SMA(MAX((CLOSE - VAR4Y),0),6,1) / SMA(ABS((CLOSE - VAR4Y)),6,1)) * 100);
VAR6Y:=((SMA(MAX((CLOSE - VAR4Y),0),12,1) / SMA(ABS((CLOSE - VAR4Y)),12,1)) * 100);
VAR7Y:=((SMA(MAX((CLOSE - VAR4Y),0),24,1) / SMA(ABS((CLOSE - VAR4Y)),24,1)) * 100);
VAR8Y:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);
VAR9Y:=SMA(VAR8Y,3,1);
VARAY:=SMA(VAR9Y,3,1);
VARBY:=((3 * VAR9Y) - (2 * VARAY));
VARCY:=(CROSS(VAR5Y,10) AND (VAR3Y < (0 - (28 * 20))));
VARDY:=((100 - CROSS(76,VAR5Y)) AND (VAR3Y > (5 * 20)));
DRAWICON(((CROSS(76,VAR5Y) AND (VAR3Y > 5)) ),(HIGH * 1.01),5),colorFFFFFF;
VAREY:=((((CROSS(VAR9Y,VARAY) AND (VARAY < 10)) AND (VAR3Y < (0 - 30))) AND (VAR2Y > 3)) * 30);
VARFY:= - ((((VARAY < 11) AND (VAR5Y < 15)) AND (VAR3Y < (0 - 26))) * 10);
DRAWICON((CROSS(VARFY,(0 - 9))),(LOW * 0.998),4);
能量線:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) * 4)));

上開:=o;
上收:=c;
上高:=h;
上低:=l;
JJ:=(上開+上高+上低)/3;
A:=EMA(JJ,4);
B:REF(A,1),POINTDOT,COLORYELLOW;
智能黃金線:A,COLORYELLOW,LINETHICK1;
STICKLINE(((SSL < MM) ),財(cái)神爺,智能黃金線,0.1,0),COLORCYAN;
VA1:=EMA(上收,8);
VA2:=EMA(上收,20);
DRAWTEXT(CROSS(VA2,VA1),VA1*1.10,'止損'),ALIGN1,COLORyellow;
DRAWTEXT(CROSS(VA1,VA2)AND(C>=O)AND 智能黃金線>REF(智能黃金線,1),VA1*0.98,'買入'),COLOR00FF00;
選手Ａ:=MA(上收,3);
箱頂Ａ:=MA(REF(HHV(上收,6),1),3);
箱底Ａ:=MA(REF(LLV(上收,3),1),3);
t1:=MA(上收,20)>=REF(MA(上收,20),1);
t2:=CROSS(選手Ａ,箱底Ａ) AND 箱頂Ａ/箱底Ａ>100/100 AND t1;
t3:=CROSS(箱頂Ａ,選手Ａ) AND 箱頂Ａ/箱底Ａ>100/100;
選手:=MA(上收,2);
箱頂:MA(REF(HHV(上收,30),1),2),COLOR0000FF,LINETHICK2;
箱底:MA(REF(LLV(上收,30),1),2),COLOR00FF00,LINETHICK2;
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);
DRAWTEXT(Var3 >=Var4 and BARSTATUS=2,箱頂,'--中期好'),COLOR00FFFF;
DRAWTEXT( Var3<Var4 and BARSTATUS=2,箱頂,'--中期壞'),COLORf0f000;
DRAWTEXT( A>B and BARSTATUS=2,箱底,'--短期好'),COLOR00FFFF;
DRAWTEXT(A<B and BARSTATUS=2,箱底,'--短期壞'),COLORf0f000;

mms:=ma(sma((l+h+2*c)/4-ref((l+h+2*c)/4,1),5,1)/sma(abs((l+h+2*c)/4-ref((l+h+2*c)/4,1)),5,1)*100,1)+50;
g1:=if(-mms>95,0,20);
uoo:=(-(((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 and g1)+1);
DRAWTEXT(CROSS(Var3,Var4)AND(C>=O)AND Var3<40 AND uoo>0,箱底,''),ALIGN0,COLORf00ff0;
DRAWTEXT(CROSS(Var4,Var3) AND Var4>75 ,箱頂*1.03,'減磅'),COLORf0f000;

{K線}
STICKLINE(C>=O,C,O,7,0),COLORRED;
STICKLINE(C>=O,C,O,4,0),COLORB0B0FF;
STICKLINE(C>=O,C,O,2,0),COLORYELLOW;
STICKLINE(C>=O,H,L,0,0),COLORYELLOW;
STICKLINE(C<=O,C,O,7,0),colorFFAA00;
STICKLINE(C<=O,C,O,4,0),COLORCYAN;
STICKLINE(C<=O,C,O,2,0),COLORCYAN;
STICKLINE(C<=O,H,L,0,0),COLORCYAN;

{K線賣提示}
Qc0:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
stickline(Qc0>=91 AND (CLOSE-LLV(CLOSE,5))/(HHV(CLOSE,5)-LLV(CLOSE,5))*100>99.9,open,close,3,0),COLOR3366FF;
stickline(Qc0>=91 AND (CLOSE-LLV(CLOSE,5))/(HHV(CLOSE,5)-LLV(CLOSE,5))*100>99.9,H,L,0.5,0),COLOR3366FF;

{K線超賣提示}
SQ1:=SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100;
SQ2:=SMA(MAX(C-REF(C,1),0),7,1)/SMA(ABS(C-REF(C,1)),7,1)*100;
CM1:=IF(SQ1<12,30,0);
CM2:=IF(SQ2<12,30,0);
Zb1:=(CLOSE-LLV(CLOSE,10))/(HHV(CLOSE,10)-LLV(CLOSE,10))*100;
www:=Zb1<1;
w:=if(WWW,-20,0);
A01:=SMA(ABS((LOW - REF(LOW,1))),3,1) / SMA(MAX((LOW - REF(LOW,1)),0),3,1) *100;
A02:=EMA(IF(CLOSE *1.3,A01 *10,A01 /10),3);
A03:=LLV(LOW, 30);
A04:=HHV(A02, 30);
A05:=EMA(IF((LOW <= A03),(A02 + A04*2)/2,0),3) /6180 *2.5;
A06:=IF((A05 >15),15,A05);
Kx:=if(A06>=1.7,-20,0);
Zy:=MA(((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+2*(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100+3*(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100)/6,3);
Zy1:=IF(Zy<-6,-20,0);
KS:=(((CLOSE - SMA(CLOSE,13,1)) / SMA(CLOSE,13,1)) * (0 - 100));
RKS:=REF(KS,1);
MLS:=((((RKS / KS) > 1.23) AND (RKS > 13)) AND ((CLOSE / REF(CLOSE,1)) > 1.03));
{超賣一}STICKLINE(CM1 and IF(Kx and w and Zy1,-16,10)<0,L,L*0.998,7,0),Color0089FF{超賣一:橙};
{超賣二}STICKLINE(IF(Kx and w and Zy1,-16,10)<0 and CM1,L*0.998,L*0.996,7,0),COLORgreen{超賣二:綠};
{超跌}STICKLINE(CM1 and IF(Kx and w and Zy1,-16,10)<0 AND(KS>13),L*0.996,L*0.994,7,0),coloryellow{超跌};
{反彈}STICKLINE((MLS=1),L,L*0.998,7,0),ColorFFFF00;

{K線買提示}
趨勢線:=FORCAST(CLOSE,7);
Fk:=100*(C-REF(C,1))/REF(C,1);
pk1:=IF(C<REF(O,1) AND fk<0,1,0);
pk2:=IF(C<REF(O,2) AND fk<0,1,0);
pk3:=(((CLOSE / OPEN) > 1.04) AND (CLOSE <(SMA(HIGH,21,2) * 1.05))) AND ((CLOSE - REF(CLOSE,1)) > 0);
stickline((Pk1=0 AND REF(Pk1,1)=1 AND Pk2=0 AND REF(Pk2,1)=1),open,CLOSE,3,0),COLORMAGENTA;
stickline((Pk1=0 AND REF(Pk1,1)=1 AND Pk2=0 AND REF(Pk2,1)=1),H,L,0.5,0),COLORMAGENTA;
STICKLINE(pk3 AND(趨勢線>REF(趨勢線,1)OR智能黃金線>REF(智能黃金線,1)),CLOSE,OPEN,3,0),COLORMAGENTA;
STICKLINE(pk3 AND(趨勢線>REF(趨勢線,1)OR智能黃金線>REF(智能黃金線,1)),H,L,0.5,0),COLORMAGENTA;

買進(jìn)價(jià):=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
買進(jìn)條件:=cross(c,買進(jìn)價(jià)) and 買進(jìn)價(jià)>ref(買進(jìn)價(jià),1);
STICKLINE(買進(jìn)條件 AND 財(cái)神爺>智能黃金線AND 智能黃金線>REF(智能黃金線,1),L,L*0.998,7,0),COLORWHITE;

買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
DRAWTEXT(cross(買線,賣線)AND 箱頂>=REF(箱頂,1),箱底,''),ALIGN0,color00ffff;
stickline(cross(買線,賣線),open,close,3,0),color00ffff;
stickline(cross(買線,賣線),h,l,0.5,0),color00ffff;

A4:=MA(CLOSE,20);
A5:=(CLOSE > MA(CLOSE,5));
A6:=(MA(CLOSE,5) > MA(CLOSE,10));
A7:=(CLOSE > MA(CLOSE,10));
A8:=(MA(CLOSE,5) > MA(CLOSE,20));
A9:=(CLOSE > MA(CLOSE,20));
A10:=REF(A4,1);
A11:=(A4 > A10);
AVX:=(((((IF(A5,10,(0 - 10)) + IF(A6,10,(0 - 10))) + IF(A7,10,(0 - 10))) + IF(A8,10,(0 - 10))) + IF(A9,10,(0 - 10))) + IF(A11,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
阻力位:=IF((CLOSE > 200),(CLOSE * 1.01),(CLOSE * 1.07));
阻力位１:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位);
止損位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93));
止損位１:=IF((CLOSE < 10),(CLOSE * 0.95),止損位);
TJTS1:=BARSTATUS=2 and c<200;
TJTS2:=BARSTATUS=2 and c>200;
k2:=hhv(h,barslast(DISPSTATUS=1)+1);
DRAWTEXT(TJTS1 or TJTS2 ,k2*0.99,'阻力位:'+NUMTOSTRN(阻力位１,2)+' '),coloryellow,ALIGN2;
DRAWTEXT(TJTS1 or TJTS2 ,k2*0.99,'止損位:'+NUMTOSTRN(止損位１,2)+' '),coloryellow ,ALIGN2;

DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股的量能理想，有明顯走強(qiáng)跡象，可以考慮中線進(jìn)場參與，倉位在2/3左右。 '),ALIGN2,colorDC143C;
DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股雖然走勢趨強(qiáng)，但量能還顯不足，可以考慮短線進(jìn)場，倉位在1/2左右。 '),ALIGN2,colorDC143C;
DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股量價(jià)配合良好，但相對其它股票并沒有明顯走強(qiáng)，可以考慮短線進(jìn)場，倉位1/2左右。 '),ALIGN2,colorDC143C;
DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股形態(tài)尚可，但量能不足，股票也未完全走強(qiáng)，可以短線參與，倉位1/3左右。 '),ALIGN2,color0000FF;
DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股形態(tài)變壞，但走勢相對其它股票尚可，重倉者減持大半，清倉者可以觀望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股隨大盤一起下跌，程明顯縮量走勢，考慮到大盤風(fēng)險(xiǎn)，減持或清倉。 '),ALIGN2,color00FF00;


DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股放量下跌，走勢明顯偏弱，離場觀望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股縮量下跌，走勢偏弱，離場觀望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股形態(tài)良好，強(qiáng)勢明顯，量能充足，可以繼續(xù)持有。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股上行趨勢不變，強(qiáng)勢依然，但量能開始轉(zhuǎn)弱，注意風(fēng)險(xiǎn)。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股仍然具備上漲潛力，但股性偏弱，可考慮減倉。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股走勢趨弱，量能不足，減持大部分籌碼。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股形態(tài)不佳，注意成交量的變化，但目前不適合參與。 '),ALIGN2;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'該股趨勢不明，股價(jià)偏弱，注意量能變化，目前不宜參與。 '),ALIGN2;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股有走強(qiáng)跡象，但量能不足，趨勢不明，不適合操作。 '),ALIGN2;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) ,k2*0.99,'該股走勢太弱，沒有參與價(jià)值。 '),ALIGN2;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 >= V2)) ,k2*0.99,'大盤量能理想，有明顯走強(qiáng)跡象，可以考慮中線進(jìn)場參與，倉位在2/3左右， '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 >= V2)) ,k2*0.98,' 如前期經(jīng)過一輪下跌，此時(shí)為最佳買點(diǎn)，但如果前期有過一段漲幅則介入需謹(jǐn)慎。 '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 < V2)) ,k2*0.99,'大盤雖然走勢趨強(qiáng)，但量能還顯不足，如果前期經(jīng)過一輪下跌， '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 < V2)) ,k2*0.98,' 可以考慮短線進(jìn)場，倉位在1/2左右，一旦量能放大可以加倉買入。 '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(1,AVX) AND (V1 >= V2)) ,k2*0.99,'大盤形態(tài)走壞，重倉者可以減去大部分倉位。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS2 and(CROSS(1,AVX) AND (V1 < V2)) ,k2*0.99,'大盤縮量調(diào)整，注意風(fēng)險(xiǎn)，短線清倉觀望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS2 and(((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) ,k2*0.99,'大盤走勢良好，量能理想，可以繼續(xù)持有強(qiáng)勢股。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS2 and(((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) ,k2*0.99,'大盤形態(tài)良好，但量能稍顯不足，隨時(shí)準(zhǔn)備減倉。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS2 and(((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) ,k2*0.99,'大盤趨勢不明，注意成交量變化，目前不適宜進(jìn)場。 '),ALIGN2;
DRAWTEXT(TJTS2 and(((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) ,k2*0.99,'大盤趨勢向下，量能萎縮，不適合進(jìn)場。 '),ALIGN2;

?

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?

 

有思路，想編寫各種指標(biāo)公式，交易模型，選股公式，還原公式的朋友

可聯(lián)系技術(shù)人員 QQ: 262069696  或微信：cxhjy888 進(jìn)行 有償收費(fèi) 編寫！(注：由于人數(shù)限制，QQ或微信請選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請簡單備注下您的需求，否則無法通過。謝謝您！)

（怎么收費(fèi)，代編流程等詳情請點(diǎn)擊查閱！）

(注：由于人數(shù)限制，QQ或微信請選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請簡單備注下您的需求，否則無法通過。謝謝您！)