缠论中枢主图，不需dll支持（通达信公式 主图 源码 测试图）
{公式名称: 缠论中枢}{主图叠加}MA5:EMA(CLOSE,5),POINTDOT;MA10:MA(CLOSE,10),POINTDOT,COLORYELLOW,LINETHICK2;黄金线:EMA(CLOSE,18),COLORYELLOW;黄金线1:EMA(CLOSE,15),COLORRED;MA60:MA(CLOSE,60),POINTDOT,COLORRED;MA90:MA(CLOSE,90),POINTDOT,COLORD89837;VAR1:=10;VAR2:=10;VAR3:=2;VAR4:=IF(PERIOD=5,1,IF(PERIOD=6,1,IF(PERIOD=7,1,IF(PERIOD=8,1,IF(PERIOD=9,1,IF(PERIOD=10,1,IF(PERIOD=11,2,IF(PERIOD=4,1,IF(PERIOD=3,1,IF(PERIOD=2,1,IF(PERIOD=1,1,1)))))))))))/10;VAR5:=PEAK(1,VAR4*VAR1,1);VAR6:=PEAK(1,VAR4*VAR1,2);VAR7:=PEAKBARS(1,VAR4*VAR1,1);VAR8:=PEAKBARS(1,VAR4*VAR1,2);VAR9:=TROUGH(2,VAR4*VAR2,1);VAR10:=TROUGH(2,VAR4*VAR2,2);VAR11:=TROUGHBARS(2,VAR4*VAR2,1);VAR12:=TROUGHBARS(2,VAR4*VAR2,2);VAR13:=VAR5>VAR9 AND VAR6>VAR10;VAR14:=MAX(VAR9,VAR10);VAR15:=MIN(VAR5,VAR6);VAR16:=MIN(VAR9,VAR10);VAR17:=MAX(VAR5,VAR6);VAR18:=FILTER(VAR15>VAR14,2);VAR19:=VAR15=REF(VAR15,BARSLAST(VAR18)) OR VAR14=REF(VAR14,BARSLAST(VAR18));VAR20:=VAR13 AND VAR18 AND NOT(VAR19);VAR21:=BETWEEN(VAR14,REF(VAR14,REF(BARSLAST(VAR20),1)),REF(VAR15,REF(BARSLAST(VAR20),1)));VAR22:=BETWEEN(VAR15,REF(VAR14,REF(BARSLAST(VAR20),1)),REF(VAR15,REF(BARSLAST(VAR20),1)));VAR23:=VAR15>REF(VAR15,REF(BARSLAST(VAR20),1)) AND VAR14<REF(VAR14,REF(BARSLAST(VAR20),1));VAR24:=VAR20 AND NOT(VAR21 OR VAR22 OR VAR23);VAR25:=IF(VAR24,VAR14,DRAWNULL);VAR26:=IF(VAR24,VAR15,DRAWNULL);VAR27:=IF(VAR24,VAR17,DRAWNULL);VAR28:=IF(VAR24,VAR16,DRAWNULL);STICKLINE(VAR24,VAR27,VAR28,0,(-1)),COLORMAGENTA;STICKLINE(VAR24,VAR25,VAR26,IF(VAR3=1,3,0),1),COLORMAGENTA;DRAWTEXT(VAR3=2,VAR27,174),COLORRED;中枢高:PLOYLINE(VAR3=2,REF(VAR25,BARSLAST(VAR24))),CROSSDOT,COLORLIRED;中枢低:PLOYLINE(VAR3=2,REF(VAR26,BARSLAST(VAR24))),CROSSDOT,COLORLIGREEN;中枢最高:PLOYLINE(VAR3=2,REF(VAR27,BARSLAST(VAR24))),POINTDOT,COLORRED;中枢最低:PLOYLINE(VAR3=2,REF(VAR28,BARSLAST(VAR24))),POINTDOT,COLORGREEN;VAR29:=BACKSET(LLV(LOW,5)<REF(LLV(LOW,4),1),4);VAR30:=BACKSET(VAR29=0 AND REF(VAR29,1)=1,2);VAR31:=IF(VAR30=1 AND REF(VAR30,1)=0,(-1),0);VAR32:=BACKSET(HHV(HIGH,5)>REF(HHV(HIGH,4),1),4);VAR33:=BACKSET(VAR32=0 AND REF(VAR32,1)=1,2);VAR34:=IF(VAR33=1 AND REF(VAR33,1)=0,1,0);VAR35:=IF(LOW>REF(HIGH,1),1,IF(HIGH<REF(LOW,1),(-1),0));VAR36:=BARSLAST(VAR34=1);VAR37:=BARSLAST(VAR31=(-1));VAR38:=LOWRANGE(LOW);VAR39:=TOPRANGE(HIGH);VAR40:=IF(VAR31=(-1) AND REF(VAR36,1)>REF(VAR37,1) AND LLV(LOW,VAR36+1)<REF(LLV(LOW,VAR36+1),1),(-1),0);VAR41:=IF(VAR31=(-1) AND REF(VAR36,1)<=REF(VAR37,1) AND (VAR36>=4 OR LLV(VAR35,VAR36)=(-1) OR LLV(LOW,VAR37+2)<REF(LLV(LOW,VAR37+1),1)),(-1),0);VAR42:=IF(VAR40=(-1) OR VAR41=(-1) AND LOW<REF(HIGH,VAR36+1),(-1),0);VAR43:=IF(VAR37<4 AND HHV(VAR35,VAR37)!=1 OR REF(VAR42,VAR37)=0,1,0);VAR44:=IF(VAR34=1 AND REF(VAR37,1)<=REF(VAR36,1) AND VAR43=1 AND VAR39>REF(VAR38,VAR37+1) AND VAR39>REF(VAR38,VAR37) AND VAR39>REF(VAR39,VAR36),1,0);VAR45:=IF(VAR34=1 AND REF(VAR37,1)>REF(VAR36,1) AND HHV(HIGH,VAR37+1)>REF(HHV(HIGH,VAR37+1),1),1,0);VAR46:=IF(VAR34=1 AND REF(VAR37,1)<=REF(VAR36,1) AND REF(VAR42,VAR37)=(-1) AND (VAR37>=4 OR HHV(VAR35,VAR37)=1),1,0);VAR47:=IF(VAR45=1 OR VAR46=1 OR VAR44=1 AND HIGH>REF(LOW,VAR37+1),1,0);VAR48:=IF(VAR36<4 AND HHV(VAR35,VAR36)!=1 OR REF(VAR47,VAR36)=0,1,0);VAR49:=IF(VAR31=(-1) AND REF(VAR36,1)<=REF(VAR37,1) AND VAR48=1 AND VAR38>REF(VAR39,VAR36+1) AND VAR38>REF(VAR39,VAR36) AND VAR38>REF(VAR38,VAR37),(-1),0);VAR50:=IF(VAR31=(-1) AND REF(VAR36,1)>REF(VAR37,1) AND LLV(LOW,VAR36+1)<REF(LLV(LOW,VAR36+1),1),(-1),0);VAR51:=IF(VAR31=(-1) AND REF(VAR36,1)<=REF(VAR37,1) AND (VAR36>=4 OR LLV(VAR35,VAR36)=(-1) OR VAR49=(-1)),(-1),0);VAR52:=IF(VAR50=(-1) OR VAR51=(-1) AND LOW<REF(HIGH,VAR36+1),(-1),0);VAR53:=BARSLAST(VAR47=1);VAR54:=BARSLAST(VAR52=(-1));VAR55:=IF(VAR54<4 AND HHV(VAR35,VAR54)!=1 OR REF(VAR52,VAR54)=0,1,0);VAR56:=IF(VAR34=1 AND REF(VAR54,1)<=REF(VAR53,1) AND VAR55=1 AND VAR39>REF(VAR38,VAR54+1) AND VAR39>REF(VAR38,VAR54) AND VAR39>REF(VAR39,VAR53),1,0);VAR57:=IF(VAR34=1 AND REF(VAR54,1)>REF(VAR53,1) AND HHV(HIGH,VAR54+1)>REF(HHV(HIGH,VAR54+1),1),1,0);VAR58:=IF(VAR34=1 AND REF(VAR54,1)<=REF(VAR53,1) AND REF(VAR52,VAR54)=(-1) AND (VAR54>=4 OR HHV(VAR35,VAR54)=1),1,0);VAR59:=IF(VAR57=1 OR VAR58=1 OR VAR56=1 AND HIGH>REF(LOW,VAR54+1),1,0);VAR60:=IF(VAR53<4 AND HHV(VAR35,VAR53)!=1 OR REF(VAR57,VAR53)=0,1,0);VAR61:=IF(VAR31=(-1) AND REF(VAR53,1)<=REF(VAR54,1) AND VAR60=1 AND VAR38>REF(VAR39,VAR53+1) AND VAR38>REF(VAR39,VAR53) AND VAR38>REF(VAR38,VAR54),(-1),0);VAR62:=IF(VAR31=(-1) AND REF(VAR53,1)>REF(VAR54,1) AND LLV(LOW,VAR53+1)<REF(LLV(LOW,VAR53+1),1),(-1),0);VAR63:=IF(VAR31=(-1) AND REF(VAR53,1)<=REF(VAR54,1) AND (VAR53>=4 OR LLV(VAR35,VAR53)=(-1) OR VAR61=(-1)),(-1),0);VAR64:=IF(VAR62=(-1) OR VAR63=(-1) AND LOW<REF(HIGH,VAR53+1),(-1),0);VAR65:=BARSLAST(VAR59=1);VAR66:=BARSLAST(VAR64=(-1));VAR67:=IF(VAR66<4 AND HHV(VAR35,VAR66)!=1 OR REF(VAR64,VAR66)=0,1,0);VAR68:=IF(VAR34=1 AND REF(VAR66,1)<=REF(VAR65,1) AND VAR67=1 AND VAR39>REF(VAR38,VAR66+1) AND VAR39>REF(VAR38,VAR66) AND VAR39>REF(VAR39,VAR65),1,0);VAR69:=IF(VAR34=1 AND REF(VAR66,1)>REF(VAR65,1) AND HHV(HIGH,VAR66+1)>REF(HHV(HIGH,VAR66+1),1),1,0);VAR70:=IF(VAR34=1 AND REF(VAR66,1)<=REF(VAR65,1) AND REF(VAR64,VAR66)=(-1) AND (VAR66>=4 OR HHV(VAR35,VAR66)=1),1,0);VAR71:=IF(VAR69=1 OR VAR70=1 OR VAR68=1 AND HIGH>REF(LOW,VAR66+1),1,0);VAR72:=IF(VAR65<4 AND HHV(VAR35,VAR65)!=1 OR REF(VAR69,VAR65)=0,1,0);VAR73:=IF(VAR31=(-1) AND REF(VAR65,1)<=REF(VAR66,1) AND VAR72=1 AND VAR38>REF(VAR39,VAR65+1) AND VAR38>REF(VAR39,VAR65) AND VAR38>REF(VAR38,VAR66),(-1),0);VAR74:=IF(VAR31=(-1) AND REF(VAR65,1)>REF(VAR66,1) AND LLV(LOW,VAR65+1)<REF(LLV(LOW,VAR65+1),1),(-1),0);VAR75:=IF(VAR31=(-1) AND REF(VAR65,1)<=REF(VAR66,1) AND (VAR65>=4 OR LLV(VAR35,VAR65)=(-1) OR VAR73=(-1)),(-1),0);VAR76:=IF(VAR74=(-1) OR VAR75=(-1) AND LOW<REF(HIGH,VAR65+1),(-1),0);VAR77:=IF(VAR71=1 AND VAR76=(-1) AND HIGH>REF(HIGH,REF(VAR65,1)+2),1,IF(VAR71=1 AND VAR76=(-1) AND LOW<REF(LOW,REF(VAR66,1)+2),(-1),0));VAR78:=IF(VAR77=0,VAR71+VAR76,VAR77);局部极点:IF(VAR78=(-1),LOW,IF(VAR78=1,HIGH,DRAWNULL)),CIRCLEDOT,COLORYELLOW;DRAWLINE(VAR78=(-1),局部极点,VAR78=1,局部极点,0),COLORLIRED;DRAWLINE(VAR78=1,局部极点,VAR78=(-1),局部极点,0),COLORYELLOW;VAR79:=BARSLAST(ABS(VAR78)!=1);DRAWTEXT(VAR78=1,局部极点,175),COLORGREEN;DRAWTEXT(VAR78=(-1),局部极点,175),COLORRED;VAR80:=VOL>=REF(VOL,1)*1.91 AND CLOSE>OPEN;VAR81:=REF(VOL,1)>=VOL*1.91 AND CLOSE<OPEN;STICKLINE(VAR80,OPEN,CLOSE,2,0),COLORRED;STICKLINE(VAR81,OPEN,CLOSE,2,0),COLORGREEN;VAR82:=REF(CLOSE,1);VAR83:=IF((CLOSE-VAR82)*100/VAR82>=10-0.01*100/VAR82,1,0);VAR84:=IF((VAR82-CLOSE)*100/VAR82>=10-0.01*100/VAR82,1,0);STICKLINE(VAR83,OPEN,CLOSE,2,0),COLORYELLOW;STICKLINE(VAR84,OPEN,CLOSE,2,0),COLORGREEN;VAR85:=REFDATE(HHV(HIGH,180),DATE);VAR86:=REFDATE(LLV(LOW,180),DATE);VAR87:=VAR85-(VAR85-VAR86)*0.191;VAR88:=VAR85-(VAR85-VAR86)*0.382;VAR89:=VAR85-(VAR85-VAR86)*0.5;VAR90:=VAR85-(VAR85-VAR86)*0.618;VAR91:=VAR85-(VAR85-VAR86)*0.809;STICKLINE(CURRBARSCOUNT=13,VAR85,VAR85,100,(-1)),COLORGREEN;STICKLINE(CURRBARSCOUNT=13,VAR87,VAR87,100,(-1)),COLORCYAN;STICKLINE(CURRBARSCOUNT=13,VAR88,VAR88,100,(-1)),COLORCCCCCC;DRAWTEXT(CURRBARSCOUNT=1,VAR85,176),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=1,VAR87,177),COLORCYAN;DRAWTEXT(CURRBARSCOUNT=1,VAR88,178),COLORWHITE;DRAWTEXT(CURRBARSCOUNT=1,VAR89,179),COLORYELLOW;DRAWTEXT(CURRBARSCOUNT=1,VAR90,180),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=1,VAR91,181),COLORMAGENTA;DRAWTEXT(CURRBARSCOUNT=1,VAR86,182),COLORRED;STICKLINE(CURRBARSCOUNT=13,VAR89,VAR89,100,(-1)),COLORYELLOW;STICKLINE(CURRBARSCOUNT=13,VAR90,VAR90,100,(-1)),COLORLIRED;STICKLINE(CURRBARSCOUNT=13,VAR91,VAR91,100,(-1)),COLORMAGENTA;STICKLINE(CURRBARSCOUNT=13,VAR86,VAR86,100,(-1)),COLORRED;距今:BARSSINCE(CLOSE)+1,NODRAW;VAR92:=距今<100;VAR93:=TESTSKIP(VAR92=0);首日中枢:(REF(HIGH,距今-1)+REF(LOW,距今-1))/2,NODRAW;首日中枢支撑:首日中枢/1.5,COLORFFAAFF;DRAWTEXT_FIX(1,0,0,0,119),COLORYELLOW;DRAWTEXT_FIX(1,0.05,0,0,DYBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.1,0,0,HYBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.16,0,0,GNBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0,0.06,0,120),COLOR0080FF;DRAWTEXT_FIX(1,0.05,0.06,0,STRCAT(CON2STR(CAPITAL/1000000,2),121)),COLOR0080FF;DRAWTEXT_FIX(1,0,0.12,0,122),COLORMAGENTA;DRAWTEXT_FIX(1,0.05,0.12,0,STRCAT(CON2STR(FINANCE(30)/FINANCE(1),2),123)),COLORMAGENTA;
我是个凑数的。。。 my god！好东西！
页:
[1]