通达信宝塔资金主图源码

HJ_1:=180;
 HJ_2:=BARSLAST(CURRBARSCOUNT=HJ_1);
 HJ_3:=CONST(IF(ISLASTBAR=1,HHV(HIGH,HJ_2),0));
 HJ_4:=CONST(IF(ISLASTBAR=1,LLV(LOW,HJ_2),0));
 HJ_5:=HJ_3-HJ_4;
 HJ_6:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_3,DRAWNULL);
 HJ_7:=IF(CURRBARSCOUNT<=HJ_1,HJ_3,DRAWNULL);
 HJ_8:=IF(CURRBARSCOUNT<=HJ_1,HJ_4,DRAWNULL);
 HJ_9:=IF(CURRBARSCOUNT<=HJ_1,HJ_4+HJ_5/2,DRAWNULL);
 HJ_10:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_4,DRAWNULL);
 HJ_11:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_3,DRAWNULL);
 HJ_12:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_4+HJ_5*0.191,DRAWNULL);
 HJ_13:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_4+HJ_5*0.382,DRAWNULL);
 HJ_14:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_4+HJ_5/2,DRAWNULL);
 HJ_15:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_4+HJ_5*0.618,DRAWNULL);
 HJ_16:=IF(CURRBARSCOUNT<=HJ_1/2,HJ_4+HJ_5*0.809,DRAWNULL);
 HJ_17:=IF(CURRBARSCOUNT<=HJ_1/2,(CLOSE/LLV(LOW,HJ_2)-1)*100,DRAWNULL);
 HJ_18:=BARSLAST(LOW=HJ_4);
 HJ_19:=IF(CURRBARSCOUNT<=HJ_1/2,CONST(IF(ISLASTBAR=1,HHV(HIGH,BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL);
 HJ_20:=IF(CURRBARSCOUNT<=HJ_1/2,CONST(IF(ISLASTBAR=1,LLV(LOW,BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL);
 DRAWBAND(HJ_12,RGB(38,38,38),HJ_10,RGB(0,0,0));
 DRAWTEXT(CURRBARSCOUNT=HJ_1/4+30,HJ_3-HJ_5*0.09,71),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=HJ_1/4+30,HJ_3-HJ_5*0.3,72),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=HJ_1/4+30,HJ_3-HJ_5*0.45,73),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=HJ_1/4+30,HJ_3-HJ_5*0.55,74),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=HJ_1/4+30,HJ_4+HJ_5/3,75),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=HJ_1/4+30,HJ_4+HJ_5/10,76),COLORWHITE;
高压:REFDATE(HJ_7,DATE),DOTLINE,COLORCYAN;
压力线:REFDATE(HJ_16,DATE),DOTLINE,COLOR008000;
警示线:REFDATE(HJ_15,DATE),DOTLINE,COLORYELLOW;
突破线:REFDATE(HJ_14,DATE),DOTLINE,COLORGREEN;
强势线:REFDATE(HJ_13,DATE),DOTLINE,COLORRED;
支撑线:REFDATE(HJ_12,DATE),DOTLINE,COLORWHITE;
低线:REFDATE(HJ_10,DATE),DOTLINE,COLORYELLOW;
上升均斜:EMA(SLOPE(CLOSE,15)*20+CLOSE,30),COLORBLUE;
 HJ_21:=CONST(LLVBARS(LOW,25));
 HJ_22:=CONST(REF(HIGH,HJ_21));
 HJ_23:=CONST(CURRBARSCOUNT);
 HJ_24:=CONST(BARSLAST(CURRBARSCOUNT>HJ_23+HJ_21 AND HIGH>HJ_22));
 HJ_25:=CONST(REF(HIGH,HJ_24));
 HJ_26:=CONST(BARSLAST(CURRBARSCOUNT>HJ_23+HJ_24 AND HIGH>HJ_25));
 HJ_27:=CONST(REF(HIGH,HJ_26));
强牛:DRAWLINE(CURRBARSCOUNT=HJ_26+1,HJ_27,ISLASTBAR,HJ_27,1),NODRAW,COLORRED,LINETHICK2;
 DRAWTEXT(ISLASTBAR,HJ_27,81),COLORRED;
 HJ_28:=BARSLAST(LLVBARS(LOW,25)=0);
 HJ_29:=CONST(REF(REF(HJ_28,1),HJ_28)+HJ_28+1);
 HJ_30:=CONST(REF(HIGH,HJ_29));
 HJ_31:=CONST(BARSLAST(CURRBARSCOUNT>HJ_23+HJ_29 AND HIGH>HJ_30));
 HJ_32:=CONST(REF(HIGH,HJ_31));
 HJ_33:=CONST(BARSLAST(CURRBARSCOUNT>HJ_23+HJ_31 AND HIGH>HJ_32));
 HJ_34:=CONST(REF(HIGH,HJ_33));
牛底:DRAWLINE(CURRBARSCOUNT=HJ_33+1,HJ_34,ISLASTBAR,HJ_34,1),NODRAW,COLORRED,LINETHICK2;
 DRAWTEXT(ISLASTBAR,HJ_34,82),COLORRED;
 HJ_35:=20;
 HJ_36:=CONST(LLVBARS(LOW,HJ_35));
 HJ_37:=CONST(REF(HIGH,HJ_36));
 HJ_38:=CONST(CURRBARSCOUNT);
 HJ_39:=CONST(BARSLAST(CURRBARSCOUNT>HJ_38+HJ_36 AND HIGH>HJ_37));
 HJ_40:=CONST(REF(HIGH,HJ_39));
 HJ_41:=CONST(BARSLAST(CURRBARSCOUNT>HJ_38+HJ_39 AND HIGH>HJ_40));
 HJ_42:=CONST(REF(HIGH,HJ_41));
 HJ_43:=DRAWLINE(CURRBARSCOUNT=HJ_41+1,HJ_42,ISLASTBAR,HJ_42,1);
 HJ_44:=DRAWTEXT(ISLASTBAR,HJ_42,83);
 HJ_45:=MA(CLOSE,10);
 HJ_46:=MA(CLOSE,54);
 HJ_47:=(CLOSE-HJ_46)/HJ_46<0.1;
 HJ_48:=(CLOSE-HJ_45)/HJ_45<0.3;
 HJ_49:=(HJ_47=1 AND HJ_48=1)*0.2;
 HJ_50:=(HJ_49=0 AND REF(HJ_49,1)=0.2 AND REF(COUNT(HJ_49=0.2,10)=10,1)=1)*1;
 QWE:DRAWTEXT(HJ_50,OPEN,84),COLORWHITE;
平台:REF(OPEN,BARSLAST(HJ_50)),NODRAW,COLORRED;
 HJ_51:=MA(CLOSE,M1);
 HJ_52:=MA(CLOSE,M2);
月21:MA(CLOSE,21),COLORYELLOW;
年207:MA(CLOSE,207),COLORRED,LINETHICK2;
 HJ_53:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
 HJ_54:=REF(HJ_53,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_55:=REF(HJ_54,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_56:=REF(HJ_55,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_57:=REF(HJ_56,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_58:=REF(HJ_57,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_59:=REF(HJ_58,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_60:=REF(HJ_59,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_61:=REF(HJ_60,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_62:=REF(HJ_61,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_63:=REF(HJ_62,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_64:=REF(HJ_63,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 STICKLINE(HJ_53 OR HJ_54 OR HJ_55 OR HJ_56 OR HJ_57 OR HJ_58 OR HJ_59 OR HJ_60 OR HJ_61 OR HJ_62 OR HJ_63 OR HJ_64,CLOSE,REF(CLOSE,1),3,1),COLORRED;
 HJ_65:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
 HJ_66:=REF(HJ_65,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_67:=REF(HJ_66,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_68:=REF(HJ_67,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_69:=REF(HJ_68,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_70:=REF(HJ_69,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_71:=REF(HJ_70,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_72:=REF(HJ_71,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_73:=REF(HJ_72,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_74:=REF(HJ_73,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 HJ_75:=REF(HJ_74,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 HJ_76:=REF(HJ_75,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 STICKLINE(HJ_65 OR HJ_66 OR HJ_67 OR HJ_68 OR HJ_69 OR HJ_70 OR HJ_71 OR HJ_72 OR HJ_73 OR HJ_74 OR HJ_75 OR HJ_76,CLOSE,REF(CLOSE,1),3,0),COLORGREEN;
 HJ_77:=REF(HJ_65 OR HJ_66 OR HJ_67 OR HJ_68 OR HJ_69 OR HJ_70 OR HJ_71 OR HJ_72 OR HJ_73 OR HJ_74 OR HJ_75 OR HJ_76,1) AND HJ_53;
 STICKLINE(HJ_77,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORGREEN;
 HJ_78:=REF(HJ_53 OR HJ_54 OR HJ_55 OR HJ_56 OR HJ_57 OR HJ_58 OR HJ_59 OR HJ_60 OR HJ_61 OR HJ_62 OR HJ_63 OR HJ_64,1) AND HJ_65;
 STICKLINE(HJ_78,REF(CLOSE,1),REF(CLOSE,2),3,1),COLORRED;
 HJ_79:=IF(CLOSE<REF(CLOSE,1) AND REF(CLOSE,1)<REF(CLOSE,2) AND LOW<REF(LOW,1) AND LOW>REF(LOW,2),REF(CLOSE,2),IF(CLOSE>REF(CLOSE,1),CLOSE,REF(CLOSE,1)));
宝一:IF(HJ_78,REF(HJ_79,1),HJ_79),NODRAW;
 HJ_80:=IF(OPEN>REF(OPEN,1) AND REF(OPEN,1)>REF(OPEN,2) AND HIGH>REF(HIGH,1) AND HIGH<REF(HIGH,2),REF(OPEN,2),IF(CLOSE<REF(CLOSE,1),CLOSE,REF(CLOSE,1)));
 HJ_81:=IF(HJ_77,REF(HJ_80,1),HJ_80);
 HJ_82:=CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2) AND REF(CLOSE,1)<REF(CLOSE,3) AND IF(REF(CLOSE,3)<REF(CLOSE,4),1,IF(REF(CLOSE,4)<REF(CLOSE,5),REF(CLOSE,1)<REF(CLOSE,4) OR (REF(CLOSE,2)<REF(CLOSE,4) AND REF(CLOSE,3)>=REF(CLOSE,5)),IF(REF(CLOSE,5)<REF(CLOSE,6),1,REF(CLOSE,6)<REF(CLOSE,7))));
 HJ_83:=DRAWTEXT(HJ_82 AND CLOSE>REF(OPEN,2),LOW*0.98,275);
机构:(L2_AMO(0,0)-L2_AMO(0,1))/10000,NODRAW,COLORBLUE;
大户:(L2_AMO(1,0)-L2_AMO(1,1))/10000,NODRAW,COLORYELLOW;
主资金:(L2_AMO(0,0)-L2_AMO(0,1))/10000+(L2_AMO(1,0)-L2_AMO(1,1))/10000,NODRAW,COLORRED;
机大进:STICKLINE(机构>0 AND 大户>0,LOW-0.1,(LOW-0.4+LOW-0.4)/2,3.2,0),COLORMAGENTA;
大户进:STICKLINE(大户>0 AND 机构<0,LOW-0.1,(LOW-0.4+LOW-0.4)/2,3.2,0),COLORYELLOW;
机进:STICKLINE(机构>0 AND 大户<0,LOW-0.1,(LOW-0.4+LOW-0.4)/2,3.2,0),COLORBLUE;

{-----------------------------------}