通达信【破茧成蝶】大富大贵人上人主图+选股指标用法详解

{}


gspt1:=CLOSE=ZTPRICE(REF(CLOSE,1),0.1);

gspt2:=HIGH=ZTPRICE(REF(CLOSE,1),0.1) AND CLOSE<HIGH;

gspt3:=CLOSE=ZTPRICE(REF(CLOSE,1),0.2);

gspt4:=HIGH=ZTPRICE(REF(CLOSE,1),0.2) AND CLOSE<HIGH;

gspt5:=BARSLAST(CLOSE=LLV(CLOSE,60));

gspt6:=BETWEEN(gspt5,1,60) AND CLOSE/REF(CLOSE,1)>1.043;

gspt7:=gspt6 AND COUNT(gspt6,gspt5)=1;

gspt8:=BARSLAST(CLOSE=LLV(CLOSE,BARSLAST(gspt7)));

gspt9:=gspt8=1 AND CLOSE>REF(CLOSE,gspt8) AND HIGH>LOW;

gspt10:=STRCAT(HYBLOCK,' ');

gspt11:=STRCAT(gspt10,DYBLOCK);

gspt12:=STRCAT(gspt11,' ');

gspt13:=BARSLAST(COUNT(gspt9,BARSLAST(gspt7))=1 AND gspt9);

gspt14:=BARSLAST(COUNT(gspt9,BARSLAST(gspt7))=2 AND gspt9);

gspt15:=BARSLAST(COUNT(gspt9,BARSLAST(gspt7))=3 AND gspt9);

gspt16:=COUNT(gspt9,BARSLAST(gspt7))>3;

gspt17:=MAX(REF(CLOSE,gspt13),REF(CLOSE,gspt14));

gspt18:=MAX(gspt17,REF(CLOSE,gspt15));

gspt19:=IF(COUNT(gspt9,BARSLAST(gspt7))=1,REF(CLOSE,gspt13),0);

gspt20:=IF(COUNT(gspt9,BARSLAST(gspt7))=2,gspt17,0);

gspt21:=IF(COUNT(gspt9,BARSLAST(gspt7))=3,gspt18,0);

STICKLINE(gspt1,CLOSE,OPEN,2,0),COLORYELLOW;

STICKLINE(gspt2,CLOSE,OPEN,2,0),COLORMAGENTA;

STICKLINE(gspt3,CLOSE,OPEN,2,0),COLORRED;

STICKLINE(gspt4,CLOSE,OPEN,2,0),COLORWHITE;

STICKLINE(gspt7,HIGH*1.1,LOW*0.9,0.3,1);

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(gspt12,GNBLOCK)),COLORRED;

地平线:CONST(gspt19+gspt20+gspt21),COLORMAGENTA;

gspt22:=CLOSE>=地平线 AND CLOSE/REF(CLOSE,1)>1.043;

gspt23:=COUNT(gspt22,BARSLAST(gspt7))=1 AND gspt22;

{，公式源码 }

VAR28:=CONST(REF(CLOSE,BARSLAST(gspt23)));

VAR29:=IF(gspt16 OR BARSLAST(gspt23)>BARSLAST(gspt7),0,VAR28);

DRAWTEXT(gspt23,1.03*HIGH,'破茧成蝶'),COLORYELLOW;

DRAWTEXT(BARSLASTCOUNT(gspt16)=1,0.97*LOW,'作茧自缚'),COLORWHITE;

DRAWICON(gspt23,0.99*LOW,29);

DRAWICON(BARSLASTCOUNT(gspt16)=1,LOW,9);

起飞线:CONST(VAR29),COLORGREEN;