九转新编指标（通达信公式 副图 源码 测试图）



MMM:=CURRBARSCOUNT<90;

{========}周期类型:=PERIOD;WWW2:=IF(周期类型=5,'周 ','月 ');DRAWRECTREL(225,0,250,1000,RGB(50,80,50));DRAWRECTREL(230,0,245,1000,RGB(20,50,20));DRAWTEXT_FIX(C>0,0.234,0.15, 0,'个 '),COLORWHITE;DRAWTEXT_FIX(C>0,0.234,0.33, 0,'股 '),COLORWHITE;DRAWTEXT_FIX(C>0,0.234,0.51, 0,WWW2),COLORWHITE;DRAWTEXT_FIX(C>0,0.234,0.69, 0,'线 '),COLORWHITE;DRAWRECTREL(978,0,1000,1000,RGB(50,80,50));DRAWRECTREL(981,0,997,1000,RGB(20,50,20));DRAWTEXT_FIX(C>0,0.985,0.20, 0,'好 '),COLORWHITE;DRAWTEXT_FIX(C>0,0.985,0.50, 0,'参 '),COLORWHITE;DRAWTEXT_FIX(C>0,0.985,0.80, 0,'谋 '),COLORWHITE;{==============内外盘================}DRAWRECTREL(0,0,225,1000,RGB(50,78,50));{左上横色彩};DRAWRECTREL(5,50,220,950,RGB(50,78,50));{左上横色彩};{=====个股K线=========}定位A:=93;根数A:=27;ZQZ:=TOTALBARSCOUNT;ZQ1:=BARSCOUNT(C);ZH:=ISLASTBAR;N1:=ZQZ-ZQ1;{周K线显示开始位置}HH1:=IF(周期类型=6,FSKY.ZH#MONTH,IF(周期类型=5,FSKY.ZH#WEEK,IF(周期类型=4,FSKY.ZH#DAY,DRAWNULL))),LINETHICK;LL1:=IF(周期类型=6,FSKY.ZL#MONTH,IF(周期类型=5,FSKY.ZL#WEEK,IF(周期类型=4,FSKY.ZL#DAY,DRAWNULL))),LINETHICK;CAC1:=IF(周期类型=6,FSKY.ZC#MONTH,IF(周期类型=5,FSKY.ZC#WEEK,IF(周期类型=4,FSKY.ZC#DAY,DRAWNULL))),LINETHICK;OO1:=IF(周期类型=6,FSKY.ZO#MONTH,IF(周期类型=5,FSKY.ZO#WEEK,IF(周期类型=4,FSKY.ZO#DAY,DRAWNULL))),LINETHICK;QA1:=IF(周期类型=6,FSKY.DT1#MONTH,IF(周期类型=5,FSKY.DT1#WEEK,IF(周期类型=4,FSKY.DT1#DAY,DRAWNULL))),LINETHICK;QA2:=QA1>REF(QA1,1);{分K线更后}QA3:=SUM(QA2,0);{当前分K线位置}QA4:=CONST(QA3)-QA3;SAAU:=IF(ZH,0,SUMBARS(QA2,N1-QA4)-1);CA1:=REF(CAC1,SAAU);OA1:=REF(OO1,SAAU);HA1:=REF(HH1,SAAU);LA1:=REF(LL1,SAAU);ARC:=REFX(CA1,定位A);ARO:=REFX(OA1,定位A);ARH:=REFX(HA1,定位A);ARL:=REFX(LA1,定位A);AJ4:=ARC>=REF(ARC,1);AJ5:=ARC<REF(ARC,1);过滤A:=ARH=REF(ARH,1) AND ARL=REF(ARL,1);WA:=N1<定位A+根数A  AND 过滤A=0;{周K线显示区域}高值1:=CONST(HHV(ARH,120));低值1:=CONST(LLV(ARL,120));偏值1:=(高值1-低值1);调高低:=90;高A1:=IF(WA ,调高低/(偏值1/(ARH-低值1)),DRAWNULL);开1:=IF(WA ,调高低/(偏值1/(ARO-低值1)),DRAWNULL);低1:=IF(WA,调高低/(偏值1/(ARL-低值1)),DRAWNULL);收1:=IF(WA,调高低/(偏值1/(ARC-低值1)),DRAWNULL);STICKLINE(WA AND AJ4,高A1,低1,0,0),COLORRED;STICKLINE(WA AND AJ5,高A1,低1,0,0),COLORGREEN;STICKLINE(WA AND AJ4,收1,开1,2,0),COLORRED;STICKLINE(WA AND AJ5,收1,开1,2,0),COLORGREEN;{=====色条=====}DRAWRECTREL(250,0,978,190,RGB(50,80,50));DRAWRECTREL(250,270,978,460,RGB(50,80,50));DRAWRECTREL(250,540,978,730,RGB(50,80,50));DRAWRECTREL(250,820,978,1000,RGB(50,80,50));{==========个股九转============}AP1:=C<=REF(C,4) OR C<=REF(L,4);条约A8:=AP1 AND REF(AP1=0,8) AND REF(AP1=1,1)  AND EVERY(AP1,8); 条约A9:=AP1 AND REF(AP1=0,9) AND REF(AP1=1,1)  AND EVERY(AP1,9); BA1:=C>=REF(C,4) OR C>=REF(H,4);条约BA8:=BA1 AND REF(BA1=0,8) AND REF(BA1=1,1)  AND EVERY(BA1,8); 条约BA9:=BA1 AND REF(BA1=0,9) AND REF(BA1=1,1)  AND EVERY(BA1,9); XXX:=条约A8 OR 条约BA8;DRAWNUMBER(  XXX=0  AND REFX(XXX=1,1) AND MMM ,68.3,7),COLORWHITE;DRAWNUMBER(  XXX=0  AND REFX(XXX=0,1) AND REFX(XXX=1,2)AND MMM ,68.3,6),COLORWHITE;DRAWNUMBER(  XXX=0  AND REFX(XXX=0,2) AND REFX(XXX=1,3)AND MMM ,68.3,5),COLORWHITE;DRAWNUMBER(  XXX=0  AND REFX(XXX=0,3) AND REFX(XXX=1,4)AND MMM ,68.3,4),COLORWHITE;DRAWNUMBER(  XXX=0  AND REFX(XXX=0,4) AND REFX(XXX=1,5)AND MMM ,68.3,3),COLORWHITE;DRAWNUMBER(  XXX=0  AND REFX(XXX=0,5) AND REFX(XXX=1,6)AND MMM ,68.3,2),COLORWHITE;DRAWNUMBER(  XXX=0  AND REFX(XXX=0,6) AND REFX(XXX=1,7)AND MMM ,68.3,1),COLORWHITE;DRAWNUMBER(条约A8 AND MMM ,68.3,8),COLORWHITE;DRAWNUMBER(条约A9 AND MMM,68.3,9),COLORWHITE;DRAWNUMBER(条约BA8 AND MMM,68.3,8),COLORWHITE;DRAWNUMBER(条约BA9 AND MMM,68.3,9),COLORWHITE;STICKLINE(条约A8 OR 条约A9 AND MMM,57,58,3,0),COLORRED;STICKLINE(条约BA8 OR 条约BA9 AND MMM,71,70,3,0),COLORGREEN;{=====大盘九转=====}CP1:="999999$C"<=REF("999999$C",4) OR "999999$C"<=REF("999999$L",4);条约AF8:=CP1 AND REF(CP1=0,8) AND REF(CP1=1,1)  AND EVERY(CP1,8); 条约AF9:=CP1 AND REF(CP1=0,9) AND REF(CP1=1,1)  AND EVERY(CP1,9); DA1:="999999$C">=REF("999999$C",4) OR "999999$C">=REF("999999$H",4);条约BF8:=DA1 AND REF(DA1=0,8) AND REF(DA1=1,1)  AND EVERY(DA1,8); 条约BF9:=DA1 AND REF(DA1=0,9) AND REF(DA1=1,1)  AND EVERY(DA1,9); XXXA:=条约AF8 OR 条约BF8;DRAWNUMBER(  XXXA=0  AND REFX(XXXA=1,1) AND MMM,40,7),COLORWHITE;DRAWNUMBER(  XXXA=0  AND REFX(XXXA=0,1) AND REFX(XXXA=1,2) AND MMM,40,6),COLORWHITE;DRAWNUMBER(  XXXA=0  AND REFX(XXXA=0,2) AND REFX(XXXA=1,3) AND MMM,40,5),COLORWHITE;DRAWNUMBER(  XXXA=0  AND REFX(XXXA=0,3) AND REFX(XXXA=1,4) AND MMM,40,4),COLORWHITE;DRAWNUMBER(  XXXA=0  AND REFX(XXXA=0,4) AND REFX(XXXA=1,5) AND MMM,40,3),COLORWHITE;DRAWNUMBER( XXXA=0  AND REFX(XXXA=0,5) AND REFX(XXXA=1,6) AND MMM,40,2),COLORWHITE;DRAWNUMBER(  XXXA=0  AND REFX(XXXA=0,6) AND REFX(XXXA=1,7) AND MMM,40,1),COLORWHITE;DRAWNUMBER(条约AF8 AND MMM,40,8),COLORWHITE;DRAWNUMBER(条约AF9 AND MMM,40,9),COLORWHITE;DRAWNUMBER(条约BF8 AND MMM,40,8),COLORWHITE;DRAWNUMBER(条约BF9 AND MMM,40,9),COLORWHITE;STICKLINE(条约AF8 OR 条约AF9 AND MMM,31,32,3,0),COLORRED;STICKLINE(条约BF8 OR 条约BF9 AND MMM,42,41,3,0),COLORGREEN;{========个股红==========}VARX1:=(2*CLOSE+HIGH+LOW)/4;VARX2:=LLV(LOW,5);VAR3:=HHV(HIGH,5);VAR4:=EMA((VARX1-VARX2)/(VAR3-VARX2)*100,5);MAA1:=MA(VAR4,2);红:=VAR4>=MAA1;个股红:=MA(C,3)>=REF(MA(C,3),1),COLORGREEN,NODRAW;SAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2)); SAR2:=(REF(SAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); SAR3:=(REF(SAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); SAR4:=(REF(SAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); SAR5:=(REF(SAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); SAR6:=(REF(SAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); SAR7:=(REF(SAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); SAR8:=(REF(SAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); SAR9:=(REF(SAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); SARA:=(REF(SAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); SARB:=(REF(SARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)); SARC:=(REF(SARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)); 红色持股:=SAR1 OR SAR2 OR SAR3 OR SAR4 OR SAR5 OR SAR6 OR SAR7 OR SAR8 OR SAR9 OR SARA OR SARB OR SARC,COLOR0000FF,NODRAW; 红色:=红 OR 个股红 OR 红色持股 AND MMM ;STICKLINE(红色 ,82,99,3,0),COLORRED;{========大盘红==========}CC:="999999$CLOSE";KK:=MA(CC,3);大盘红:=KK>REF(KK,1),COLORGREEN,NODRAW;大盘绿:=KK<REF(KK,1),COLORGREEN,NODRAW;大盘绿2次数:=CONST(BARSLAST(大盘红)*CONST(大盘绿)),COLORGREEN,NODRAW;大盘天:=CURRBARSCOUNT<=大盘绿2次数,COLORGREEN,NODRAW;STICKLINE(大盘红 AND MMM ,0,15,3,0),COLORRED;WWW70822COMRAWNULL,COLORRED;DRAWRECTREL(250,0,300,190,RGB(153,51,0));DRAWTEXT_FIX(C>0,0.255,0.06,0,'个 股 轨 迹'),COLORWHITE;DRAWRECTREL(250,270,300,460,RGB(153,51,0));DRAWTEXT_FIX(C>0,0.255,0.32,0,'个 股 九 转'),COLORWHITE;DRAWRECTREL(250,540,300,730,RGB(153,51,0));DRAWTEXT_FIX(C>0,0.255,0.58,0,'大 盘 九 转'),COLORWHITE;DRAWRECTREL(250,820,300,1000,RGB(153,51,0));DRAWTEXT_FIX(C>0,0.255,0.86,0,'大 盘 轨 迹'),COLORWHITE;STICKLINE(CURRBARSCOUNT<10 AND CONST(红色=0),99,82,4,0),COLOR993300;DRAWTEXT(CURRBARSCOUNT=8 AND CONST(红色=0),90,'个 股 提 示 休 息');STICKLINE(CURRBARSCOUNT<10 AND CONST(大盘绿),0,16,4,0),COLOR993300;DRAWTEXT(CURRBARSCOUNT=8 AND CONST(大盘绿),7,'大 盘 提 示 休 息');