网友求助：
一公式源码
AG:=STKCOUNT('A股板块');
流通:IF(CAPITAL<1,ESTDATA(12)/10000,FINANCE(7)/10000),LINETHICK0,PRECISION2,Color00BFFF;
DT:=CURRENTDATE;
AA:=REF(DATE,BARSLAST(SYSPARAM(1)=BARPOS));
BB:=IF(AA=DT,1,0);
CC:=BB[SYSPARAM(3)];
if CC=1 then
DD:=ISLASTBAR;
else
DD:=BARPOS=ISLASTBAR;
qj:=DD;
qj1:=IF(qj,STKINDI('','机构.机构',0,0),EXTDATA(9));
qj2:=IF(qj,STKINDI('','券商.券商',0,0),EXTDATA(10));
qj3:=IF(qj,STKINDI('','大户.大户',0,0),EXTDATA(11));
qj4:=IF(qj,STKINDI('','中户.中户',0,0),EXTDATA(12));
qj5:=IF(qj,STKINDI('','散户.散户',0,0),EXTDATA(13));
qj6:=IF(qj,STKINDI('','沪机构.机构',0,0),EXTDATA(6));
qj7:=IF(qj,STKINDI('','沪大户.大户',0,0),EXTDATA(7));
qj8:=IF(qj,STKINDI('','沪中户.中户',0,0),EXTDATA(5));
qj9:=IF(qj,STKINDI('','沪散户.散户',0,0),EXTDATA(8));
GGZL:=qj1+qj2+qj3;
ZSZL:=qj6+qj7;
GGSH:=qj4+qj5;
ZSSH:=qj8+qj9;
昨日:=IF(CAPITAL<1,(EXTDATA(6)+EXTDATA(7)),(EXTDATA(9)+EXTDATA(10)+EXTDATA(11)));
ZL:=IF(CAPITAL<1,ZSZL,GGZL);
SH:=IF(CAPITAL<1,ZSSH,GGSH);
主力买:STICKLINE(ZL>=0,0,ZL/IF(CAPITAL<1,(AG*300),10000),8,0),Color0000FF;
主力卖:STICKLINE(ZL<0,0,-1*ZL/IF(CAPITAL<1,(AG*300),10000),8,0),ColorFFFF00;
散户买:STICKLINE(SH>=0,0,SH/IF(CAPITAL<1,(AG*300),10000),5,0),Color00BBFF;
散户卖:STICKLINE(SH<0,0,-1*SH/IF(CAPITAL<1,(AG*300),10000),5,0),ColorFF0000;
机构线:DMA((REF(SUM(ZL,44),0)+ZL)/IF(CAPITAL<1,ESTDATA(12)/10,CAPITAL/10),IF(CAPITAL<1,ESTDATA(12),CAPITAL)),ColorFFFFFF,LINETHICK2;
散户线:DMA((REF(SUM(SH,44),0)+SH)/IF(CAPITAL<1,ESTDATA(12)/10,CAPITAL/10),IF(CAPITAL<1,ESTDATA(12),CAPITAL)),Color00EE00,LINETHICK2;
ZSA:=IF(CAPITAL<1,SUM(ZL,22)/(AG*10000),SUM(ZL,22)/FINANCE(7));
ZSB:=(REF(SUM(ZL,22),1)+ZL)/IF(CAPITAL<1,(AG*10000),FINANCE(7));
EE0:=SUM(IF(INDEXA>REF(INDEXA,1) and INDEXC>MA(INDEXC,5) and INDEXC>INDEXO,INDEXV,0),10);
EE1:=SUM(IF(INDEXA<REF(INDEXA,1) and INDEXC>MA(INDEXC,5) and INDEXC<REF(INDEXC,1),INDEXV,0),10);
EP:=SUM(IF(INDEXC<MA(INDEXC,5),INDEXV,0),10);
EEA:=SUM(IF(AMOUNT>REF(AMOUNT,1) and CLOSE>MA(CLOSE,5),VOL,0),10);
EE2:=SUM(IF(AMOUNT<REF(AMOUNT,1) and CLOSE<MA(CLOSE,5),VOL,0),10);
EG:=SUM(IF(CLOSE<MA(CLOSE,5),VOL,0),10);
EE:=EE0-(EE1+EP);
EEE:=EEA-(EE2+EG);
大盘:=(EE/(AG*30000)),ColorFF00FF,LINETHICK2;
个股:=(EEE/FINANCE(7)),Color00EE00;
强弱线:=(大盘+个股)/2;
{取点}
LC:=REF(C,1);
JH:=SMA(MAX(C-LC,0),6,1)/SMA(ABS(C-LC),6,1)*100;
SZ:=FILTER(CROSS(JH,40),9);
SQ:=FILTER(CROSS(70,JH),74);
SX:=FILTER(CROSS(JH,30),9);
SD:=FILTER(CROSS(60,JH),22);
CC:=IF(CAPITAL<1,CROSS(大盘,强弱线),CROSS(个股,大盘) and CROSS(个股,强弱线) and 强弱线>REF(强弱线,3));
AA:=IF(CAPITAL<1,SZ,SX);
BB:=IF(CAPITAL<1,SQ,SD);
A:=barslast(AA);
B:=barslast(BB);
D:=barslast(CC);
起点:=if(A>0 and A<=B,A,0);
终点:=if(B>0 and B<=A,B,0);
QJW:=if(D>0 and D<=B,D,0);
QJZ:=if(B>0 and B<=D,B,0);
VERTLINE(AA),LINEDOT,Color0000FF;
VERTLINE(BB),LINEDOT,Color00FB00;
阶段总额【万元】:=SUM(AMOUNT/10000,22)*100,LINETHICK0,PRECISION;//换手100%成交额
阶段总量【手】:=SUM(V,22)*100;//换手100%成交量
市场成本【元】:=(阶段总额【万元】/(阶段总量【手】/100));
DRAWTEXTEX(c,1,10,200,'主力平均成本:'+NUMTOSTR(市场成本【元】[SYSPARAM(1)],2)+'(元)'),COLOR00FF00;
换手率:IF(CAPITAL<1,vol/(AG*10000),v/FINANCE(7)),PRECISION2,LINETHICK0;
{显示时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系统参数(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+数字转化为字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,230,0,str1),ColorffFF00;
CLN3:='机构净买='+NUMTOSTR(IF(CAPITAL<1,qj6,qj1),0)+ ' 手 券商净买='+NUMTOSTR(IF(CAPITAL<1,0,qj2),0)+' 手 大户净买='+NUMTOSTR(IF(CAPITAL<1,qj7,qj3),0)+' 手 中户净买='+NUMTOSTR(IF(CAPITAL<1,qj8,qj4),0)+' 手 散户净买='+NUMTOSTR(IF(CAPITAL<1,qj9,qj5),0)+' 手';
DRAWTEXTEX(c,1,10,0,STKLABEL+' '+STKNAME+''),ColorffFF00;
DRAWTEXTEX(c,1,10,400,'估算主力筹码:'+NUMTOSTR(ZSA[P],2)+' %'),COLOR00FF00;
DRAWTEXTEX(c,1,10,600,'主力筹码增减:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00;
DRAWTEXTEX(c,1,500,0,'主力开始进入:'+NUMTOSTR(起点[P],0)+'(天) '),COLORFFFF00;
DRAWTEXTEX(c,1,10,800,'已进入拉升区:'+NUMTOSTR(QJW[P],0)+'(天) '),COLOR00FF00;
DRAWTEXTEX(c,1,760,0,'已进入回吐区:'+NUMTOSTR(终点[P],0)+'(天) '),COLORFFFF00;
DRAWTEXT(AA,AA,'小 子 哪 跑'),Color00FFFF,PXUP85,ALIGN5;
DRAWTEXT(BB,BB,'不 玩 了'),Color00FF00,PXUP120,ALIGN5;
DRAWTEXT(FILTER(CC,22),CC,'拉 升'),ColorFFFFFF,PXUP35,ALIGN5;
{增减仓}
日增:=昨日;
周仓:=SUM(日增,5);
月仓:=SUM(日增,22);
季仓:=SUM(日增,66);
半年:=SUM(日增,130);
年仓:=SUM(日增,250);
上周:=REF(周仓,1);
上月:=REF(月仓,1);
上季:=REF(季仓,1);
上半年:=REF(半年,1);
上年:=REF(年仓,1);
周增:=(上周+周仓);
月增:=(上月+月仓);
季增:=(上季+季仓);
半年增:=(半年+上半年);
年增:=(上年+年仓);
{解盘}
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'******千**钧**赢**富******'),color00EEFF;
EXPLAIN(C>0,'本日交易信息: '+CLN3),Color00FFaF;
EXPLAIN(C>0,'本日主力净买:'+NUMTOSTR((ZL*100)/10000,2)+' 万股'),COLOrffff00;
EXPLAINEX(1,'昨日增减【万元】: ',昨日*100*c/10000,2,0),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'周仓【万元】:',周仓*100*c/10000,2,0),COLORred;
EXPLAINEX(1,'上周【万元】:'+NUMTOSTR(上周[P]*100*c/10000,2)+'
增减【万元】:',周增*100*c/10000,2,0),COLORred;//环比增量
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'月仓【万元】:',月仓*100*c/10000,2,0),COLORyellow;//green;
EXPLAINEX(1,'上月【万元】:'+NUMTOSTR(上月[P]*100*c/10000,2)+'
增减【万元】:',月增*100*c/10000,2,0),COLORyellow;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'季仓【万元】:',季仓*100*c/10000,2,0),COLORgreen;
EXPLAINEX(1,'上季【万元】:'+NUMTOSTR(上季[P]*100*c/10000,2)+'
增减【万元】:',季增*100*c/10000,2,0),COLORgreen;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'半年【万元】:',半年*100*c/10000,2,0),COLORcyan;
EXPLAINEX(1,'上半【万元】:'+NUMTOSTR(上半年[P]*100*C/10000,2)+'
增减【万元】:',半年增*100*c/10000,2,1),COLORcyan;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'年仓【万元】:',年仓*100*c/10000,2,0),COLORyellow;
EXPLAINEX(1,'上年【万元】:'+NUMTOSTR(上年[P]*100*c/10000,2)+'
增减【万元】:',(年增*100*c)/10000,2,1),COLORyellow;
EXPLAIN(1,'==================================='),colorwhite;
早晨之星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
黄昏之星:=REF(CLOSE,2)/REF(OPEN,2) > 1.03 AND REF(OPEN,1) > REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND
CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2);
长十字:=CLOSE=OPEN AND HIGH/LOW >1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;
早晨十字星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2) > 1.05 AND REF(OPEN,1) > REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND
CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2);
射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5);
倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5);
锤头:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5);
吊颈:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);
穿头破脚:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1))
OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1));
乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);
曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);
身怀六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND
MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1));
十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND CLOSE=OPEN AND
CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE > MIN(REF(CLOSE,1),REF(OPEN,1));
平顶:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001);
大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018;
三个白武士:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN
AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1);
双飞乌鸦:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98;
孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100 AND REF(OPEN,1)>=REF(CLOSE,1) AND
(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND
(CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;
出水芙蓉:=(OPEN<EMA(C,20) OR OPEN<EMA(C,40) OR OPEN<EMA(C,60)) AND (C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60))))
AND (V/MA(V,30)>1.2 AND C/REF(C,1)>1.049);
上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND
REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4);
下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND
REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
CLOSE<REF(CLOSE,4);
跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1);
三只乌鸦:=REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1);
光脚阴线:=LOW=CLOSE AND HIGH<>LOW;
光头阳线:=HIGH=CLOSE AND HIGH<>LOW;
分离:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN AND HIGH<>LOW;
大阴烛:=OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018;
好友反攻:=(REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)
OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);
倾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O>REF(O,1) AND C<REF(O,1);
二公式源码
