相關標簽: 弘歷箱體王 、 弘歷箱體王指標 、 箱體源碼 、 通達信箱體源碼 、 電氣箱體設計軟件 、 箱體設計 軟件 、 弘歷六彩神龍指標源碼 、 弘歷六彩神龍公式源碼 、 通達信弘歷公式源碼 、

源碼：
{箱體部分}cc:=c;oo:=o;hh:=h;ll:=l;top:=h;bot:=l;xx[1]:=1;kk:=1;for i=1 to datacount do begin  if xx=1 then begin    top:=hh;  end;  if xx[i-1]=1 then begin    if hh>top[i-1] then begin      top:=hh;      xx:=1;    end;else begin      top:=top[i-1];      xx:=2;      end;  end;  if xx[i-1]=2 then begin    if hh>top[i-1] then begin      top:=hh;      xx:=1;    end;else begin      top:=top[i-1];      bot:=ll;      xx:=3;    end;  end;  if xx[i-1]=3 then begin    top:=top[i-1];    if ll<bot[i-1] then begin      bot:=ll;      xx:=3;    end;else begin      bot:=bot[i-1];      xx:=4;    end;  end;  if xx[i-1]=4 then begin    top:=top[i-1];    if ll<bot[i-1] then begin      bot:=ll;      xx:=3;    end;else begin      bot:=bot[i-1];      xx:=5;    end;  end;  if xx[i-1]=5 then begin      if ll<bot[i-1] or hh>top[i-1] then begin      top:=hh;      bot:=hh;      xx:=1;      end;else begin      bot:=bot[i-1];      top:=top[i-1];      xx:=5;    end;  end;  end;for j=1 to datacount do begin  if xx[j]=5 and xx[j-1]=4 then begin    for k=j-1 downto j-kk do begin      top[k]:=top[j];      bot[k]:=bot[j];    end;  end;  if xx[j-1]=5 and xx[j]=1 then kk:=0;  kk:=kk+1;end;中位線:=(top+bot)/2;{信號部分---參考}買點:=FILTER((TROUGHBARS(3,15,1)<4)=1,3);賣點:=FILTER((PEAKBARS(3,15,1)<4)=1,3);  {短波--未來}F:=100*(C-REF(C,1))/REF(C,1);p1:=IF(C<REF(O,1) AND f<0,1,0);p3:=IF(C>REF(O,1) AND f>0,1,0);p2:=IF(C<REF(O,2) AND f<0,1,0);p4:=IF(C>REF(O,2) AND f>0,1,0);買D5:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;賣D6:=P3=0 AND REF(P3,1)=1 AND P4=0 AND REF(P4,1)=1;FZ:=PEAK(3,5,1);FW:=PEAKBARS(3,5,1);GZ:=TROUGH(3,5,1);GW:=TROUGHBARS(3,5,1);AS:=ZIG(3,3);  漲AL:=CROSS(AS,REF(AS,1));跌AG:=CROSS(REF(AS,1),AS);Ss1:=IF(FW>GW,FW,0);Ss2:=IF(FW<GW,GW,0);Ss3:=BARSLAST(Ss1);Ss4:=BARSLAST(Ss2);{---------立體K線--------}M1:MA(CLOSE,5);M2:MA(CLOSE,13);M3:MA(CLOSE,30);M4:MA(CLOSE,60);STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,9,0 ),COLOR009900;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00cc00;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2.4,0 ),COLOR33ff00;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.1,0 ),COLOR66ff00;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,9,0 ),COLOr000099;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6 ,0 ),COLOR0000cc;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4 ,0 ),COLOR0000ff;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.1 ,0 ),COLOR0033ff;STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR9933ff;STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR9933ff;STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR66cc33;STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR66cc33;A0:=NUMTOSTR(MA(VOL,5),2);B0:=NUMTOSTR(MA(VOL/CAPITAL*100,5)*5,2);TYP:=(HIGH+LOW+CLOSE)/3;LL:=LLV(LOW,12);HH:=HHV(HIGH,12);WR:=TYP+(TYP-LL);WS:=TYP-(HH-TYP);WA:=NUMTOSTR(WR,2);WB:=NUMTOSTR(WS,2);MM:=BUYVOL/(BUYVOL+SELLVOL)*100;ZLM1:=(DYNAINFO(23)/2+DYNAINFO(22)/10)/2;ZLM2:=MA(VOL,60)*0.333;ZLM3:=CAPITAL*(MA(VOL/CAPITAL*100,60)*60-INDEXV/ESTDATA(1)*1000);ZLM:=(ZLM1+ZLM2+ZLM3)/3;T:=NUMTOSTR(ZLM/10000,2);DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'\n'+BLKNAME+'；五日均量:'+A0+',五日換手:'+B0+'％'+',支撐:'+WB+',壓力:'+WA+',\n主力持倉:'+T),align4,COLORGREEN;A1:=BARSLAST(REF(CROSS("macd.diff","macd.dea"),1));B1:=REF(CLOSE,A1+1)>CLOSE and REF("macd.diff",A1+1)<"macd.diff" and CROSS("macd.diff","macd.dea");A2:=BARSLAST(REF(CROSS("kdj.k","kdj.d"),1));B2:=REF(CLOSE,A2+1)>CLOSE and REF("kdj.k",A2+1)<"kdj.k" and CROSS("kdj.k","kdj.d");A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));B3:=REF(CLOSE,A3+1)>CLOSE and REF("RSI.RSI1",A3+1)<"RSI.RSI1" and CROSS("RSI.RSI1","RSI.RSI2");FIL1:=FILTER(B1>0,7) or FILTER(B2>0,7) or FILTER(B3>0,7);DRAWTEXT(FIL1,LOW-0.02,'底背'),COLORRED;C1:=BARSLAST(REF(CROSS("macd.dea","macd.diff"),1));D1:=REF(CLOSE,C1+1)<CLOSE and REF("macd.diff",C1+1)>"macd.diff" and CROSS("macd.dea","macd.diff");C2:=BARSLAST(REF(CROSS("kdj.d","kdj.k"),1));D2:=REF(CLOSE,C2+1)<CLOSE and REF("kdj.k",C2+1)>"kdj.k" and CROSS("kdj.d","kdj.k");C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));D3:=REF(CLOSE,C3+1)<CLOSE and REF("RSI.RSI1",C3+1)>"RSI.RSI1" and CROSS("RSI.RSI2","RSI.RSI1");FIL2:=FILTER(D1>0,7) OR FILTER(D2>0,7) OR FILTER(D3>0,7);DRAWTEXT(FIL2,HIGH+0.1,'頂背'),COLORBLUE;{-----------------【圖解模板】---------------------};{箱體部分}PARTLINE(top=ref(top,1),top),Color008293;//箱頂PARTLINE(bot=ref(bot,1),bot),Color008293;//箱底STICKLINE((top<>ref(top,1) or bot<>ref(bot,1)) and xx=1 and ref(xx,1)=5,top,bot,1,0),Color008293;//左側豎線STICKLINE((top<>refx(top,1) or bot<>refx(bot,1)) and xx=5 and refx(xx,1)=1,top,bot,1,0),Color008293;//右側豎線{-------阻力支撐------}b:=BARSCOUNT(CLOSE)=SYSPARAM(2);d:=BARSLAST(b);hh:=HHV(HIGH,d);DRAWTEXT(BARSTATUS=2,hh,STKLABEL+' '+STKNAME+'                                                                                                          '),ColorFFFF80,pxdn20,align4,align2;換手率:=100*VOL/CAPITAL,colorfffFff;RH:=HIGH-LOW;R:=DYNAINFO(13)*100;DRAWTEXT(BARSTATUS=2,hh,'當日振幅:'+NUMTOSTR(R,2)+'%   '+NUMTOSTR(RH,2)+'元 '+'  當前換手率:'+NUMTOSTR(換手率,2)+'%  '+'                                                       '),ColorFFFFFF,pxdn20,align4,align2;DRAWTEXT(BARSTATUS=2,hh,'  機構評級:'+SELFSTRING('評級')+'                                                         '),colorffffff,pxdn80,align4,align2;gj:=IF(CLOSE=INDEXC,(INDEXC+INDEXH+INDEXL+INDEXO)/4,AMOUNT/(VOL+0.01)/100);明日阻力:=LOW+(gj-LOW)+(CLOSE-LOW);明日支撐:=LOW+(CLOSE-gj);今日阻力:=REF(明日阻力 , 1);今日支撐:=REF(明日支撐 , 1);STICKLINE(BARSTATUS=2  and CLOSE>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;STICKLINE(BARSTATUS=2  and CLOSE<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;STICKLINE(BARSTATUS=2  and CLOSE>=今日支撐,今日支撐,今日支撐,30,0),ColorFF00FF;STICKLINE(BARSTATUS=2  and CLOSE<今日支撐,今日支撐,今日支撐,30,0),,Color0000FF;DRAWTEXT(BARSTATUS=2 ,hh,'----------------------------------           '),ColorFFFFFF,pxdn2,align4,align2;DRAWTEXT(BARSTATUS=2 and CLOSE>=今日支撐,hh,'  今日支撐=：'+NUMTOSTR(今日支撐 ,2 )+'           '),ColorFF00FF,pxdn50,align4,align2;DRAWTEXT(BARSTATUS=2 and CLOSE<今日支撐,hh,'  今日支撐=：'+NUMTOSTR(今日支撐 ,2 )+'           '),,Color0000FF,pxdn50,align4,align2;DRAWTEXT(BARSTATUS=2 and CLOSE>=今日阻力,hh,'  今日阻力=：'+NUMTOSTR(今日阻力 ,2 )+'           '),align4,Color0000FF,pxdn20,align2;DRAWTEXT(BARSTATUS=2 and CLOSE<今日阻力,hh,'  今日阻力=：'+NUMTOSTR(今日阻力 ,2 )+'           '),Color00FF00,pxdn20,align4,align2;DRAWTEXT(BARSTATUS=2 ,hh,'  明日阻力=：'+NUMTOSTR(明日阻力 ,2 )+'                              '),Color00FFFF,pxdn20,align4,align2;DRAWTEXT(BARSTATUS=2 ,hh,'  明日支撐=：'+NUMTOSTR(明日支撐 ,2 )+'                              '),Color00FFFF,pxdn50,align4,align2;DRAWTEXT(BARSTATUS=2 ,hh,'----------------------------------           '),ColorFFFFFF,pxdn70,align4,align2;DRAWTEXT(BARSTATUS=2 and VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1),hh,'今日成交量大于昨日,且有繼續增大趨勢'+'           '),Color8285FF,pxdn90,align4,align2;DRAWTEXT(BARSTATUS=2 and VOL<REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1),hh,'今日成交量小于昨日，但有放大跡象'+'           '),Color8285FF,pxdn90,align4,align2;DRAWTEXT(BARSTATUS=2 and VOL>REF(VOL,1)and MA(VOL,5)<REF(MA(VOL,5),1),hh,'今日成交量大于昨日, 但有縮小跡象'+'           '),Color8285FF,pxdn90,align4,align2;DRAWTEXT(BARSTATUS=2 and VOL<REF(VOL,1)and MA(VOL,5)<REF(MA(VOL,5),1),hh,'今日成交量小于昨日，且有縮小跡象'+'           '),Color8285FF,pxdn90,align4,align2;復制代碼通達信箱體HH20:=CONST(HHV(H,N*3));LL20:=CONST(LLV(L,N*3));K:=(HH20-LL20)/(N),NODRAW;XY:DRAWLINE(CURRBARSCOUNT=N,LL20,CURRBARSCOUNT=1,HH20,0),LINETHICK1,COLORFFFFFF;YX:DRAWLINE(CURRBARSCOUNT=N,HH20,CURRBARSCOUNT=1,LL20,0),LINETHICK1,COLORFFFFFF;中位線:(XY+YX)/2,LINETHICK1,COLORFFFFFF;XX:IF(CURRBARSCOUNT<N+1,HH20,DRAWNULL),LINETHICK1,COLORFFFFFF;YY:IF(CURRBARSCOUNT<N+1,LL20,DRAWNULL),LINETHICK1,COLORFFFFFF;STICKLINE(CURRBARSCOUNT=1,HH20,LL20,0,0),COLORFFFFFF;STICKLINE(CURRBARSCOUNT=N,HH20,LL20,0,0),COLORFFFFFF;參考標準角:ATAN((HH20-LL20)/(N*K))*57.29633,COLORFFFFFF,NODRAW;MAN:=MA(C,N),COLORAAAAFF;DRAWTEXT(CURRBARSCOUNT=N-2,LL20*1.03,'主圖畫面參考標準角=45°'),COLORAAFFFF;X角K:=CONST(REF(MAN,1)-MAN)*(CURRBARSCOUNT-1)+CONST(MAN);MAN角斜線:DRAWLINE(CURRBARSCOUNT=N,X角K,CURRBARSCOUNT=1,X角K,0),LINETHICK2,COLOR00FFFF;MAN角水平線:IF(CURRBARSCOUNT<=N,CONST(REF(MAN角斜線,N-1)),DRAWNULL),LINETHICK2,COLOR00FFFF;STICKLINE(CURRBARSCOUNT=1,CONST(MAN角水平線),MAN角斜線,0.03,0),COLOR00FFFF;MAN線:MAN,LINETHICK2,COLORAAAAFF;MAN角:CONST(ATAN((MAN角斜線-MAN角水平線)/(N*K))*57.29633),NODRAW; { www.kzuj.com.cn } {<span style="display:none;"><a data-cke-saved-href="http://www.kzuj.com.cn" href="http://www.kzuj.com.cn" title="同花順程序化交易">同花順程序化交易</a></span>}
點擊復制上述代碼粘貼到到公式管理器

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