|
大智慧“跳空缺口”和“冷暖氣帶”主圖公式的完整代碼,，你覺(jué)得有用不妨試試： {均線系統(tǒng)} ma5:ma(c,5),colorwhite,precis2; ma10:ma(c,10),coloryellow,precis2; ma20:ma(c,20),colormagenta,precis2; ma60:ma(c,60),colorgreen,precis2,linethick1; ma120:ma(c,120),colorgray,precis2,linethick1; {/均線系統(tǒng)} {T 線} TLine:ma(ref(hhv(max(c,o),30),1),2),precis2,color808000,pointdot; {/T 線} {冷暖氣帶} {ma60:=ma(c,60);ma120:=ma(c,120);} stickline(ma60>=ma120 and (l>=ma60 or h<ma120),ma120,ma60,0.1,0), color000033,layer7; stickline(ma60>=ma120 and h>=ma60 and l<ma60 and l>=ma120,ma120,l,0.1,0), color000033,layer7; stickline(ma60>=ma120 and h<ma60 and l>=ma120,ma120,l,0.1,0),color000033,layer7; stickline(ma60>=ma120 and h<ma60 and l>=ma120,h,ma60,0.1,0), color000033,layer7; stickline(ma60>=ma120 and h<ma60 and h>=ma120 and l<=ma120,h,ma60,0.1,0), color000033,layer7; stickline(ma60<ma120 and (l>ma120 or h<ma60),ma60,ma120,0.1,0),color003300,layer7; stickline(ma60<ma120 and h>=ma120 and l<ma120 and l>=ma60,ma60,l,0.1,0),color003300,layer7; stickline(ma60<ma120 and h<ma120 and l>=ma60,ma60,l,0.1,0),color003300,layer7; stickline(ma60<ma120 and h<ma120 and l>=ma60,h,ma120,0.1,0),color003300,layer7; stickline(ma60<ma120 and h<ma120 and h>=ma60 and l<=ma60,h,ma120,0.1,0),color003300,layer7; {/冷暖氣帶} {漲停板} zt:=floor((c*100+0.5))/100>=(floor(ref(c,1)*1.1*100+0.5)/100) floor((c*100+0.5))/100<=(floor(ref(c,1)*1.1023*100+0.5)/100) and datatype=8; stickline(zt,o,c,7,0),coloryellow,layer0; {/漲停板} and {五線順上} {ma5:=ma(c,5);ma10:=ma(c,10);ma20:=ma(c,20);ma60:=ma(c,60);ma120:=ma(c,120);} td:=barscount(c); obv:=if(td=1,vol*if(c>o,1,if(c<o,-1,0)), ref(vol,td-1)*if(ref(c,td-1)>ref(o,td-1),1,if(ref(c,td-1)<ref(o,td-1),-1,0))+ sum(if(c>ref(c,1),vol,if(c<ref(c,1),-vol,0)),0)); 五 線 順 上 :=ma5=hhv(ma5,3) and ma10=hhv(ma10,3) and ma20=hhv(ma20,3) and ma60=hhv(ma60,3) and ma120=hhv(ma120,3) and c>max(max(max(max(ma5,ma10),ma20),ma60),ma120) and (ma60>ma120 or abs(ma60-ma120)<=max(ma60,ma120)*0.02) and c/ref(ma60,barslast(cross(ma60,ma120)))<1.6 and c>o and max(obv,max(ref(obv,1),ref(obv,2)))=hhv(obv,119) and obv>ref(obv,1) and obv>ma(obv,30); drawtext( 五 線 順 上 and ref( 五 線 順 上 ,1)=0 and sumbars( 五 線 順 上 ,2)>9,l,' ↖ 順 '),color0080ff,align0; {/五線順上} {季均價(jià)} m:=month; d0406:=barslast(m=3); d0106:=barslast(m=12); a0103:=sum(amount,d0106)-sum(amount,d0406); v0103:=sum(vol,d0106)-sum(vol,d0406); p0103:=if(m>=4 and m<=6,a0103/v0103/100,0); d0709:=barslast(m=6); d0409:=barslast(m=3); a0406:=sum(amount,d0409)-sum(amount,d0709); v0406:=sum(vol,d0409)-sum(vol,d0709); p0406:=if(m>=7 and m<=9,a0406/v0406/100,0); d1012:=barslast(m=9); d0712:=barslast(m=6); a0709:=sum(amount,d0712)-sum(amount,d1012); v0709:=sum(vol,d0712)-sum(vol,d1012); p0709:=if(m>=10 and m<=12,a0709/v0709/100,0); d0103:=barslast(m=12); d1003:=barslast(m=9); a1012:=sum(amount,d1003)-sum(amount,d0103); v1012:=sum(vol,d1003)-sum(vol,d0103); p1012:=if(m>=1 and m<=3,a1012/v1012/100,0); jjj:p0103+p0406+p0709+p1012,precis2,linethick0,colorff8080; {/季均價(jià)}; {乖離率} bias5:(close-ma(close,5))/ma(close,5)*100,linethick0,precis1,color0080ff; bias60:(close-ma(close,60))/ma(close,60)*100,linethick0,precis1,color0080ff; {/乖離率} {跳空缺口} i:=0; flag:=0; s1:=0; s2:=0; while i<barslast(dispstatus=1)-barslast(barstatus=2) do if (ref(h,i)<ref(l,i+1) and ref(l,i+1)>hhv(h,i+1) or (ref(l,i)>ref(h,i+1) ref(h,i+1)<llv(l,i+1))) then begin flag:=1; s1:=backset(barstatus=2,i+1); s2:=count(s1,0); i:=barslast(dispstatus=1); end else i:=i+1; vl:=if(ref(h,s2)<llv(l,s2),ref(h,s2)+0.01,hhv(h,s2)+0.01); vh:=if(ref(h,s2)<llv(l,s2),llv(l,s2)-0.01,ref(l,s2)-0.01); stickline(flag,vl,vh,20*s2+20,0),colorc0c0c0,align1,layer7; drawtext(flag,vl,numtostrn(vl-0.01,2)+'-'+numtostrn(vh+0.01,2)),align2,colorgreen; {/跳空缺口}; and {板塊流通} drawtextabs(1,5, '所屬板塊:'+bkname+',、流通盤:'+numtostr(finance2(37)/10000)+'億股'+',、流 通市值:'+numtostr(dynainfo(57)/100000000)+'億元'),color8000ff,layer7; {/板塊流通}; |
|
|
