打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:
?
?
原理解析：
?
?來源:程序化99（ m.kzuj.com.cn ）
源碼：
?
DRAWTEXTREL(50,10,' 代碼: '+STKLABEL+' '+STKNAME+' 日期: '+YEAR+'年'+MONTH+'月 '+DAY+'日 '),linethick2,ColorFFFF80;
DRAWTEXTREL(650,10,'㊣十二星座*神獒贏富㊣{股票公式www..com}'),linethick1,COLOR00EEff;
a1:=SUM((ORDERVOL(1,3)),0);
a2:=SUM((ORDERVOL(2,3)),0);
a3:=(SUM((ORDERVOL(1,2)),0)) - a1;
a4:=(SUM((ORDERVOL(2,2)),0)) - a2;
a5:=(SUM((ORDERVOL(1,1)),0)) - (SUM((ORDERVOL(1,2)),0));
a6:=(SUM((ORDERVOL(2,1)),0)) - (SUM((ORDERVOL(2,2)),0));
a7:=(SUM((ORDERVOL(1,0)),0)) - (SUM((ORDERVOL(1,1)),0));
a8:=(SUM((ORDERVOL(2,0)),0)) - (SUM((ORDERVOL(2,1)),0));
a9:=(SUM((ORDERVOL(1,0)),0)) + (SUM((ORDERVOL(2,0)),0));
a10:=a7 - a8;{股票公式www..com}
a11:=a5 - a6;
a12:=a3 - a4;
a13:=a1 - a2;
a14:=(SUM((ORDERVOL(1,2)),0)) - (SUM((ORDERVOL(2,2)),0));
a15:=(100 * a7) / a9;
a16:=(100 * a8) / a9;
a17:=(100 * a5) / a9;
a18:=(100 * a6) / a9;
a19:=(100 * a3) / a9;
a20:=(100 * a4) / a9;
a21:=(100 * a1) / a9;
中戶籌碼:A11,linethick1,colorGreen;
大戶籌碼:A12,linethick1,colorYellow;
機(jī)構(gòu)籌碼:A13,linethick1,ColorFF0000;
主力籌碼:A14,linethick2,colorRed;
a22:=(100 * a2) / a9;
a23:=(100 * (SUM((ORDERVOL(1,2)),0))) / a9;
a24:=(100 * (SUM((ORDERVOL(2,2)),0))) / a9;
a25:=(100 * a10) / a9;
a26:=(100 * a11) / a9;
a27:=(100 * a12) / a9;
a28:=(100 * a13) / a9;
a29:=(100 * a14) / a9;
a30:=(a1);
a31:=(a2);
a32:=(a3);
a33:=(a4);
a34:=(a5);
a35:=(a6);
a36:=(a7);
a37:=(a8);
a38:=((SUM((ORDERVOL(1,2)),0)));
a39:=((SUM((ORDERVOL(2,2)),0)));
a40:=(a10);
a41:=500 / (MAX(a30,a31,a32,a33,a34,a35,a36,a37,a40,中戶籌碼,大戶籌碼,機(jī)構(gòu)籌碼));
a42:=550 / (MAX(a38,a39,主力籌碼));
a43:=600 - (a30 * a41);
a44:=600 - (a31 * a41);
a45:=600 - (a32 * a41);
a46:=600 - (a33 * a41);
a47:=600 - (a34 * a41);
a48:=600 - (a35 * a41);
a49:=600 - (a36 * a41);
a50:=600 - (a37 * a41);
a51:=600 - (a38 * a42);
a52:=600 - (a39 * a42);
a53:=600 - (a40 * a41);
a54:=600 - (中戶籌碼 * a41);
a55:=600 - (大戶籌碼 * a41);
a56:=600 - (機(jī)構(gòu)籌碼 * a41);
a57:=600 - (主力籌碼 * a42);
DRAWRECTREL(50,a49,70,600,250),colorYellow;
DRAWRECTREL(70,a50,90,600,9213440),colorYellow;
DRAWRECTREL(90,a53,110,600,(IF((a10 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(160,a47,180,600,250),colorYellow;
DRAWRECTREL(180,a48,200,600,9213440),colorYellow;
DRAWRECTREL(200,a54,220,600,(IF((a11 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(270,a45,290,600,250),colorYellow;
DRAWRECTREL(290,a46,310,600,9213440),colorYellow;
DRAWRECTREL(310,a55,330,600,(IF((a12 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(380,a43,400,600,250),colorYellow;
DRAWRECTREL(400,a44,420,600,9213440),colorYellow;
DRAWRECTREL(420,a56,440,600,(IF((a13 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(925,a51,945,600,255),colorYellow;
DRAWRECTREL(945,a52,965,600,9213440),colorYellow;
DRAWRECTREL(965,a57,985,600,(IF((a14 >= 0),3289855,8584960))),colorYellow;
DRAWRECTREL(0,600,445,604,255),colorWhite;
DRAWTEXTREL(18,450,'散戶'),ColorDDFFFF;
DRAWTEXTREL(125,450,'中戶'),ColorDDFFFF;
DRAWTEXTREL(235,450,'大戶'),ColorDDFFFF;
DRAWTEXTREL(345,450,'機(jī)構(gòu)'),ColorDDFFFF;
DRAWTEXTREL(888,450,'主力'),ColorDDFFFF;
DRAWTEXTREL(2,720,'機(jī)構(gòu)買:'+NUMTOSTR(a21)+'%'+' 大戶買:'+NUMTOSTR(a19)+'%'+' 中戶買:'+NUMTOSTR(a17)+'%'+' 散戶買:'+NUMTOSTR(a15)+'%'),colorRed;
DRAWTEXTREL(2,790,'機(jī)構(gòu)賣:'+NUMTOSTR(a22)+'%'+' 大戶賣:'+NUMTOSTR(a20)+'%'+' 中戶賣:'+NUMTOSTR(a18)+'%'+' 散戶賣:'+NUMTOSTR(a16)+'%'),colorGreen;
DRAWTEXTREL(2,860,'機(jī)構(gòu)差:'+NUMTOSTR(a28)+'%'+' 大戶差:'+NUMTOSTR(a27)+'%'+' 中戶差:'+NUMTOSTR(a26)+'%'+' 散戶差:'+NUMTOSTR(a25)+'%'),colorWhite;
DRAWTEXTREL(2,930,'主力差:'+NUMTOSTR(a29)+'%'),colorWhite;
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?