用龍虎看盤(pán)公式、源碼[其他軟件公式]
相關(guān)標(biāo)簽:
?
?
原理解析：
?
?來(lái)源:程序化99（ www.tumamayizhan.com ）
源碼：
?
?
input:n(403,1,10000);
DRAWGBK(C>0,colorRGB(80,100,120),colorRGB(00,00,00),1),color33ff66;
DRAWTEXTEX(c,1,20,30,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTEX(c,1,140,30,STKNAME),LINETHICK6,Color00ffff;
DRAWTEXTEX(c,1,750,400,''),LINETHICK4,Color00ffff;
DRAWTEXTEX(c,1,750,420,''),LINETHICK4,Color00ffff;
DRAWTEXTEX(c,1,750,500,'疙'),LINETHICK2,Color00ffff;
DRAWTEXTEX(c,1,750,560,'瘩'),LINETHICK2,Color00ffff;
DRAWTEXTEX(c,1,750,620,'制'),LINETHICK2,Color00ffff;
DRAWTEXTEX(c,1,750,680,'作'),LINETHICK2,Color00ffff;
DRAWTEXTEX(c,1,810,200,'龍'),LINETHICK6,Color00ff00;
DRAWTEXTEX(c,1,810,360,'虎'),LINETHICK6,Colorffffff;
DRAWTEXTEX(c,1,810,520,'看'),LINETHICK6,Color0000ff;
DRAWTEXTEX(c,1,810,680,'盤(pán)'),LINETHICK6,Color0000ff;
DRAWTEXTEX(c,1,20,450,'------------------------------------------------------------------------------------'),LINETHICK1,Coloreeeeee;
a:=BUYVOL*c/100;
bz:=sum(a,0);
b:=c*SELLVOL/100;
sz:=sum(b,0);
z:=bz+sz;
cz:=bz-sz;
xb5:=if(a<=5,a,0);b5:=sum(xb5,0);
xs5:=if(b<=5,b,0);s5:=sum(xs5,0);
xb10:=if(a<=10 and a>=5 ,a,0);b10:=sum(xb10,0);
xs10:=if(b<=10 and b>=5,b,0);s10:=sum(xs10,0);
xb30:=if(a<=30 and a>=10 ,a,0);b30:=sum(xb30,0);
xs30:=if(b<=30 and b>=10 ,b,0);s30:=sum(xs30,0);
xb50:=if(a<=50 and a>=30 ,a,0);b50:=sum(xb50,0);
xs50:=if(b<=50 and b>=30 ,b,0);s50:=sum(xs50,0);
xb70:=if(a<=70 and a>=50 ,a,0);b70:=sum(xb70,0);
xs70:=if(b<=70 and b>=50 ,b,0);s70:=sum(xs70,0);
xb100:=if(a<=100 and a>=70,a,0);b100:=sum(xb100,0);
xs100:=if(b<=100 and b>=70,b,0);s100:=sum(xs100,0);
xb150:=if(a>=100 ,a,0);b150:=sum(xb150,0);
xs150:=if(b>=100 ,b,0);s150:=sum(xs150,0);
j5:=b5-s5;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
DRAWTEXTEX(BARSTATUS=2 and (z),1,320,45,'■總成金額（萬(wàn)元）：'+NUMTOSTR(z,2)),LINETHICK4,COLORccffcc;
DRAWTEXTEX(BARSTATUS=2 and (bz),1,30,500,'■■■■■買(mǎi)入:'+NUMTOSTR(bz,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (sz),1,250,500,'■■■■■賣(mài)出:'+NUMTOSTR(sz,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (b5),1,30,560,'5 萬(wàn)大單買(mǎi)入:'+NUMTOSTR(b5,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (s5),1,250,560,'5 萬(wàn)大單賣(mài)出:'+NUMTOSTR(s5,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (b10),1,30,620,'10 萬(wàn)大單買(mǎi)入:'+NUMTOSTR(b10,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (s10),1,250,620,'10 萬(wàn)大單賣(mài)出:'+NUMTOSTR(s10,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (b30),1,30,680,'30 萬(wàn)大單買(mǎi)入:'+NUMTOSTR(b30,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (s30),1,250,680,'30 萬(wàn)大單賣(mài)出:'+NUMTOSTR(s30,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (b50),1,30,740,'50 萬(wàn)大單買(mǎi)入:'+NUMTOSTR(b50,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (s50),1,250,740,'50 萬(wàn)大單賣(mài)出:'+NUMTOSTR(s50,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (b70),1,30,800,'70 萬(wàn)大單買(mǎi)入:'+NUMTOSTR(b70,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (s70),1,250,800,'70 萬(wàn)大單賣(mài)出:'+NUMTOSTR(s70,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (b100),1,30,860,'100 萬(wàn)大單買(mǎi)入:'+NUMTOSTR(b100,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (s100),1,250,860,'100 萬(wàn)大單賣(mài)出:'+NUMTOSTR(s100,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (b150),1,30,920,'150 萬(wàn)大單買(mǎi)入:'+NUMTOSTR(b150,2)),LINETHICK1,COLORred;
DRAWTEXTEX(BARSTATUS=2 and (s150),1,250,920,'150 萬(wàn)大單賣(mài)出:'+NUMTOSTR(s150,2)),LINETHICK1,COLORgreen;
DRAWTEXTEX(BARSTATUS=2 and (cz),1,500,500,'■■■■總凈買(mǎi)入:'+NUMTOSTR(cz,2)),LINETHICK1,COLORccff00;
DRAWTEXTEX(BARSTATUS=2 and (j5),1,500,560,'5萬(wàn)大單凈買(mǎi)入'+NUMTOSTR(j5,2)),LINETHICK1,COLORccff00;
DRAWTEXTEX(BARSTATUS=2 and (j10),1,500,620,'10萬(wàn)大單凈買(mǎi)入'+NUMTOSTR(j10,2)),LINETHICK1,COLORccff00;
DRAWTEXTEX(BARSTATUS=2 and (j30),1,500,680,'30萬(wàn)大單凈買(mǎi)入'+NUMTOSTR(j30,2)),LINETHICK1,COLORccff00;
DRAWTEXTEX(BARSTATUS=2 and (j50),1,500,740,'50萬(wàn)大單凈買(mǎi)入'+NUMTOSTR(j50,2)),LINETHICK1,COLORccff00;
DRAWTEXTEX(BARSTATUS=2 and (j70),1,500,800,'70萬(wàn)大單凈買(mǎi)入'+NUMTOSTR(j70,2)),LINETHICK1,COLORccff00;
DRAWTEXTEX(BARSTATUS=2 and (j100),1,500,860,'100萬(wàn)大單凈買(mǎi)入'+NUMTOSTR(j100,2)),LINETHICK1,COLORccff00;
DRAWTEXTEX(BARSTATUS=2 and (j150),1,500,920,'150萬(wàn)大單凈買(mǎi)入'+NUMTOSTR(j150,2)),LINETHICK1,COLORccff00;
dd:=INTPART(LN(FINANCE(7)/(n*10))*ATAN(FINANCE(7))*100);
主動(dòng)買(mǎi)入:=SUM(BUYVOL,0);
主動(dòng)賣(mài)出:=SUM(SELLVOL,0);
大單買(mǎi):=if(BUYVOL>=dd,BUYVOL,0);
大單賣(mài):=if(SELLVOL>dd,SELLVOL,0);
大單買(mǎi)入:=SUM(大單買(mǎi),0);
大單賣(mài)出:=SUM(大單賣(mài),0);
小單買(mǎi)入:=主動(dòng)買(mǎi)入-大單買(mǎi)入;
小單賣(mài)出:=主動(dòng)賣(mài)出-大單賣(mài)出;
大買(mǎi)金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0);
大單買(mǎi)均價(jià):=大買(mǎi)金/大單買(mǎi)入;
大賣(mài)金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0);
大單賣(mài)均價(jià):=大賣(mài)金/大單賣(mài)出;
成交筆數(shù):=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
大單凈量:=大單買(mǎi)入-大單賣(mài)出;
DRAWTEXTEX(c,1,30,420,'■ 大單凈量:'+NUMTOSTR(大單凈量,2)),Color00FFFF,LINETHICK2;
//DRAWTEXTEX(c,1,115,100,''+大單凈量),Color00FFFF,LINETHICK2;
DRAWTEXTEX(c,1,300,420,' 占'+NUMTOSTR(FLOOR(大單凈量/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100),2)+' %'),Color00FFFF,LINETHICK2;
DRAWTEXTEX(c,1,30,100,'■ 大單買(mǎi)入: '+NUMTOSTR(大單買(mǎi)入,2)),Color8000FF,LINETHICK2;
DRAWTEXTEX(c,1,300,100,' 占'+NUMTOSTR(FLOOR(大單買(mǎi)入/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100),2)+'%'),Color8000FF,LINETHICK2;
DRAWTEXTEX(c,1,500,100,'大單買(mǎi)均價(jià): '+NUMTOSTR(大單買(mǎi)均價(jià),2)),Color8000FF,LINETHICK2;
DRAWTEXTEX(c,1,30,260,'■ 大單賣(mài)出: '+NUMTOSTR(大單賣(mài)出,2)),Color00FF00,LINETHICK2;
DRAWTEXTEX(c,1,300,260,' 占'+NUMTOSTR(FLOOR(大單賣(mài)出/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100),2)+' %'),Color00FF00,LINETHICK2;
DRAWTEXTEX(c,1,500,180,'大單賣(mài)均價(jià): '+NUMTOSTR(大單賣(mài)均價(jià),2)),Color00FF00,LINETHICK2;
DRAWTEXTEX(c,1,30,180,'■ 小單買(mǎi)入: '+NUMTOSTR(小單買(mǎi)入,2)),Color2F73FF,LINETHICK2;
DRAWTEXTEX(c,1,300,180,' 占'+NUMTOSTR(FLOOR(小單買(mǎi)入/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100),2)+' %'),Color2F73FF,LINETHICK2;
DRAWTEXTEX(c,1,30,340,'■ 小單賣(mài)出: '+NUMTOSTR(小單賣(mài)出,2)),ColorB4B043,LINETHICK2;
DRAWTEXTEX(c,1,300,340,' 占'+NUMTOSTR(FLOOR(小單賣(mài)出/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100),2)+' %'),ColorA8A800,LINETHICK2;
DRAWTEXTEX(c,1,500,260,'總成交筆數(shù): '+NUMTOSTR(成交筆數(shù),2)),ColorFFFFFF,LINETHICK2;
DRAWTEXTEX(c,1,500,340,'每筆成交手: '+NUMTOSTR(INTPART((主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)/成交筆數(shù)),2)),LINETHICK2;
DRAWTEXTEX(c,1,500,420,'■大單標(biāo)準(zhǔn): '+NUMTOSTR(dd,2)),ColorFFFFFF,LINETHICK2;
總:=DYNAINFO(8);
STICKLINE((總 AND BARSTATUS=2),0,總,200,1),COLORFFFFFF;
STICKLINE((大單買(mǎi)入+大單賣(mài)出+小單買(mǎi)入+小單賣(mài)出 AND BARSTATUS=2),0,總,200,0),Color8000FF;
STICKLINE((大單賣(mài)出+小單買(mǎi)入+小單賣(mài)出 AND BARSTATUS=2),0,大單賣(mài)出+小單買(mǎi)入+小單賣(mài)出,200,0),Color2F73FF;
STICKLINE((小單賣(mài)出+大單賣(mài)出 AND BARSTATUS=2),0,小單賣(mài)出+大單賣(mài)出,200,0),Color00FF00;
STICKLINE((小單賣(mài)出 AND BARSTATUS=2),0,小單賣(mài)出,200,0),ColorB4B043;
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?
有思路，想編寫(xiě)各種指標(biāo)公式，交易模型，選股公式，還原公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信：cxhjy888 進(jìn)行 有償收費(fèi) 編寫(xiě)！(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求，否則無(wú)法通過(guò)。謝謝您！)
（怎么收費(fèi)，代編流程等詳情請(qǐng)點(diǎn)擊查閱！）
(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求，否則無(wú)法通過(guò)。謝謝您！)
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)