金叉多頭如何改寫金字塔公式

作者：金字塔來源：cxh99.com 發(fā)布時間：2017年01月04日

咨詢內(nèi)容： 下面金叉多頭是買入塊板中漲幅前5的股票的代碼，如何將金叉多頭改寫成金字塔的代碼？

公式名：今日漲幅
zf:100*(close-ref(c,1))/ref(c,1);
公式名：金叉多頭_執(zhí)行
公式代碼：
#Run_By_Serie
#Run_Every_Tick

VARIABLEs:kcbar[200](0),hcbar[200](0);

盤中:=between(currenttime,SESSIONSTARTTIME(1),SESSIONENDTIME(1)) or between(currenttime,SESSIONSTARTTIME(2),SESSIONENDTIME(2));
if IsLastBar then
begin
vark:STKCOUNT(StrLeft(FormulaName,StrLen(FormulaName)-3)),LineThick0;
for $i=1 to min(200,vark) Do
begin
varlh:=RefIndi(STKFROMBLK(StrLeft(FormulaName,StrLen(FormulaName)-3),$i),'今日漲幅.zf',p_day,0);
kcbar[$i]:=varlh[0];
hkcbar[$i]:=varlh[0];
end;
varsort:=sort(hkcbar,1,1,vark);
varpos:=Sortpos(kcbar,1,1,vark);
strtk:='';
for ik=1 to min(200,vark) Do
begin
hdai:=STKFROMBLK(StrLeft(FormulaName,StrLen(FormulaName)-3),kcbar[ik]);
ingzf:=hkcbar[ ik];
//////// ///////////// 推送信號
if ik<=5{推送漲幅排序前五} and 盤中 and ingzf<5{漲幅不超過5%才推送} and getglobalvar(StrLeft(FormulaName,StrLen(FormulaName)-3)+STKNAMEEX (hdai)+'t')=0 Then
begin
if WeekDayOfDate ( currentdate)<>6 and WeekDayOfDate ( currentdate)<>0 then
begin
存時:=SetGlobalVar(StrLeft(FormulaName,StrLen(FormulaName)-3)+STKNAMEEX (hdai)+'t', if(DataPeriod>=P_Day,Date,date*10000+Hour*100+Minute));
end;
buyy:=SENDYJ('192.168.0.1','717','主的寬恕','■'+'交易信號:'+StrLeft(FormulaName,StrLen(FormulaName)-3),hdai,STKNAMEEX (hdai),'.1'{這個到了中間軟件那邊就識別為按照即時的賣1價買入},NUMTOSTR (CURRENTTIME (),0)+':1'+'倍'{中間軟件識別為按照設(shè)置的默認(rèn)買賣金額（或者賬戶可用數(shù)的百分比）再乘以這個倍數(shù)進(jìn)行委托}); //函數(shù)SENDYJ推送指令給中間軟件執(zhí)行買賣的
FILEAPPEND('C:\\Documents and Settings\\Administrator\\桌面\\'+StrLeft(FormulaName,StrLen(FormulaName)-3)+'_推送記錄.doc', strright(NUMTOSTR (Month+100,0),2)+'-'+NUMTOSTR (Day,0)+' '+strright(NUMTOSTR (InTPart(currenttime/10000)+100,0),2)+':'+strright(NUMTOSTR (InTPart(currenttime/100),0),2)+':'+strright(NUMTOSTR (currenttime,0),2)+' '+hdai+'【'+STKNAMEEX (hdai)+'】'+'.1'+'元 1'+'倍');
end;
/////////////////////////////////////////
strtk:=strtk+'\n'+StrRight(' '+NumToStr(ik,0),3)+'） '+StrRight(hdai,6)+' '+strleft(STKNAMEEX (hdai)+' ',if(StrLen(STKNAMEEX (hdai))=4,4,8-StrLen(STKNAMEEX (hdai))+1))+' '+NumToStr(hkcbar[kcbar[ik]],2)+'%';
end;
end;
DrawTextEx(islastbar,1,10,10,strtk),Color1;
金字塔客服：
http://www.weistock.com:8080/vip/forum.php?mod=viewthread&tid=470&extra=page%3D1%26filter%3Ddigest%26digest%3D1%26digest%3D1

參考這個做排序選股，
用戶回復(fù)：
1樓這個來從金字塔下面連接。請老師改寫下

http://www.weistock.com/bbs/dispbbs.asp?boardid=10&id=75696
網(wǎng)友回復(fù)： 這么多天了，還沒沒寫呀
網(wǎng)友回復(fù)：
EXTGBDATA( ) getglobalvar
EXTGBDATASET( , ) SetGlobalVar

這個是tb和金字塔全局變量的替換

其他一些金字塔不一樣的函數(shù)還請用戶編譯發(fā)現(xiàn)不同后能標(biāo)注下說明，工作人員精力有限無法對所有其他軟件的所有函數(shù)都一一去做搜尋還請理解