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

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

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

公式名：今日漲幅
zf:100*(close-ref(c,1))/ref(c,1);
公式名：金叉多頭_執行
公式代碼：
#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'+'倍'{中間軟件識別為按照設置的默認買賣金額（或者賬戶可用數的百分比）再乘以這個倍數進行委托}); //函數SENDYJ推送指令給中間軟件執行買賣的
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

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

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

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

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