紅球開多綠開空主圖指標源碼

❶ 通達信主圖指標源碼，求老師看有沒有未來，並幫改成選股和預警公式，謝謝

(1)無未來函數
(2)選股公式如下(買入)：
VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DIR1:=ABS(CLOSE-REF(CLOSE,5));
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER1:=DIR1/VIR1;
CS1:=ER1*(0.8-2/8)+2/8;
CQ1:=CS1*CS1;
DIR2:=ABS(CLOSE-REF(CLOSE,10));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
CROSS(VAR2,MA(VAR3,6));

❷ 誰知道這個指標源代碼主圖！謝謝

input:P1(5);
年:MA(CLOSE,26),color00ff00;
cp:="cpzb@cp";
cp,LINETHICK0;
DRAWICON(cp=1,l*0.95,4),ALIGN1;
DRAWICON(cp=9,h*1.05,5),ALIGN1;
DRAWtext(cp=1,l*0.925,'B'),coloryellow,ALIGN1;
DRAWtext(cp=9,h*1.085,'S'),colorgreen,ALIGN1;

dp:=if(c=INDEXC,0,1);
gj:=AMOUNT/v/100;
明日阻力:=l+(gj-l)+(c-l);
明日支撐:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撐:=REF(明日支撐 , 1);
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2 and dp=1 and c>=今日支撐,今日支撐,今日支撐,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2 and dp=1 and c<今日支撐,今日支撐,今日支撐,30,0),ColorFF0000;
if DISPSTATUS=2 then a:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=a-b;
e:=hhv(h,d);
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.08,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日支撐, e*1.07,'今日支撐=：'+NUMTOSTRN(今日支撐 ,2 )+' '),ColorFF00FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日支撐, e*1.07,'今日支撐=：'+NUMTOSTRN(今日支撐 ,2 )+' '),ColorFF0000,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=今日阻力, e*1.07,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color0000FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<今日阻力, e*1.07,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2, e*1.04,'-----------------------------------'),ColorFFFFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日支撐, e*1.05,'明日支撐=：'+NUMTOSTRN(明日支撐 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日支撐, e*1.05,'明日支撐=：'+NUMTOSTRN(明日支撐 ,2 )+' '),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c>=明日阻力, e*1.05,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and c<明日阻力, e*1.05,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量大於昨日,且有繼續增大趨勢'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),e*1.03,' 今日成交量小於昨日，但有放大跡象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大於昨日, 但有縮小跡象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小於昨日，且有縮小跡象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量大於昨日, 但有縮小跡象'),Color8285FF,ALIGN2;
DRAWTEXT(c>0 and dp=1 and DISPSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),e*1.03,' 今日成交量小於昨日，且有縮小跡象'),Color8285FF,ALIGN2;
Var1:=EMA(C,3);
Var2:=EMA(C,5);
Var3:=EMA(C,10);
Var4:=EMA(C,20);
Var5:=EMA(C,30);
Var6:=(Var2+Var3+Var4+Var5)/4;
Var7:=(Var6-REF(Var6,15))/REF(Var6,15)*100;
Var8:=(Var6-REF(Var6,15))/REF(Var6, 15)*100;
Var9:=EMA(Var7,8);
STICKLINE(Var7<1*REF(Var7,1),h,l,0.5,0),COLORBLUE;STICKLINE(Var7<1*REF(Var7,1),o,c,5, 1),COLORBLUE;
STICKLINE(Var7>1*REF(Var7,1),h,l,0.5,0),COLORRED;STICKLINE(Var7>1*REF(Var7,1),o,c,5, 1),COLORRED;
STICKLINE(Var7<1*REF(Var7,1) AND Var9>1*REF(Var9,1),h,l,0.5,0),COLORGREEN;STICKLINE(Var7<1*REF(Var7,1) AND Var9>1*REF(Var9,1),o,c,5, 1),COLORGREEN;
買進價:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
買進條件:=cross(c,買進價) and 買進價>ref(買進價,1);
STICKLINE(買進條件,h,l,0.5,1),colorwhite,linethick2;STICKLINE(買進條件,o,c,6,0),colorwhite,linethick2;
加碼價:=((c-ref(ma(c,18),1))/18+ma(c,18))*1.004;
加碼條件:=cross(c,加碼價) and 加碼價>ref(加碼價,1);
STICKLINE(加碼條件,h,l,0.5,1),coloryellow,linethick2;STICKLINE(加碼條件,o,c,6,0),coloryellow,linethick2;

❸ 求大神幫忙把下面的主圖指標公式改為選股公式 要求1.紅上綠下，紅綠線傾斜向上 2.回踩紅線 謝謝！

MIB:=(2*CLOSE+LOW+OPEN+HIGH)/5;

A1:=(20*MIB+19*REF(MIB,1)+18*REF(MIB,2)+17*REF(MIB,3)+16*REF(MIB,4)+15*REF(MIB,5)+14*REF(MIB,6)+13*REF(MIB,7)+12*REF(MIB,8)+11*REF(MIB,9)+10*REF(MIB,10)+9*REF(MIB,11)+8*REF(MIB,12)+7*REF(MIB,13)+6*REF(MIB,14)+5*REF(MIB,15)+4*REF(MIB,16)+3*REF(MIB,17)+2*REF(MIB,18)+REF(MIB,20))/210;

A2:=MA(A1,6);

XG:(BETWEEN((C-A1)/A1*100,2,0) OR BETWEEN((L-A1)/A1*100,2,-1)) AND A1>A2 AND A1>REF(A1,1) AND A2>REF(A2,1);

❹ 纏論主圖通達信指標公式源碼

搜索纏論選股纏論工具包