標簽:分時主圖加日K線 主圖源碼公式 公式 源碼 導入 教程 方法

調用公式源碼：
{引用日線} JC:C; JO:O; JH:H; JL:L; JC1:REF(C,1); JO1:REF(O,1); JH1:REF(H,1); JL1:REF(L,1); JC2:REF(C,2); JO2:REF(O,2); JH2:REF(H,2); JL2:REF(L,2); JC3:REF(C,3); JC4:REF(C,4); JC5:REF(C,5); JCYC:=(HIGH+LOW+OPEN+2*CLOSE)/5; DRAWTEXTREL(10,880,'m.kzuj.com.cn'),coloryellow; 明日阻力:=2*JCYC-LOW; 明日支撐:=2*JCYC-HIGH; 明日突破:=JCYC+(HIGH-LOW); 明日反轉:=JCYC-(HIGH-LOW); 阻力:REF(明日阻力,1); 支撐:REF(明日支撐,1); 突破:REF(明日突破,1); 反轉:REF(明日反轉,1); JM1:MA(C,5); JM2:MA(C,10);
點擊復制上述代碼粘貼到到公式管理器

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

主圖源碼：INPUT: 上下調整(400,50,1000),左右調整(550,150,1000),打開關閉(3,0,3); {日K線引用} if 打開關閉>0 then begin 阻力:="引用日線.阻力#day";支撐:="引用日線.支撐#day";突破:="引用日線.突破#day";反轉:="引用日線.反轉#day"; JM1:="引用日線.JM1#day";JM2:="引用日線.JM2#day"; JC:="引用日線.JC#day";JO:="引用日線.JO#day";JH:="引用日線.JH#day";JL:="引用日線.JL#day"; JC1:="引用日線.JC1#day";JO1:="引用日線.JO1#day";JH1:="引用日線.JH1#day";JL1:="引用日線.JL1#day"; JC2:="引用日線.JC2#day";JO2:="引用日線.JO2#day";JH2:="引用日線.JH2#day";JL2:="引用日線.JL2#day"; JC3:="引用日線.JC3#day"; YT1:=JC>JC1 AND JC=JO; YT2:=JC<=JC1 AND JC=JO; YT3:=JC1>JC2 AND JC1=JO1; YT4:=JC1<=JC2 AND JC1=JO1; YT5:=JC2>JC3 AND JC2=JO2; YT6:=JC2<=JC3 AND JC2=JO2; {昨收陽} JJCA1:=IF(ABS(JC1-JO1)>0.015,JC1/JO1*2000-2000,5); JJHA1:=JH1/JC1*2000-2000; JJLA1:=JO1/JL1*2000-2000; JWA1:=JC1-JO1>0 OR YT3>0; if JWA1>0 then begin DRAWRECTREL(左右調整,上下調整-JJCA1,左右調整+17,上下調整,0),COLOR4535FF; DRAWRECTREL(左右調整+8,上下調整-JJCA1-JJHA1,左右調整+9,上下調整-JJCA1,0),COLOR5040FF; DRAWRECTREL(左右調整+8,上下調整,左右調整+9,上下調整+JJLA1,0),COLOR5040FF; end; JZST:=STRFIND(stkname,'S',1) AND JC1/JC2>=1.048; JZTB:=JC1/JC2>=1.0994 OR JZST; if JZTB>0 then begin DRAWRECTREL(左右調整+2,上下調整-JJCA1+2,左右調整+15,上下調整-2,RGB(255,255,0)),COLORYELLOW; end; {昨收陰} JJHA2:=JH1/JO1*2000-2000; JJLA2:=JC1/JL1*2000-2000; JWA2:=JO1-JC1>0 OR YT4>0; if JWA2>0 then begin DRAWRECTREL(左右調整,上下調整,左右調整+17,上下調整-JJCA1,RGB(0,255,255)),COLORFFFF00; DRAWRECTREL(左右調整+8,上下調整-JJHA2,左右調整+9,上下調整-JJCA1,RGB(0,255,255)),COLORFFFF00; DRAWRECTREL(左右調整+8,上下調整-JJCA1,左右調整+9,上下調整-JJCA1+JJLA2,RGB(0,255,255)),COLORFFFF00; end; JZST1:=STRFIND(stkname,'S',1) AND JC1/JC2<=0.953; JZTB1:=JC1/JC2<=0.902 OR JZST1; if JZTB1>0 then begin DRAWRECTREL(左右調整+2,上下調整+2,左右調整+15,上下調整-JJCA1-2,RGB(255,255,255)),COLORFFFFFF; end; {前收陽} JJCB1:=IF(ABS(JC2-JO2)>0.015,JC2/JO2*2000-2000,5); JJHB1:=JH2/JC2*2000-2000; JJLB1:=JO2/JL2*2000-2000; JZKB1:=JO1/JC2*2000-2000; QSYB1:=上下調整+JZKB1; JWB1:=(JC2-JO2>0 OR YT5>0); if JWB1>0 then begin DRAWRECTREL(左右調整-23,QSYB1+JJCB1,左右調整-6,QSYB1,0),COLOR4535FF; DRAWRECTREL(左右調整-15,QSYB1-JJHB1,左右調整-14,QSYB1,0),COLOR5040FF; DRAWRECTREL(左右調整-15,QSYB1+JJCB1+JJLB1,左右調整-14,QSYB1+JJCB1,0),COLOR5040FF; end; JZST2:=STRFIND(stkname,'S',1) AND JC2/JC3>=1.048; JZTB2:=JC2/JC3>=1.0994 OR JZST2; if JZTB2>0 then begin DRAWRECTREL(左右調整-21,QSYB1+JJCB1-2,左右調整-8,QSYB1+2,RGB(255,255,0)),COLORYELLOW; end; {前收陰} JJHB2:=JH2/JO2*2000-2000; JJLB2:=JC2/JL2*2000-2000; JWB2:=(JO2-JC2>0 OR YT6>0); if JWB2>0 then begin DRAWRECTREL(左右調整-23,QSYB1+JJCB1,左右調整-6,QSYB1,RGB(0,255,255)),COLORFFFF00; DRAWRECTREL(左右調整-15,QSYB1+JJCB1-JJHB2,左右調整-14,QSYB1+JJCB1,RGB(0,255,255)),COLORFFFF00; DRAWRECTREL(左右調整-15,QSYB1,左右調整-14,QSYB1+JJLB2,RGB(0,255,255)),COLORFFFF00; end; JZST3:=STRFIND(stkname,'S',1) AND JC2/JC3<=0.953; JZTB3:=JC2/JC3<=0.902 OR JZST3; if JZTB3>0 then begin DRAWRECTREL(左右調整-21,QSYB1+JJCB1+2,左右調整-8,QSYB1-2,RGB(255,255,255)),COLORFFFFFF; end; {今收陽} JJCC1:=IF(ABS(JC-JO)>0.015,JC/JO*2000-2000,5); JJHC1:=JH/JC*2000-2000; JJLC1:=JO/JL*2000-2000; JZKC1:=JO/JC1*2000-2000; QSYC1:=上下調整-JJCA1-JZKC1; JWC1:=(JC-JO>0 OR YT1>0); if JWC1>0 then begin DRAWRECTREL(左右調整+23,QSYC1-JJCC1,左右調整+40,QSYC1,0),COLOR4535FF; DRAWRECTREL(左右調整+31,QSYC1-JJCC1-JJHC1,左右調整+32,QSYC1-JJCC1,0),COLOR5040FF; DRAWRECTREL(左右調整+31,QSYC1,左右調整+32,QSYC1+JJLC1,0),COLOR5040FF; end; JZST4:=STRFIND(stkname,'S',1) AND JC/JC1>=1.048; JZTB4:=JC/JC1>=1.0994 OR JZST4; if JZTB4>0 then begin DRAWRECTREL(左右調整+25,QSYC1-JJCC1+2,左右調整+38,QSYC1-2,RGB(255,255,0)),COLORYELLOW; end; DRAWTEXTREL(10,880,'m.kzuj.com.cn'),coloryellow; DRAWTEXTREL(999,999,'<span style="display:none;"><a data-cke-saved-href=" http://m.kzuj.com.cn" href=" http://m.kzuj.com.cn" title="程序化交易模型">程序化交易模型</a></span>'); {今收陰} JJHC2:=JH/JO*2000-2000; JJLC2:=JC/JL*2000-2000; JWC2:=(JO-JC>0 OR YT2>0); if JWC2>0 then begin DRAWRECTREL(左右調整+23,QSYC1,左右調整+40,QSYC1-JJCC1,RGB(0,255,255)),COLORFFFF00; DRAWRECTREL(左右調整+31,QSYC1-JJHC2,左右調整+32,QSYC1,RGB(0,255,255)),COLORFFFF00; DRAWRECTREL(左右調整+31,QSYC1-JJCC1,左右調整+32,QSYC1-JJCC1+JJLC2,RGB(0,255,255)),COLORFFFF00; end; JZST5:=STRFIND(stkname,'S',1) AND JC/JC1<=0.953; JZTB5:=JC/JC1<=0.902 OR JZST5; if JZTB5>0 then begin DRAWRECTREL(左右調整+25,QSYC1+2,左右調整+38,QSYC1-JJCC1-2,RGB(255,255,255)),COLORFFFFFF; end; JZLC1:=阻力/JO*2000-2000; JZZC1:=支撐/JO*2000-2000; JTPC1:=突破/JO*2000-2000; JFZC1:=反轉/JO*2000-2000; JMAC1:=JM1/JO*2000-2000; JMAC2:=JM2/JO*2000-2000; if 打開關閉>2 then begin DRAWTEXTREL(左右調整+38,QSYC1-JZLC1,'ˉˉˉ'),Colorffa800; DRAWTEXTREL(左右調整+60,QSYC1-JZLC1,'阻力 '+NUMTOSTRN(阻力,2)),Colorffa800; DRAWTEXTREL(左右調整+38,QSYC1-JZZC1,'ˉˉˉ'),Colorffa800; DRAWTEXTREL(左右調整+60,QSYC1-JZZC1,'支撐 '+NUMTOSTRN(支撐,2)),Colorffa800; DRAWTEXTREL(左右調整+38,QSYC1-JTPC1,'ˉˉˉ'),Colorffa800; DRAWTEXTREL(左右調整+60,QSYC1-JTPC1,'突破 '+NUMTOSTRN(突破,2)),Colorffa800; DRAWTEXTREL(左右調整+38,QSYC1-JFZC1,'ˉˉˉ'),Colorffa800; DRAWTEXTREL(左右調整+60,QSYC1-JFZC1,'反轉 '+NUMTOSTRN(反轉,2)),Colorffa800; end; if 打開關閉>1 then begin DRAWTEXTREL(左右調整+20,QSYC1-JMAC1,'ˉˉˉˉˉˉˉ'),ColorFFFFFF; DRAWTEXTREL(左右調整+120,QSYC1-JMAC1,'MA5 '+NUMTOSTRN(JM1,2)),ColorFFFFFF; DRAWTEXTREL(左右調整+20,QSYC1-JMAC2,'ˉˉˉˉˉˉˉˉˉˉ'),COLORYELLOW; DRAWTEXTREL(左右調整+140,QSYC1-JMAC2,'MA10 '+NUMTOSTRN(JM2,2)),COLORYELLOW; end;end;
點擊復制上述代碼粘貼到到公式管理器

上圖中日K線中心黃色表示漲停

上圖中日K線中心白色表示跌停

上圖中上下調整 左右調整 就是調整日K線的位置，打開關閉設置為：3 是全部打開，2是只開日K線和5 10 日均線，1是只開日K線，0是全部關閉。