国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
公式求助1000例(21)
1001.問:
顯示的節(jié)氣字符不能隨光標(biāo)的移動變化
請教各位,如何才能正確顯示(輸出方式不能變)


jqfc:=if(date>=LSOLARTERMDATE(1) and date<>
if(date>=LSOLARTERMDATE(2) and date<>
if(date>=LSOLARTERMDATE(3) and date<>
if(date>=LSOLARTERMDATE(4) and date<>
if(date>=LSOLARTERMDATE(5) and date<>
if(date>=LSOLARTERMDATE(6) and date<>
if(date>=LSOLARTERMDATE(7) and date<>
if(date>=LSOLARTERMDATE(8) and date<>
if(date>=LSOLARTERMDATE(9) and date<>
if(date>=LSOLARTERMDATE(10) and date<>
if(date>=LSOLARTERMDATE(11) and date<>
if(date>=LSOLARTERMDATE(12) and date<>
if(date>=LSOLARTERMDATE(13) and date<>
if(date>=LSOLARTERMDATE(14) and date<>
if(date>=LSOLARTERMDATE(15) and date<>
if(date>=LSOLARTERMDATE(16) and date<>
if(date>=LSOLARTERMDATE(17) and date<>
if(date>=LSOLARTERMDATE(18) and date<>
if(date>=LSOLARTERMDATE(19) and date<>
if(date>=LSOLARTERMDATE(20) and date<>
if(date>=LSOLARTERMDATE(21) and date<>
if(date>=LSOLARTERMDATE(22) and date<>
if(date>=LSOLARTERMDATE(23) and date<>
if(date>=LSOLARTERMDATE(24) and date<>
yuri:=LSOLARTERMDAY(date);
EXPLAIN(SYSPARAM(1)=BARPOS,'今日●'+jqfc + '節(jié)后第 '+NUMTOSTR(yuri[SYSPARAM(1)],0)+'天'),COLORGREEN ;

    答(林漢明):
非常簡單

N:=SYSPARAM(1);
DAT:=DATE;
jqfc:=if(LSOLARTERMDATE(1)<>if(LSOLARTERMDATE(2)<>if(LSOLARTERMDATE(3)<>if(LSOLARTERMDATE(4)<>if(LSOLARTERMDATE(5)<>if(LSOLARTERMDATE(6)<>if(LSOLARTERMDATE(7)<>if(LSOLARTERMDATE(8)<>if(LSOLARTERMDATE(9)<>if(LSOLARTERMDATE(10)<>if(LSOLARTERMDATE(11)<>if(LSOLARTERMDATE(12)<>if(LSOLARTERMDATE(13)<>if(LSOLARTERMDATE(14)<>if(LSOLARTERMDATE(15)<>if(LSOLARTERMDATE(16)<>if(LSOLARTERMDATE(17)<>if(LSOLARTERMDATE(18)<>if(LSOLARTERMDATE(19)<>if(LSOLARTERMDATE(20)<>if(LSOLARTERMDATE(21)<>if(LSOLARTERMDATE(22)<>if(LSOLARTERMDATE(23)<>if(LSOLARTERMDATE(24)<>yuri:=LSOLARTERMDAY(date);
YURI2:=yuri[N];
EXPLAIN(SYSPARAM(1)=BARPOS,'今日●'+jqfc+ '節(jié)后第 '+NUMTOSTR(YURI2,0)+'天'),COLORGREEN;



引用:
1002.問:
如何畫一個十字把沒有任何指標(biāo)的主圖畫面分成相等的四個長方形
      答(goldhill1965):
b1:=sysparam(1);
b2:=sysparam(2);
b3:=sysparam(3);
b4:=sysparam(4);
b5:=sysparam(5);
a1:=b3-b2+1;//可視畫面k線總數(shù)
a2:=round(a1/3);//可視畫面分成三份
a3:=b3-a2;//右區(qū)塊
a4:=a3-a2;//中區(qū)塊
a5:=a4-a2;//左區(qū)塊=b2
a6:=a4+a2;//左區(qū)塊=b2
VERTLINE(BARPOS=a3 or BARPOS=a4 or BARPOS=a5 or BARPOS=a6);
三分線:(b4+b5)/3;
中線:(b4+b5)/2;
六六線:2*(b4+b5)/3;

畫面放大縮小后,需要按動箭頭鍵



引用:
1003.問:
1.光標(biāo)移動時,日k線和5,10,20,30,60,120,250均線跟隨光標(biāo)移動顯示出來。
附圖周k線  5 10  20 30周均線跟隨光標(biāo)移動顯示出來。光標(biāo)所在位置及其左邊
的都顯示,光標(biāo)右邊的都部顯示
2.能把k線也做成這樣的嗎
      答(bajatje):
1.舉例
uu:=barpos<=SYSPARAM(1);//顯示條件
m:ma(c,5),linethick,COLORWHITE;//只顯示數(shù)值
PARTLINE(uu,m),COLORWHITE;//畫線。注意顏色與M配對;

2. 當(dāng)然!
f:=c>o or (c=o and c>ref(c,1));//原有條件
STICKLINE(f and uu,c,o,6,1);



引用:
1004.問:
1:因畫面是30分鐘週期 而引用60分鐘KD時(60KD) 其60KD線會產(chǎn)生階梯狀
2:希望  產(chǎn)生階梯狀部份用曲線幾乎直線將其連線 使成為一條很平順的線條

      答(peter109):
範(fàn)例
K:"KDJ.K#MIN60";
D:"KDJ.D#MIN60";
J:"KDJ.J#MIN60";
EMA(K,2);



引用:
1005.問:
五天內(nèi)有一天的成交量是三十日內(nèi)最小成交量應(yīng)怎么寫,
      答(欣兒):
llv(v,5)=llv(v,30);



引用:
1006.問:
求教,怎樣找出某一時段內(nèi)高低點(diǎn)值的公式方法,例如:想找出某一股票2002年至今的時段內(nèi),
高點(diǎn)和低點(diǎn)的值,
      答(bajatje):
w:=barslast(date<=1020101)+1;
hh:hhv(h,w)
LL:LLV(L,w);



1007.問:
如何使用字符型數(shù)組?非VBS語句,最好有實(shí)例

VARIABLE:varname1=initvalue1,varname2=initvalue2...;
例如:
VARIABLE:x=1,y=CLOSE,ARR[10]=0,SARR[5]='str';
表示定義常數(shù)變量x并初始化為1,
申明序列變量y并初始化為收盤價,
申明含10個浮點(diǎn)數(shù)的數(shù)組并全部初始化為0
申明含5個字符串的數(shù)組并都初始化為'str'
     答(bajatje):
F10TEXT(F10FIND('{想輸出的資料起始字符組。如:發(fā) 行 價}',{開始查找的位置。如:1-從F10的第一個字符開始}),{輸出的字符數(shù)。為0則只輸出起始字符組的第一個字符所在行});

F10TEXT(F10FIND('發(fā) 行 價',1),0);
注意:空格也算字符。中文一個字為兩個字符
別名: F10資料查找
所屬類別: 字符串函數(shù)  參數(shù)數(shù)量: 2

當(dāng)前證券的F10資料中查找字符串
用法:
F10FIND(S,N),將從當(dāng)前股票的F10資料的第N個字符開始查找字符串S,返回找到的位置,返回-1表示未找到
例如:
F10FIND('發(fā)行價',1),將從F10資料的第1個字符開始查找字符串'發(fā)行價',返回找到的位置。


別名: F10資料子字符串
所屬類別: 字符串函數(shù)  參數(shù)數(shù)量: 2

取得當(dāng)前證券的F10資料中指定范圍的子字符串
用法:
F10TEXT(N,M),將得到當(dāng)前股票的F10資料中從第N個字符開使的M個字節(jié)長的字符串,M=0表示一直取到行尾
例如:
EXPLAIN(1,F10TEXT(F10FIND('發(fā)行價',1),0));
輸出F10資料中'發(fā)行價'所在行  



1008.問:
想選出與指定股票同行業(yè)的所有股票!
     答(股市騎兵00):
//◇鵬搏資訊F10資料◇
INPUT:n(1,1,100);
VARIABLE:hytr[100]='',ptr='';
hytr[1]:='港口';//把選股行業(yè)都寫好,按1,2,3......數(shù)組方式寫完
hytr[2]:='銀行';
hytr[3]:='汽車';
str:=F10TEXT(F10FIND('行業(yè)類別',1)+16,0);//F10公式提出行業(yè)字符串
for i=1 to 100 do if hytr[i]<>'' then ptr:=ptr+NUMTOSTR(i,0)+hytr[i]+'\n';
行業(yè)選股:STRFIND(str,hytr[n],1);
EXPLAIN(1,'該股行業(yè):'+str+'\n'+'選股行業(yè):'+hytr[n]);
EXPLAIN(1,ptr);//查看解盤中"數(shù)字"所對應(yīng)的行業(yè),來調(diào) N 參數(shù)選股  



引用:
1009.問:
如何求某一具體日期后100天的日期?謝謝!
如求1050908后100天的日期。這個日期是還未到的日期
      答(hx817):
d1:=1050908;
d2:D1970TODATE(DATETOD1970(d1)+100);



引用:
1010.問:
去年今天的 期貨持倉量 怎么寫?

      答(cwy):
a:=date-10000;
a1:=a[datacount];
b:=date-20000;
b1:=b[datacount];
d:=date-30000;
d1:=d[datacount];
去年:ref((date=a1)*v,BARSLAST(date=a1));
⒉年前:ref((date=b1)*v,BARSLAST(date=b1));
⒊年前:ref((date=d1)*v,BARSLAST(date=d1));
引用:
1011.問:
相對總是一年的時間差 行嗎?

      答(peter109):
臺當(dāng)月:STKINDI('FITX1','OI.未平倉量',0,6),colorRED;//自行變更代碼
a:=date-10000;
a1:=a[datacount];
b:=date-20000;
b1:=b[datacount];
d:=date-30000;
d1:=d[datacount];
去年:ref((date=a1)*臺當(dāng)月,BARSLAST(date=a1));
一年前:ref((date=b1)*臺當(dāng)月,BARSLAST(date=b1));
二年前:ref((date=d1)*臺當(dāng)月,BARSLAST(date=d1));

這樣出來的是固定的水平衡線 如何顯示成曲線
也就是顯示所有對對應(yīng)值所構(gòu)成的曲線
     答(南客):
問題的關(guān)鍵是,1年前的同一天,距“今”的周期數(shù)等于多少?
可參考如下代碼:
ts1:=sumbars(date-ref(date,1),10000);
ts:if(date-ref(date,ts1)>10000,ts1-1,ts1); //1年前的同一天距今周期數(shù)

說明:如果1年前的同一天停牌沒有交易,則計(jì)算向后順延到恢復(fù)交易的那天。
如果要計(jì)算N年前的情況,把10000改為10000*N即可。



引用:
1012.問:
線是ZIG(4,16)函數(shù),當(dāng)光標(biāo)在3后面時,計(jì)算2和3之間的K線天數(shù),當(dāng)光標(biāo)在2后面3前面時,
計(jì)算1和2之間的K線天數(shù),并且將這個數(shù)乘以1.618,然后在圖上顯示出來
      答(股市騎兵00):
w:=FLATZIG(4,16);gb:=SYSPARAM(1);
p1:=ref(sumbars(w=1 or w=0,1),1);
p2:=ref(sumbars(w=1 or w=0,2),1);
周期:p2-p1,LINETHICK0;
VERTLINE(barpos=gb-p1[gb]+ROUND(周期[gb]*1.618));



引用:
1013.問:
我用的是之字轉(zhuǎn)向(zig(4,5))。A,B,C,D是高位向下的拐點(diǎn),1.2.3.4則是向上的拐點(diǎn),
請幫忙在C點(diǎn)和D點(diǎn)畫一條線,如果E點(diǎn)出現(xiàn)了,那就在D點(diǎn)和E點(diǎn)之間畫線了,依次類推。
當(dāng)然1.2.3.4點(diǎn)也是一樣的,5點(diǎn)出現(xiàn)就在4點(diǎn)和5點(diǎn)之間畫線,同時3點(diǎn)與4點(diǎn)之間的線自然消失
      答(股市騎兵00):
w:=FLATZIG(4,10);
g1:=BACKSET(ISLASTBAR,ref(sumbars(w=1,1),1)+1);
g2:=BACKSET(ISLASTBAR,ref(sumbars(w=1,2),1)+1);
d1:=BACKSET(ISLASTBAR,ref(sumbars(w=0,1),1)+1);
d2:=BACKSET(ISLASTBAR,ref(sumbars(w=0,2),1)+1);
DRAWLINE(g2>ref(g2,1),h,g1>ref(g1,1),h,1);
DRAWLINE(d2>ref(d2,1),l,d1>ref(d1,1),l,1);
(注:調(diào)下參數(shù)就行了,自己看下涵數(shù)定義吧。)
w:=FLATZIG(4,5);



1014.問:
因每只股票的流通股數(shù)據(jù)因增發(fā)或送配等原因變化。
我們編寫公式時換手率用到流通股數(shù)據(jù)。
為了確保每一根k線之前時間換手率用到流通股數(shù)據(jù)是正確的
我們?nèi)绾伪A裘恐还善钡臍v史流通股變化數(shù)據(jù)?并在編寫公式時正確引用每只股票的歷史流通股變化數(shù)據(jù)?
比如今天流通股數(shù)據(jù)變了,歷史k線換手率于昨天不一樣。

     答(股市騎兵00):
南客老師的歷史流通盤代碼:
var1:=splitdata(1)+splitdata(2);
cap:=c;
cap[datacount]:=1;
for i=datacount downto 2 do cap[i-1]:=cap[i]/(1+var1[i]/10);
capi:=cap*capital/100;
歷史流通盤∥萬股:capi;
drawnumber(cap>ref(cap,1) or barscount(c)=1,capi,capi,0);



1015.問:
1.如何編寫求出上市首日的開盤價,收盤價,最高價,最低價?
2.上市當(dāng)天的值=上市當(dāng)天的成交均價;
第二天的值=昨天的值×(1-換手率)+今日的成交均價×換手率
以后類推

     答(bajatje):
cc:=c;
hh:=h;
LL:=L;
oo:=o;
o1:oo[1];
c1:cc[1];
h1:hh[1];
L1:LL[1];


cc:=c;
a:=amount/v/100;
hs:=v/capital;
for i=20 to datacount do BEGIN
cc[1]:=a[1];
cc[i]:=a[i-1]*(1-hs[i])+a[i]*hs[i];end;
cc;



引用:
1016.問:
分別是從歷史最高點(diǎn)畫出的水平線和從歷史最低點(diǎn)畫出的垂直線,
在此兩線交匯之處,我想繪制一條45度斜線,方向朝向右下,
      答(kjyhao):
qq:=hhvbars(h,0);
zq:=llvbars(l,0);
hh:=ref(hhv(h,qq-zq+1),zq);
ll:=ref(llv(l,qq-zq+1),zq);
gg:=BARSLAST(h=hh[datacount]);
dd:=BARSLAST(l=ll[datacount]);
kk:=(hh[datacount]-ll[datacount])/(gg[datacount]-dd[datacount]);
DRAWSL(gg=0,hh[datacount],0,gg[datacount]-dd[datacount],0),COLORGREEN;
STICKLINE(dd=0,hh[datacount],ll[datacount],1,0),COLORGREEN;
kk:=(sysparam(4)-sysparam(5))/(qq[sysparam(3)]-zq[sysparam(3)]);
tj:=barpos=sysparam(3)-zq[sysparam(3)];
DRAWSL(tj,sysparam(4),-kk,0,3),COLORMAGENTA;



引用:
1017.問:
分筆周期中,如果賣一有“n手大單壓盤”(如圖有1508手),結(jié)果用了m筆成交,把它吃完,
我現(xiàn)在想用公式統(tǒng)計(jì):吃掉這“n手大單壓盤”共用了多少筆?
      答(bajatje):
a:=ASKPRICE(1),LINETHICK;
w:=barslast(a<>ref(a,1))+1;
s:=ASKVOL(1)>1000,LINETHICK;
ss:=sum(s,w);
b:=refx(cross(ss,0.5),1);
u:=barslast(b);
if(cross(a>ref(a,1),0.5),ref(w,1),0);//a上漲所用成交筆數(shù)
if(cross(a>ref(a,1),0.5) and ref(u<=w,1),ref(u,1),0);//a出現(xiàn)大單后到A上漲的成交筆數(shù)



引用:
1018.問:
3分種內(nèi)主動買單-主動賣單的凈量的排序指標(biāo),最好根據(jù)換手率排序

      答(股市騎兵00):
w:=sumbars(MINUTE<>ref(MINUTE,1),30);
(sum(BUYVOL,w)-sum(SELLVOL,w))/FINANCE(7);



引用:
1019.問:
《趨勢線預(yù)警選股》

在公式中輸入兩個參數(shù):1、趨勢線起點(diǎn)的時間;B、趨勢線的角度;
請各位老師編一個程序:
在股價未來達(dá)到這條以固定角度上升或下降的趨勢線時(上穿或下穿),發(fā)出預(yù)警信號。
如果可以用llvbars自動畫線更加好。
好象是要用atan判斷兩低點(diǎn)連線間的角度的,可惜太復(fù)雜了,我弄不出來,請各位高手幫忙。
我昨晚想出的思路是:
1、兩低點(diǎn)間的時間周期,兩低點(diǎn)間形成的趨勢線的長度;這兩個數(shù)據(jù)可以通過算法得到;
2、長度除以時間,得出每個時間單位內(nèi)的趨勢上升價格。
3、單位上升價格乘以第一個低點(diǎn)至最后一根K線的周期,再加上第一個低點(diǎn)的價格,得出最后一根K線時的趨勢線價格。
4、以后,每過一個時間單位,趨勢線就在原有的基礎(chǔ)上加一個單位上升價格。
5、直至股價與該趨勢線相交。
這樣一個思路應(yīng)該可以編出程式來,不用角度了。我想,角度就是單位上升價格。
我只要手動輸入兩個數(shù)據(jù):A、第一個低點(diǎn)時間;B、第二個低點(diǎn)時間。

      答(vkuie):
e:LINEVALUE(date=a,l,date=b,LOW,1,0);
drawicon(cross(c,e),l,1);



1020.問:
以下為從F10資料提取十大流通股東(鵬搏資訊F10資料)公式。
能否將十大流通股東名稱輸入Excel?公式如何編?

{F10十大流通股東}
VARIABLE:GDW[10]=0,GDT[10]='STR';
GDW0:=F10FIND('【十大流通股東】',30000);
IF GDW0<0 THEN EXIT;
GDW[1]:=F10FIND('1',GDW0+100),LINETHICK;
GDT[1]:='1.'+F10TEXT(GDW[1]+3,26);
FOR j=2 TO 10 DO BEGIN
   XH:=RTRIM(LTRIM(NUMTOSTR(j,0)));//將j轉(zhuǎn)換為字符的序號
   GDW[j]:=F10FIND(' '+XH+'│',GDW[1]+75);//取字符串所在位置
   IF j<10 THEN GDT[j]:=XH+'.'+F10TEXT(GDW[j]+4,26);//取字符串
END;
//補(bǔ)未取全的字符串
FOR i=1 TO 9 DO BEGIN
   WT:=GDW[i+1]-GDW[i];//計(jì)算前后股東位置的差
   IF WT>120 THEN BEGIN//當(dāng)差超過一定標(biāo)準(zhǔn)時執(zhí)行下面語句
      TW:=F10FIND('│',GDW[i]+75),LINETHICK;//確定所差字符的起點(diǎn)位置
      T:=F10TEXT(TW+2,26);//截取所差字符
      GDT[i]:=RTRIM(GDT[i])+LTRIM(T);//前后字符合并
   END;
END;
GDT[10]:='10.'+F10TEXT(GDW[10]+5,26);
DRAWTEXT(SYSPARAM(2)=BARPOS AND GDW[1]>1,10,GDT[1]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[2]>1,8,GDT[2]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[3]>1,6,GDT[3]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[4]>1,4,GDT[4]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[5]>1,2,GDT[5]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+700=BARPOS AND GDW[6]>1,10,GDT[6]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+600=BARPOS AND GDW[7]>1,8,GDT[7]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+60=BARPOS AND GDW[8]>1,6,GDT[8]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+60=BARPOS AND GDW[9]>1,4,GDT[9]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+60=BARPOS AND GDW[10]>1,2,GDT[10]),COLOR74AFFF;
0,COLORBLACK;
EXPLAIN(GDW[1]>1,GDT[1]),COLOR74AFFF;
EXPLAIN(GDW[1]>1,GDT[2]),COLOR74AFFF;
     答(kjyhao):
這是南客老師寫的一段示范代碼,你參考一下;
輸出數(shù)據(jù)到Excel示例代碼
fc:c;
fy:=year; fm:=month; fd:=day;
gpname:=stkname;


/////////
(注:上述公式中的如下代碼,其文件路徑要改成自己的實(shí)際情況,否則會因路徑不存在而出錯:
oSheet.SaveAs "e:\foxtrader_v3user股票數(shù)據(jù).xls" )
1021.問:
這是分析家的一個交易指標(biāo):

{交易法則:買入條件A=K金叉20。條件B加倉=D金叉50。
條件C止損=K死叉20。條件D賣出=K死叉80。(引自分析家版主鐵手)。

具體請參考。以現(xiàn)金存量的50%買進(jìn)和加碼;止損和賣出是100%。
交易法則和鐵手的是一樣的。}

VARIABLE:positionCount=1;{頭寸計(jì)數(shù)變量}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
IF PositionCount=1 THEN BEGIN{第一頭寸}
IF CROSS(K,20) THEN BEGIN{條件A=K金叉20}
BUY(50%,MARKET);
PositionCount:=PositionCount+1;{頭寸計(jì)數(shù)}
END
END
IF PositionCount=2 THEN BEGIN{第二加碼頭寸}
IF CROSS(D,50)  THEN BEGIN{條件B加倉=D金叉50}
BUY(50%,MARKET);
PositionCount:=PositionCount+1;
END
END
IF CROSS(20,K)  THEN BEGIN{條件C止損=K死叉20}
SELL(100%,MARKET);
PositionCount:=1; {頭寸計(jì)算復(fù)原}
END
IF CROSS(80,K)  THEN BEGIN{條件D賣出=K死叉80}
SELL(100%,MARKET);
PositionCount:=1;
END;

     答(股市騎兵00):
INPUT:n1(10000,10000,1000000),n2(50,20,100);//n1=初始資金,n2=買入比例%
初始資金:=n1,LINETHICK;
買入比例%:=n2,LINETHICK;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);D:=SMA(K,3,1);
mtj1:=cross(k,20);mtj2:=cross(d,50);
wtj1:=cross(20,k);wtj2:=cross(80,k);
p1:=初始資金;p2:=初始資金;
zs:=INTPART(100/買入比例%);
cs:=0;fc:=c;
for i=3 to datacount do begin
  if cs    if mtj1[i] then begin//買入條件A
      m[i]:=1;
      cs:=cs+1;
      mfc[cs]:=fc[i];
      p1:=p2-p2*(買入比例%/100)*cs;
      u:=1;
    end;
    if mtj2[i] and u then begin//條件B加倉
      m[i]:=1;
      cs:=cs+1;
      mfc[cs]:=fc[i];
      p1:=p2-p2*(買入比例%/100)*cs;
    end;
  end;
     if (wtj1[i] or wtj2[i]) and cs then begin//止損和賣出是100%
       for j=1 to cs do x:=x+fc[i]/mfc[j];
       盈虧%[i]:(x/cs-1)*100,LINETHICK;
       p2:=p2*x/cs;
       w[i]:=1;
       x:=0;
       cs:=0;
       p1:=0;
       u:=0;
     end;
    總資金[i]:p2,LINETHICK;
    剩余資金[i]:p1,LINETHICK;
end;
總利潤%:(總資金/初始資金-1)*100,LINETHICK;
DRAWICON(m,l*0.99,4);
DRAWICON(w,h*1.01,5);



引用:
1022.問:
試圖畫出最後的一條線(最重要的一條),始終沒能成功
N:=1;
a:zig(4,N);
g:=PEAK(4,N,1);
d:=TROUGH(4,N,1);
g1:=g[datacount];
d1:=d[datacount];
gd:(g1+d1)/2;

g2:=PEAK(4,N,2);
d2:=TROUGH(4,N,2);
g22:=g2[datacount];
d22:=d2[datacount];
gd2:(g1+d22)/2;

ts1:=BARSLAST(a>refx(a,1) and a>ref(a,1));
ts2:=BARSLAST(a<>ts:=BARSSINCE(BACKSET(ISLASTBAR,max(ts1,ts2)));
tj:cross(a>=gd,0.5) or cross(a<=gd,0.5);

vertline(tj AND ts);
vertline(cross(a,gd2)),colorRED;

xa:=SUM(ts1,0);
xb:=SUM(ts2,0);
DRAWSL(ts1 AND xa>xa[datacount]-1,g1,0,ts1,1),COLORMAGENTA;
DRAWSL(ts2 AND xb>xb[datacount]-1,d1,0,ts2,1),COLORred;

LINEVALUE(1,d22,tj AND ts,ref(gd,barslast(tj AND ts)),0,0);//問題點(diǎn)

       答(cwy):
便于看清,N改為10。
N:=10;
a:zig(4,N);
g:=PEAK(4,N,1);
d:=TROUGH(4,N,1);
g1:=g[datacount];
d1:=d[datacount];
gd:(g1+d1)/2;

g2:=PEAK(4,N,2);
d2:=TROUGH(4,N,2);
g22:=g2[datacount];
d22:=d2[datacount];
gd2:(g1+d22)/2;

ts1:=BARSLAST(a>refx(a,1) and a>ref(a,1));
ts2:=BARSLAST(a<>ts:=BARSSINCE(BACKSET(ISLASTBAR,max(ts1,ts2)));
tj:=cross(a>=gd,0.5) or cross(a<=gd,0.5);
x:=cross(BACKSET(ISLASTBAR,TROUGHBARS(4,N,2)+1),0.5)*date;//
vertline(tj AND ts);
vertline(cross(a,gd2)),colorRED;

xa:=SUM(ts1,0);
xb:=SUM(ts2,0);
DRAWSL(ts1 AND xa>xa[datacount]-1,g1,0,ts1,1),COLORMAGENTA;
DRAWSL(ts2 AND xb>xb[datacount]-1,d1,0,ts2,1),COLORred;
//LINEVALUE(x,d22,tj AND ts,ref(gd,barslast(tj AND ts)),0,0);//問題點(diǎn)
DRAWLINE(x,a,tj and ts>0,gd,1);//



引用:
1023.問:
    回調(diào)上攻沒信號
INPUT:漲幅(29,8,94);
a:=(c-ref(c,1))/ref(c,1)*100;
a1:=BARSLAST( a>漲幅);
a2:=if(a1>0,1,0);
TT:=MA((CLOSE-REF(CLOSE,14))/REF(CLOSE,14),7);
HZ:=EMA(TT,14);
m47:=ma(c,47);
m48:=Ema(m47,3);
m49:=ema(m48,3);
m50:=Ema(m49,3);
HZ>=-0.028 and a2=0 and m47>m48 and m47>m49 and m47>m50 and h/c<1.008

     答(lixkchch):
      INPUT:漲幅(29,8,94);
a:=(c-ref(c,1))/ref(c,1)*1000;
a1:=BARSLAST( a>漲幅);
a2:=if(a1>0,1,0);
TT:=MA((CLOSE-REF(CLOSE,14))/REF(CLOSE,14),7);
HZ:=EMA(TT,14);
m47:=ma(c,47);
m48:=Ema(m47,3);
m49:=ema(m48,3);
m50:=Ema(m49,3);
HZ>=-0.028 and a2=0 and m47>m48 and m47>m49 and m47>m50 and h/c<1.008 ;



1024.問:
     股票箱中間線,請用數(shù)值表示出來?謝!
或修改公式,變?yōu)橄蛴已娱L線,并表示出數(shù)值?

fh:=high;
fl:=low;
sell:=0*fh;
buy:=sell;
signal:=sell;
boxh:=sell,linethick0;
boxl:=sell,linethick0;
variable:hc=0,lc=0,bt=fh[1],bb=fh[1];
for i=1 to datacount do begin
if hc>1 then begin
if lc>2 and bt<=fh[i] then begin
buy[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=0;lc:=0;
end;
if bt>fh[i] then begin
if lc>2 then begin
if bb>=fl[i] then begin
sell[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=-1;lc:=0;
end else begin
boxh[i]:=fh[i-hc];
boxl[i]:=fl[i-lc];
end;
end;
hc:=hc+1;
if lc>1 then begin
if bblc:=lc+1;
if lc=3 then begin
signal[i-hc+1]:=1;
for j=i downto i-hc+1 do begin
boxh[j]:=fh[i-hc+1];
boxl[j]:=fl[i-lc+1];
end;
end;
end else lc:=0;
end else
if lc=1 then begin
if bblc:=lc+1;
end else lc:=0;
end;
if lc=0 and hc>1 then begin
bb:=fl[i];
lc:=lc+1;
end;
end else begin hc:=0; lc:=0; end;
end else
if hc=1 then begin
if bt>fh[i] then
hc:=hc+1
else begin hc:=0;lc:=0; end;
end;
if hc=0 then begin
bt:=fh[i];
hc:=hc+1;
end;
end;
中間線:partline(boxh and boxh=ref(boxh,1),(boxh-boxl)/2+boxl),colorff9900;  

   答(懶漢):
fh:=high;
fl:=low;
sell:=0*fh;
buy:=sell;
signal:=sell;
boxh:=sell,linethick0;
boxl:=sell,linethick0;
variable:hc=0,lc=0,bt=fh[1],bb=fh[1];
for i=1 to datacount do begin
if hc>1 then begin
if lc>2 and bt<=fh[i] then begin
buy[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=0;lc:=0;
end;
if bt>fh[i] then begin
if lc>2 then begin
if bb>=fl[i] then begin
sell[i]:=1;
for j=i-1 downto i-hc do begin
boxh[j]:=fh[i-hc];
boxl[j]:=fl[i-lc];
end;
hc:=-1;lc:=0;
end else begin
boxh[i]:=fh[i-hc];
boxl[i]:=fl[i-lc];
end;
end;
hc:=hc+1;
if lc>1 then begin
if bblc:=lc+1;
if lc=3 then begin
signal[i-hc+1]:=1;
for j=i downto i-hc+1 do begin
boxh[j]:=fh[i-hc+1];
boxl[j]:=fl[i-lc+1];
end;
end;
end else lc:=0;
end else
if lc=1 then begin
if bblc:=lc+1;
end else lc:=0;
end;
if lc=0 and hc>1 then begin
bb:=fl[i];
lc:=lc+1;
end;
end else begin hc:=0; lc:=0; end;
end else
if hc=1 then begin
if bt>fh[i] then
hc:=hc+1
else begin hc:=0;lc:=0; end;
end;
if hc=0 then begin
bt:=fh[i];
hc:=hc+1;
end;
end;
u:=(boxh-boxl)/2+boxl;
w:=barslast(u>0);
中間線:ref(u,ref(w,1)+1)LINETHICK,colorff9900;
rz:=中間線;
zr:=if(rz<>ref(rz,1),ref(rz,1),rz);
partline(rz=ref(rz,1),rz),colorff9900;
partline(zr=ref(zr,1),zr),colorff9900;
STICKLINE(rz<>ref(rz,1),rz,zr,0.01,0),colorff9900;

   答(阿遠(yuǎn)):
     請?jiān)诠阶詈蠹由希?br>     DRAWNUMBER(cross(boxh and boxh=ref(boxh,1),0.5),
      (boxh-boxl)/2+boxl,(boxh-boxl)/2+boxl,2);  



引用:
1025.問:
飛狐主圖改大智慧行嗎
主圖FZ辟邪
{N  2  1  100  N1  7  1  100  N2  79  1   100}

籌碼短期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,3)/(AMOUNT/VOL/100)/100));
籌碼中期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,5)/(AMOUNT/VOL/100)/100));
籌碼長期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,13)/(AMOUNT/VOL/100)/100));
籌碼★期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,89)/(AMOUNT/VOL/100)/100));
Var32:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)>0 OR 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)>0 OR SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1)>80 OR SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1)>80 OR 3*SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1)-2*SMA(SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1),3,1)>0 OR CROSS(SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1),SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1));
Var33:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)<0 AND 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)<0 AND 100*(CLOSE-籌碼中期)/籌碼中期<0;
STICKLINE(Var32 AND OPEN>=CLOSE,OPEN,CLOSE,7,0), ,Color00FF00;
STICKLINE(Var32 AND OPENSTICKLINE(Var32 AND OPEN>CLOSE,HIGH,OPEN,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN<=CLOSE,HIGH,CLOSE,0.8,0), ,colorred;
STICKLINE(Var32 AND OPEN<=CLOSE,LOW,OPEN,0.8,0), ,colorred;
STICKLINE(Var33,OPEN,CLOSE,7,0), ,colorcyan;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,CLOSE,7,0), ,colorcyan;
STICKLINE(Var33 AND OPENSTICKLINE(Var33 AND OPEN<=CLOSE,HIGH,LOW,0.8,0), ,colorcyan;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,HIGH,0.8,1), ,colorcyan;
STICKLINE(Var33 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,colorcyan;


JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);            
終極黃金:STICKLINE(A>B,A,B,5,0),COLORYELLOW;
一卸千里:STICKLINE(A<>

Var1:=EMA(EMA(CLOSE,3),55);

Var2:=(REF(HIGH,1)+REF(LOW,1))/2;
Var3:=MA(CLOSE,N)+2*STD(CLOSE,N);
DRAWICON(CROSS(Var2,Var3),HIGH*1.035,5);
DRAWTEXT(CROSS(Var2,Var3),HIGH*1.02,'賣出1'), ,COLORgreen;
Var4:=REF(CLOSE,1);
Var5:=SMA(MAX(CLOSE-Var4,0),N1,1)/SMA(ABS(CLOSE-Var4),N1,1)*100;
Var6:=CROSS(N2,Var5);
Var7:=FILTER(Var6,4);
DRAWICON(Var7,HIGH*1.035,5);
DRAWTEXT(Var7,HIGH*1.02,'賣出2'), , COLORgreen;
A7:=(2*C+H+L)/4;
Var10:=LLV(LOW,34);
Var11:=HHV(HIGH,34);
SK:=EMA((A7-Var1)/(Var2-Var1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
DRAWTEXT(IF(count(close6/10 and vol>=1.5*ma(vol,5) and
count(sk>=sd,3) and ref(low,1)=LLV(Low,120),1,0),LOW,'●買進(jìn)1') COLOR0099ff;
DRAWTEXT(IF(count(close6/10 and
count(sk>sd,6) and ref(low,5)=LLV(Low,120) and ref(close>=open,4) and
ref(close>open,3) and REF(CLOSE>OPEN,2) AND  ref(open>close,1) and
open>ref(close,1),1,0),LOW,'●買進(jìn)2') COLOryellow;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(if(CLOSEMA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08
AND CLOSE<>

     答(廣州寶貝):
DZH的
{N  2  1  100  N1  7  1  100  N2  79  1   100}

籌碼短期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,3)/(AMOUNT/VOL/100)/100));
籌碼中期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,5)/(AMOUNT/VOL/100)/100));
籌碼長期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,13)/(AMOUNT/VOL/100)/100));
籌碼★期: DMA((3*HIGH+LOW+OPEN+2*CLOSE)/7,VOL/(SUM(AMOUNT,89)/(AMOUNT/VOL/100)/100));
Var32:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)>0 OR 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)>0 OR SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1)>80 OR SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1)>80 OR 3*SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1)-2*SMA(SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1),3,1)>0 OR CROSS(SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1),10,1),SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,5,1));
Var33:=100*(MA(CLOSE,13)-REF(MA(CLOSE,13),1))/REF(MA(CLOSE,13),1)<0 AND 100*(籌碼中期-REF(籌碼中期,1))/REF(籌碼中期,1)<0 AND 100*(CLOSE-籌碼中期)/籌碼中期<0;
STICKLINE(Var32 AND OPEN>=CLOSE,OPEN,CLOSE,7,0), ,Color00FF00;
STICKLINE(Var32 AND OPENSTICKLINE(Var32 AND OPEN>CLOSE,HIGH,OPEN,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,Color00FF00;
STICKLINE(Var32 AND OPEN<=CLOSE,HIGH,CLOSE,0.8,0), ,colorred;
STICKLINE(Var32 AND OPEN<=CLOSE,LOW,OPEN,0.8,0), ,colorred;
STICKLINE(Var33,OPEN,CLOSE,7,0), ,colorffaaff;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,CLOSE,7,0), ,colorffaaff;
STICKLINE(Var33 AND OPENSTICKLINE(Var33 AND OPEN<=CLOSE,HIGH,LOW,0.8,0), ,colorffaaff;
STICKLINE(Var33 AND OPEN>CLOSE,OPEN,HIGH,0.8,1), ,colorffaaff;
STICKLINE(Var33 AND OPEN>CLOSE,LOW,CLOSE,0.8,0), ,colorffaaff;


JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);            
終極黃金:STICKLINE(A>B,A,B,5,0),COLORYELLOW;
一卸千里:STICKLINE(A<>

Var1:=EMA(EMA(CLOSE,3),55);

Var2:=(REF(HIGH,1)+REF(LOW,1))/2;
Var3:=MA(CLOSE,N)+2*STD(CLOSE,N);
DRAWICON(CROSS(Var2,Var3),HIGH*1.035,2);
Var4:=REF(CLOSE,1);
Var5:=SMA(MAX(CLOSE-Var4,0),N1,1)/SMA(ABS(CLOSE-Var4),N1,1)*100;
Var6:=CROSS(N2,Var5);
Var7:=FILTER(Var6,4);
DRAWTEXT(Var7,HIGH*1.02,'賣出2'), , COLORlime;
A7:=(2*C+H+L)/4;
Var10:=LLV(LOW,34);
Var11:=HHV(HIGH,34);
SK:=EMA((A7-Var1)/(Var2-Var1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
DRAWTEXT(IF(count(close6/10 and vol>=1.5*ma(vol,5) and
count(sk>=sd,3) and ref(low,1)=LLV(Low,120),1,0),LOW,'●買進(jìn)1'), COLOR0099ff;
DRAWTEXT(IF(count(close6/10 and
count(sk>sd,6) and ref(low,5)=LLV(Low,120) and ref(close>=open,4) and
ref(close>open,3) and REF(CLOSE>OPEN,2) AND  ref(open>close,1) and
open>ref(close,1),1,0),LOW,'●買進(jìn)2'), COLOryellow;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(if(CLOSEMA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08
AND CLOSE<>< font="">



引用:
1026.問:
為了方便對上市公司各季度、半年及年度業(yè)績預(yù)告的了解和分類;
請編寫一個簡單的指標(biāo):《業(yè)績預(yù)告選股》。用這個指標(biāo)可以方便地選出:
預(yù)增、預(yù)盈、預(yù)虧、預(yù)警、預(yù)降的各類上市公司??梢栽谧赃x分類中建立相應(yīng)的板塊;
如:自選-預(yù)增,然后將其保在對應(yīng)的板塊中,以便隨時查用,省去了不少麻煩。

     答(一笑生):
業(yè)績預(yù)告選股  
A:=BARSCOUNT(C);
A1:=A=SYSPARAM(2);
A2:=A=SYSPARAM(1);
A3:=IF(0=0,A1,A2);
WW3:='業(yè)績預(yù)告:'+F10TEXT(F10FIND('【預(yù)',1),0);
DRAWTEXT(A3,0.6,WW3),COLORWHITE;
增:=F10FIND('【預(yù)增】',1);
預(yù)增:IF(增>0 AND ISLASTBAR,1,0),COLORRED;
盈:=F10FIND('【預(yù)盈】',1);
預(yù)盈:IF(盈>0 AND ISLASTBAR,1,0),COLORMAGENTA;
虧:=F10FIND('【預(yù)虧】',1);
預(yù)虧:IF(虧>0 AND ISLASTBAR,1,0),COLORCYAN;
警:=F10FIND('【預(yù)警】',1);
預(yù)警:IF(警>0 AND ISLASTBAR,1,0),COLORBLUE;
降:=F10FIND('【預(yù)降】',1);
預(yù)降:IF(降>0 AND ISLASTBAR,1,0),COLORGREEN;
未預(yù)告:預(yù)增=0 AND 預(yù)盈=0 AND 預(yù)虧=0 AND 預(yù)警=0 AND 預(yù)降=0,COLORWHITE;



引用:
1027.問:
把下列未來函數(shù)修改為上證大盤的!
ggkp:=if(zig(3,6)ref(zig(3,6),2),C,0);
dzkp:=if(ggkp>0 ,C,0);
tt:=BARSLAST(dzkp);
轉(zhuǎn):(C-ref(dzkp,tt))/ref(dzkp,tt)*100;
我的本意是在個股里指標(biāo)副圖下表示上述大盤的條件而且只能是上證指數(shù)條件成立為目的.
我在觀察各股的時候也能同時在個股里指標(biāo)副圖下知道上證大盤情況.   
我的軟件是分析家的.

     答(zmr666):
想起來了,新結(jié)構(gòu)波浪指標(biāo)的設(shè)計(jì)方法可以代替zig函數(shù),只是語句變復(fù)雜多了;
先分解一下你的語句中的含義:
ggkp:=if(zig(3,6)ref(zig(3,6),2),1,0);{見頂}
dzkp:=if(ggkp>0 ,c,0);{見頂日的收盤價}
tt:=BARSLAST(ggkp);{已經(jīng)見頂多少天}
轉(zhuǎn):=(c-ref(dzkp,tt))/ref(c,tt)*100;{大盤累積下跌幅度}

    然后用下面的方法描述這段內(nèi)容,其中c換成上證指數(shù)的收盤價:

A1:=REF("sh000001$close",3)=HHV("sh000001$close",2*3+14);
B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高點(diǎn)}
A2:=REF("sh000001$close",3)=LLV("sh000001$close",2*3+14);
B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);{低點(diǎn)}
E1:=(REF(LLV("sh000001$low",2*3),1)+REF(HHV("sh000001$high",2*3),1))/2;
E2:=("sh000001$HIGH"+"sh000001$LOW")/2;{高低點(diǎn)出現(xiàn)在同一K線上時可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT("sh000001$close")=1;
L1:=(D2 AND NOT(D1 AND E1=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,"sh000001$LOW",10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);{過濾后低點(diǎn)}
L2:=LD OR BARSTATUS=2 OR BARSCOUNT("sh000001$close")=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,"sh000001$high",0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2);

HD:=I2>REF(I2,1);{過濾后高點(diǎn)代替ggkp}
dzkp:=if(hd>0 ,"sh000001$close",0);
tt:=BARSLAST(dzkp);{已經(jīng)見頂多少天}
轉(zhuǎn):("sh000001$close"-ref(dzkp,tt))/ref(dzkp,tt)*100;{大盤累積下跌幅度}
DRAWICON(tt=0,hhv(轉(zhuǎn),5) ,5 );{標(biāo)注見頂日}



引用:
1028.問:
請問改變周期時,本公式周期不跟隨改變,始終按自設(shè)周期顯示怎么寫?

     答(股市浪子):
另外寫一個公式調(diào)用數(shù)據(jù),用STKINDI('','XXXX.YYY',0,N),其中的XXXX為所調(diào)用的公式名,
YYY為調(diào)用該公式的指標(biāo),N為調(diào)用該指標(biāo)的周期(與調(diào)出K線的數(shù)字相同)。



引用:
1029.問:
     請教著段公式的含義。
ls:=c/ref(c,1)>1.03  and between(forcast(V,4),0.2*forcast(v,12),2.1*forcast(v,12));
拉升:filter(ls,42)*100,colorred;
還想加上一句股價在20線上  著句怎么寫
     答(一鳴):
(股價在20線上已加上)

ls:=c/ref(c,1)>1.03  and between(forcast(V,4),0.2*forcast(v,12),2.1*forcast(v,12)) and c>ma(c,20);
//今日漲幅大于3%,且成交量的12周期線性回歸預(yù)測值*0.2<成交量的4周期線性回歸預(yù)測值<成交量的12周期線性回歸預(yù)測值*2.1
拉升:filter(ls,42)*100,colorred; //若ls條件符合,則當(dāng)日拉升值設(shè)為100,且其后42天內(nèi)不再出現(xiàn)信號



引用:
1030.問:
上一次上漲走勢"最后那根"K線的成交量大于上一次下跌走勢"第一根"K線成交量。
k2:=cross(ma(c,2)+0.0001,c);
bk21:=sumbars(k2,1);
v2:=ref(v,bk21-1);
ref(v,bk21)>ref(v2,bk21);
我想把它調(diào)換一下改編為:上一次上漲走勢"第一根"K線的成交量大于上一次下跌走勢"
最后那根"K線的成交量。(注:其實(shí)就是原來公式的"最后那根"和"第一根"位置前后調(diào)換)
     答(一鳴):
{先下跌后上漲為一波
上一次‘上漲走勢’第一根K線成交量大于上一次‘下跌走勢’最后一根K線成交量。
不包括正在上漲或正在下跌的走勢 by 一鳴}
k1:=cross(c,ma(c,2)+0.0001);
k2:=cross(ma(c,2)+0.0001,c);
bk11:=sumbars(k1,1);
bk21:=sumbars(k2,1);
v1:=ref(ref(v,bk11-1),bk21-1);
v2:=ref(ref(v,bk11),bk21-1);
v1>v2;
引用:
1031.問:
7DAYS-永勝的原碼能提供嗎
     答(tdj888):
源碼如下:
W1:=DMA(EMA(CLOSE,12),((SUM(VOL,5) / 3) / CAPITAL));
W2:=(((((CLOSE - W1) / W1) * 100) + 30) - (((REF(HIGH,13) / CLOSE) - 1.35) * 100));
W3:=((((CLOSE - REF(CLOSE,5)) / CLOSE) * 100) < (0 - 9));
HL:=WINNER(CLOSE);
ZT:=(EMA((((INDEXC - MA(INDEXC,10)) / INDEXC) * 100),14) < (0 - 4.9));
HR:=((((MA(VOL,5) - VOL) / CAPITAL) * 100) < 0.8);
LB:=(((VOL - MA(VOL,21)) / VOL) * 100);
MR:=((((ZT AND W3) AND (HL < 0.12)) AND HR) AND (LB > 18));
CCRR:=MA(OPEN,1);
CCRRD:=(((((((CCRR / 22.41) = 1) OR ((CCRR / 1.46) = 1)) OR ((CCRR / 1.9) = 1)) OR ((CCRR / 10.74) = 1)) OR ((CCRR / 2.29) = 1)) OR ((CCRR / 1.09) = 1));
CDBB:=(FILTER(((W2 < (0 - 8.1)) AND (MR = 1)),21) AND (CCRRD = 0));
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=((3 * K) - (2 * D));
KK:=INTPART(SMA(RSV,3,1));
DD:=INTPART(SMA(K,3,1));
JJ:=INTPART(((3 * K) - (2 * D)));
XJYY:=(((CLOSE - MA(CLOSE,42)) / MA(CLOSE,42)) * 100);
無敵:=CROSS(XJYY,(0 - 28));
十九:=CROSS((0 - 28),XJYY);
小天:=(無敵 OR 十九);
N:=(KK + DD);
OO:=(N < 80);
OO1:=(N < 70);
OO2:=(N < 60);
XTT:=MA(OPEN,1);
XTT1:=(((((((((XTT / 6.75) = 1) OR ((XTT / 2.16) = 1)) OR ((XTT / 4.2) = 1)) OR ((XTT / 3.55) = 1)) OR ((XTT / 1.66) = 1)) OR ((XTT / 4.75) = 1)) OR ((XTT / 2.7) = 1)) OR ((XTT / 1.09) = 1));
KX:=((REF(OO2,1) AND REF(OO2,13)) AND (((REF(OO1,126) OR REF(OO1,180)) OR REF(OO1,225)) OR REF(OO1,456)));
KX1:=(((REF(OO2,153) AND REF(OO2,43)) OR (REF(OO,46) AND REF(OO,341))) OR ((REF(OO,3) AND REF(OO,76)) AND REF(OO2,28)));
KKDDJ:=((KX OR KX1) AND (((REF(OO,28) OR REF(OO,51)) OR REF(OO,126)) OR REF(OO,136)));
F1:=((CLOSE / REF(CLOSE,1)) > 1.09);
F2:=(VOL < MA(VOL,2));
F3:=((CLOSE / REF(CLOSE,44)) < 0.8);
F4:=((CLOSE / REF(CLOSE,60)) < 0.7);
KX2:=(F1 AND ((F2 OR F3) OR F4));
XTCBB:=((小天 AND KKDDJ) AND KX2);
XTCBB1:=(XTCBB AND (XTT1 = 0));
YJ1:=MA(OPEN,1);
YJ11:=(((((YJ1 / 1.99) = 1) OR ((YJ1 / 31.88) = 1)) OR ((YJ1 / 6.5) = 1)) OR ((YJ1 / 1.09) = 1));
VAR1YJ:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);
VAR2YJ:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);
VAR3YJ:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);
VAR4YJ:=REF(CLOSE,1);
VAR5YJ:=((SMA(MAX((CLOSE - VAR4YJ),0),5,1) / SMA(ABS((CLOSE - VAR4YJ)),5,1)) * 100);
VAR6YJ:=(((HIGH + LOW) + CLOSE) / 3);
VAR22YJ:=((VAR6YJ - MA(VAR6YJ,14)) / (0.015 * AVEDEV(VAR6YJ,14)));
VAR7YJ:=(((((((VAR1YJ >= (0 - 15.8)) AND (VAR1YJ <= (0 - 12.2))) AND (VAR2YJ <= (0 - 20.8))) AND (VAR3YJ <= (0 - 27.5))) AND (VAR5YJ <= 11.7)) AND (VAR22YJ <= (0 - 145))) * 100);
YJGSYJ:=(IF((VAR7YJ > 0),1,0) AND (YJ11 = 0));
FT:=MA(OPEN,1);
FT1:=(((((((((FT / 5.15) = 1) OR ((FT / 2.08) = 1)) OR ((FT / 5.56) = 1)) OR ((FT / 1.77) = 1)) OR ((FT / 14.5) = 1)) OR ((FT / 8.15) = 1)) OR ((FT / 9.93) = 1)) OR ((FT / 1.09) = 1));
DBFT1:=((((((((((CLOSE > OPEN) AND (OPEN = LOW)) AND (OPEN < REF(CLOSE,1))) AND (CLOSE < MA(CLOSE,5))) AND (CLOSE < MA(CLOSE,60))) AND (REF(CLOSE,1) > REF(CLOSE,2))) AND (REF(CLOSE,2) < REF(CLOSE,3))) AND ((REF(CLOSE,3) / REF(CLOSE,2)) > 1.038)) AND ((REF(CLOSE,1) / REF(CLOSE,2)) > 1.038)) AND (VOL < (2 * REF(VOL,1))));
DBFT:=(DBFT1 AND (FT = 0));
FT530:=MA(OPEN,1);
FT1530:=(((((((((FT530 / 8.48) = 1) OR ((FT530 / 8.65) = 1)) OR ((FT530 / 2.25) = 1)) OR ((FT530 / 2.38) = 1)) OR ((FT530 / 18.6) = 1)) OR ((FT530 / 16.5) = 1)) OR ((FT530 / 16) = 1)) OR ((FT530 / 16.8) = 1));
VAR1530:=INDEXC;
VAR2530:=MA(VAR1530,6);
VAR3530:=MA(VAR1530,24);
VAR4530:=MA(VAR1530,32);
VAR5530:=MA(VAR1530,62);
VAR6530:=MA(VAR1530,105);
VAR7530:=(((VAR5530 < REF(VAR5530,1)) AND (VAR6530 < REF(VAR6530,1))) AND (VAR5530 < (VAR6530 * 0.98)));
VAR8530:=((VAR4530 > (VAR2530 * 1.11)) AND (VAR3530 > (VAR2530 * 1.095)));
VAR9530:=(VAR2530 > (VAR1530 * 0.95));
VAR8530:=(((((VAR7530 AND VAR8530) AND VAR9530) AND ((CLOSE / COST(8)) <= 0.8)) AND ((CLOSE > OPEN) OR (CLOSE < OPEN))) AND ((REF(CLOSE,1) > REF(OPEN,1)) OR (REF(CLOSE,1) < REF(OPEN,1))));
VAR9530:=(VAR8530 AND (FT1530 = 0));
VAR9530:=(STRCMP(STKLABEL,'600711') = 0);
J1NL:=(STRCMP(STKLABEL,'600867') = 0);
J2NL:=(STRCMP(STKLABEL,'600067') = 0);
J3NL:=(STRCMP(STKLABEL,'000767') = 0);
J4NL:=(STRCMP(STKLABEL,'000782') = 0);
J5NL:=(STRCMP(STKLABEL,'600365') = 0);
J6NL:=(STRCMP(STKLABEL,'600550') = 0);
J7NL:=(STRCMP(STKLABEL,'600540') = 0);
J8NL:=(STRCMP(STKLABEL,'000060') = 0);
J9NL:=((((((((VAR9530 OR J1NL) OR J2NL) OR J3NL) OR J4NL) OR J5NL) OR J6NL) OR J7NL) OR J8NL);
JJNL:=(88 * (J9NL = 1));
RSV:=(((CLOSE - LLV(LOW,26)) / (HHV(HIGH,26) - LLV(LOW,26))) * 100);
JJJNL:=SMA(RSV,13,8);
K:=SMA(JJJNL,9,8);
D:=SMA(K,10,8);
FASTK:=MA(VOL,3);
VAR3666:=REF(FASTK,1);
VAR4666:=((((((((((((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(HIGH,2))) AND CROSS(K,D)) AND (K < 40)) AND (D < 30)) AND (VOL >= (MA(VOL,5) * 2))) OR ((((((CLOSE / OPEN) > 1.06) AND ((HIGH / LOW) < ((CLOSE / OPEN) + 0.018))) AND CROSS(K,D)) AND (K < 20)) AND (D < 30))) OR (((((VOL / VAR3666) > 0.5) AND (((VOL / CAPITAL) * 100) > 2)) AND ((CLOSE / OPEN) > 1.08)) AND ((HIGH / LOW) < ((CLOSE / OPEN) + 0.01))));
VAR5666:=(VAR4666 AND JJNL);
VAR6666:=(STRCMP(STKLABEL,'600093') = 0);
J1LS:=(STRCMP(STKLABEL,'600169') = 0);
J2LS:=(STRCMP(STKLABEL,'600278') = 0);
J3LS:=(STRCMP(STKLABEL,'000339') = 0);
J4LS:=(STRCMP(STKLABEL,'600371') = 0);
J5LS:=(STRCMP(STKLABEL,'600576') = 0);
J6LS:=(STRCMP(STKLABEL,'600753') = 0);
J7LS:=(STRCMP(STKLABEL,'600805') = 0);
J8LS:=(STRCMP(STKLABEL,'600634') = 0);
J9LS:=(STRCMP(STKLABEL,'000635') = 0);
J10LS:=(((((((((VAR6666 OR J1LS) OR J2LS) OR J3LS) OR J4LS) OR J5LS) OR J6LS) OR J7LS) OR J8LS) OR J9LS);
JJLS:=(88 * (J10LS = 1));
JJJLS:=(AMOUNT / VOL);
AA11:=(LOW < (JJJLS * 0.9));
BB11:=((((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100) > 1.2);
CC11:=(LOW < (MA(CLOSE,5) * 0.921));
DD11:=(VOL < (MA(VOL,5) * 6.5));
EE11:=((((AA11 AND BB11) AND CC11) AND DD11) AND JJLS);
LSCX:=(STRCMP(STKLABEL,'600148') = 0);
J111:=(STRCMP(STKLABEL,'600262') = 0);
J211:=(STRCMP(STKLABEL,'600604') = 0);
J311:=(STRCMP(STKLABEL,'600400') = 0);
J411:=(STRCMP(STKLABEL,'600627') = 0);
J511:=(STRCMP(STKLABEL,'600685') = 0);
J611:=(STRCMP(STKLABEL,'600804') = 0);
J711:=(STRCMP(STKLABEL,'600708') = 0);
J811:=(STRCMP(STKLABEL,'600840') = 0);
J911:=(STRCMP(STKLABEL,'600876') = 0);
J1011:=(STRCMP(STKLABEL,'000007') = 0);
J1012:=(STRCMP(STKLABEL,'000023') = 0);
J1013:=(STRCMP(STKLABEL,'000029') = 0);
J1014:=(STRCMP(STKLABEL,'000038') = 0);
J1015:=(STRCMP(STKLABEL,'000056') = 0);
J1016:=(STRCMP(STKLABEL,'000503') = 0);
J1017:=(STRCMP(STKLABEL,'000532') = 0);
J1018:=(STRCMP(STKLABEL,'000586') = 0);
J1019:=(STRCMP(STKLABEL,'000605') = 0);
J1020:=(STRCMP(STKLABEL,'000728') = 0);
J1021:=(STRCMP(STKLABEL,'000531') = 0);
J1022:=(STRCMP(STKLABEL,'600073') = 0);
J1023:=(((((((((((((((((((((LSCX OR J111) OR J211) OR J311) OR J411) OR J511) OR J611) OR J711) OR J811) OR J911) OR J1011) OR J1012) OR J1013) OR J1014) OR J1015) OR J1016) OR J1017) OR J1018) OR J1019) OR J1020) OR J1021) OR J1022);
JJL11:=(88 * (J1023 = 1));
JJJL11:=(CLOSE <= OPEN);
VAR1FT:=(CLOSE > OPEN);
VAR2FT:=DMA(EMA(CLOSE,12),((SUM(VOL,5) / 3) / CAPITAL));
VAR3FT:=(((CLOSE - VAR2FT) / VAR2FT) * 100);
VAR4FT:=(((((REF(VAR3FT,1) < (0 - 32)) AND (VAR3FT > REF(VAR3FT,1))) AND (REF(VAR3FT,1) < REF(VAR3FT,2))) AND ((VAR3FT - REF(VAR3FT,1)) > 2.5)) AND ((REF(VAR3FT,2) - REF(VAR3FT,1)) > 1));
VAR5FT:=((((((((((((((((VAR1FT AND REF(JJJL11,1)) AND REF(JJJL11,2)) AND REF(JJJL11,3)) AND REF(JJJL11,4)) AND REF(JJJL11,5)) AND REF(VAR1FT,6)) AND (HIGH < REF(HIGH,60))) AND (HIGH < REF(HIGH,120))) AND (HIGH < REF(CLOSE,200))) AND ((REF(SUM(VOL,5),1) / FINANCE(7)) < 2.5)) AND ((VAR3FT - REF(VAR3FT,1)) > 2)) AND (((REF(HIGH,1) - REF(CLOSE,2)) / REF(CLOSE,2)) < 0.05)) AND (((REF(HIGH,4) - REF(CLOSE,5)) / REF(CLOSE,5)) < 0.05)) AND (((REF(HIGH,2) - REF(CLOSE,3)) / REF(CLOSE,3)) < 0.05)) AND (((REF(HIGH,3) - REF(CLOSE,4)) / REF(CLOSE,4)) < 0.05)) AND (COUNT((INDEXC > INDEXO),6) > 1));
VAR6FT:=(VAR4FT OR VAR5FT);
VAR7FT:=(VAR6FT AND JJL11);
VAR8FT:=((((((OPEN <= EMA(CLOSE,5)) AND (CLOSE = HIGH)) AND ((CLOSE / OPEN) >= (1.1 + ((7.16 * 7.16) / 1000)))) AND ((VOL / CAPITAL) >= 0.02)) AND ((VOL / CAPITAL) <= 0.2)) AND (CLOSE >= (HHV(HIGH,100) * 0.98)));
W40T20%100%:=(((HHV(HIGH,36) - CLOSE) / (HHV(HIGH,36) - LLV(LOW,36))) * 100);
VAR1ZZ:=SMA(W40T20%100%,5,1);
VAR2ZZ:=(((CLOSE - LLV(LOW,8)) / (HHV(HIGH,8) - LLV(LOW,8))) * 100);
VAR3ZZ:=SMA(VAR2ZZ,2,1);
VAR4ZZ:=(((MA((VOL / CAPITAL),30) * MA(VOL,60)) / 10000) + (MA(CLOSE,30) * 8));
VAR5ZZ:=(((MA((VOL / CAPITAL),30) * MA(VOL,60)) / 10000) + MA(CLOSE,30));
VAR6ZZ:=((((((REF(CLOSE,2) / REF(OPEN,2)) < 0.88) AND (REF(OPEN,1) < REF(CLOSE,2))) AND ((ABS((REF(OPEN,1) - REF(CLOSE,1))) / REF(CLOSE,1)) < 0.04)) AND ((CLOSE / OPEN) > 1.07)) AND (CLOSE > REF(CLOSE,2)));
VAR7ZZ:=(CLOSE > REF(CLOSE,1));
VAR1YS:=(VOL < MA(VOL,5));
VAR2YS:=(VOL < REF(VOL,1));
VAR3YS:=(((CLOSE - OPEN) / REF(CLOSE,1)) > 0.1);
VAR4YS:=(COUNT((((SMA(MAX((CLOSE - REF(CLOSE,1)),0),6,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),6,1)) * 100) < 10),20) >= 1);
VAR5YS:=((((VAR7ZZ AND VAR1YS) AND VAR2YS) AND VAR3YS) AND VAR4YS);
VAR6YS:=MA(OPEN,1);
FGD:=(((((VAR6YS / 12.5) = 1) OR ((VAR6YS / 6.86) = 1)) OR ((VAR6YS / 2.95) = 1)) OR ((VAR6YS / 5.96) = 1));
FGD1:=STKINDI('1A0001','kdj.k',0,7);
AAGD:=STKINDI('1A0001','kdj.d',0,7);
BBGD:=STKINDI('','EXPMA.ma4',0,7);
CCGD:=IF(((CROSS(FGD1,AAGD) AND (FGD1 < 50)) AND (BBGD < CLOSE)),50,0);
MMCGD:=(((CCGD AND ((VOL / CAPITAL) <= 0.01)) AND ((CLOSE / OPEN) > 1.05)) AND (FGD = 0));
永勝:(((((((((((CDBB OR XTCBB1) OR YJGSYJ) OR DBFT) OR VAR9530) OR VAR5666) OR EE11) OR VAR7FT) OR VAR8FT) OR VAR6ZZ) OR VAR5YS) OR MMCGD);

這個公式明顯有作弊的行為,請看以下代碼:
J1LS:=(STRCMP(STKLABEL,'600169') = 0);
J2LS:=(STRCMP(STKLABEL,'600278') = 0);
J3LS:=(STRCMP(STKLABEL,'000339') = 0);
J4LS:=(STRCMP(STKLABEL,'600371') = 0);
J5LS:=(STRCMP(STKLABEL,'600576') = 0);
J6LS:=(STRCMP(STKLABEL,'600753') = 0);
J7LS:=(STRCMP(STKLABEL,'600805') = 0);
J8LS:=(STRCMP(STKLABEL,'600634') = 0);
J9LS:=(STRCMP(STKLABEL,'000635') = 0);

LSCX:=(STRCMP(STKLABEL,'600148') = 0);
J111:=(STRCMP(STKLABEL,'600262') = 0);
J211:=(STRCMP(STKLABEL,'600604') = 0);
J311:=(STRCMP(STKLABEL,'600400') = 0);
J411:=(STRCMP(STKLABEL,'600627') = 0);
J511:=(STRCMP(STKLABEL,'600685') = 0);
J611:=(STRCMP(STKLABEL,'600804') = 0);
J711:=(STRCMP(STKLABEL,'600708') = 0);
J811:=(STRCMP(STKLABEL,'600840') = 0);
J911:=(STRCMP(STKLABEL,'600876') = 0);
J1011:=(STRCMP(STKLABEL,'000007') = 0);
J1012:=(STRCMP(STKLABEL,'000023') = 0);
J1013:=(STRCMP(STKLABEL,'000029') = 0);
J1014:=(STRCMP(STKLABEL,'000038') = 0);
J1015:=(STRCMP(STKLABEL,'000056') = 0);
J1016:=(STRCMP(STKLABEL,'000503') = 0);
J1017:=(STRCMP(STKLABEL,'000532') = 0);
J1018:=(STRCMP(STKLABEL,'000586') = 0);
J1019:=(STRCMP(STKLABEL,'000605') = 0);
J1020:=(STRCMP(STKLABEL,'000728') = 0);
J1021:=(STRCMP(STKLABEL,'000531') = 0);
J1022:=(STRCMP(STKLABEL,'600073') = 0);



引用:
1032.問:
請問N天的漲幅在解盤顯示,怎寫
      答(kjyhao):
試試:
input:n(5);
漲幅:=(c-ref(c,n))/ref(c,n)*100;
EXPLAIN(c, 'N天的漲幅'+numtostr(漲幅,3));
    答(一鳴):
{N天內(nèi)的跌幅解盤  飛狐 }
input:n(5);
跌幅:=(ref(c,n)/c-1)*100;
EXPLAINEX(c<',跌幅,2,1); font="" <="">



引用:
1033.問:
在1分鐘周期內(nèi)顯示5分鐘周期的k線如何表達(dá)(于付圖中),

      答(znz2002):
1.建一個引用指標(biāo)
   HQSJ
CC:CLOSE;HH:HIGH;LL:LOW;OO:OPEN;
量:VOL;額:AMOUNT;
DD:DATE;


OO:=引用指標(biāo)('','HQSJ.OO',0,N);
CC:=引用指標(biāo)('','HQSJ.CC',0,N);
HH:=引用指標(biāo)('','HQSJ.HH',0,N);
LL:=引用指標(biāo)('','HQSJ.LL',0,N);

2.原碼
INPUT:N(2,2,5);
M:=IF(N=2,5,IF(N=3,15,IF(N=4,30,60)));
WAR00:=OPENMINUTES(TIME);
WAR01:=MOD(WAR00,M);
WAR02:=BARSLAST(WAR01=1)+1;
WAR03:=CEILING(M/2);
OO:=STKINDI('','HQSJ.OO',0,N);
CC:=STKINDI('','HQSJ.CC',0,N);
HH:=STKINDI('','HQSJ.HH',0,N);
LL:=STKINDI('','HQSJ.LL',0,N);
STICKLINE(CC>=OO AND WAR02=WAR03,HH,LL,N,0),COLORRED;
STICKLINE(CCSTICKLINE(CC>=OO,OO,CC,10,0),COLORRED;
STICKLINE(CC<>
MA1:MA(STKINDI('','MA.MA1',0,N),5),COLORWHITE;
MA2:MA(STKINDI('','MA.MA2',0,N),5),COLORYELLOW;
MA3:MA(STKINDI('','MA.MA3',0,N),5),COLORRED;
MA4:MA(STKINDI('','MA.MA4',0,N),5),COLORGREEN;
DRAWTEXT(N=2 AND BARPOS=SYSPARAM(2),H,'5分鐘K線'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=3 AND BARPOS=SYSPARAM(2),H,'15分鐘K線'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=4 AND BARPOS=SYSPARAM(2),H,'30分鐘K線'),ALIGN4,COLORYELLOW;
DRAWTEXT(N=5 AND BARPOS=SYSPARAM(2),H,'60分鐘K線'),ALIGN4,COLORYELLOW;



1034.問:
我參照量化思路一書源碼想在主圖上加條線造個大盤線(主圖疊加),
但源碼寫上了飛狐卻通不過,請問如何解決?

INPUT:N(100,2,1000);
ZJ:=BACKSET(ISLASTPERIOD,M);
ZX:=ZJ.REF(ZJ,1);
常數(shù):=REF(INDEXC,BARSLAST(ZX))/REF(C,BARSLAST(ZX));
大盤線:INDEXC//常數(shù),COLORBLUE;

      答(懶漢):
可見區(qū)域疊加
pc:=INDEXC;
s2:=SYSPARAM(2);
cc:=c;
b:=cc[s2]/pc[s2];
pc*b;

最后N個周期疊加
INPUT:N(100,2,1000);

s3:=SYSPARAM(3)-N;
w:=barslast(barpos=s3)*0;
pc:=INDEXC+w;
cc:=c+w;
bN:=cc[s3]/pc[s3];
bn*pc;



1035.問:
怎樣將RSI指標(biāo)放在主圖上
     答(xyqzhx):
LC := REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),10,1)/SMA(ABS(CLOSE-LC),10,1),linethick0;
q:=SYSPARAM(3)-SYSPARAM(2);
p:=SYSPARAM(3);
kh:=hhv(h,q);
kL:=LLv(L,q);
rh:=hhv(rsi,q);
rL:=LLv(rsi,q);
br:=(kh-kL)/(rh-rL);
wr:=(kh+kL-(rh+rL)*br)/2;
PARTLINE(1,rsi*br[p]+wr[p]),COLORMAGENTA,LINETHICK2;
    答(xyqzhx):
INPUT:N(5,1,100),N1(10,2,100),N2(20,2,200),P(40,2,200);
A:=EMA(C,20);
LC :=REF(C,1);
RSI1:=SMA(MAX(C-LC,0),N,1)/SMA(ABS(C-LC),N,1);
RSI2:=(RSI1-0.5)/3.8*A;
RSI3:RSI2+A,,COLORMAGENTA;
RSI1a:=SMA(MAX(C-LC,0),N1,1)/SMA(ABS(C-LC),N1,1);
RSI2a:=(RSI1a-0.5)/3.8*A;
RSI3a:RSI2a+A,,COLORYELLOW;
RSI1b:=SMA(MAX(C-LC,0),N2,1)/SMA(ABS(C-LC),N2,1);
RSI2b:=(RSI1b-0.5)/3.8*A;
RSI3b:RSI2b+A,;
UPPER:RSI3b+P*STD(RSI3b,10)/10,,COLORFF8918;
LOWER:RSI3b-P*STD(RSI3b,10)/10,,COLOR5290FF;
    答(xyqzhx):
RSI箱體
Var12:=REF(CLOSE,1);
Var22:=MA(CLOSE,5);
Var3:=SMA(MAX(CLOSE-Var12,0),12,1)/SMA(ABS(CLOSE-Var12),12,1)*100;{12日RSI指標(biāo)}
var33:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50),COLORRED;
var333:=(var3+var33)/2;

RSI12日:CLOSE+(var333/50-1)*(MA(CLOSE,30)/20)*3,coloryellow,linethick1;{轉(zhuǎn)換為主圖}

{箱型區(qū)間操作指標(biāo)}
hh:=h;ll:=l;
top:=h;
bot:=l;
xx[1]:=1;
kk:=1;
for i=1 to datacount do begin
  if xx[i]=1 then begin
    top[i]:=hh[i];
  end;
  if xx[i-1]=1 then begin
    if hh[i]>top[i-1] then begin
      top[i]:=hh[i];
      xx[i]:=1;
    end;else begin
      top[i]:=top[i-1];
      xx[i]:=2;
      end;
  end;
  if xx[i-1]=2 then begin
    if hh[i]>top[i-1] then begin
      top[i]:=hh[i];
      xx[i]:=1;
    end;else begin
      top[i]:=top[i-1];
      bot[i]:=ll[i];
      xx[i]:=3;
    end;
  end;
  if xx[i-1]=3 then begin
    top[i]:=top[i-1];
    if ll[i]< bot [i-1] then begin
      bot[i]:=ll[i];
      xx[i]:=3;
    end;else begin
      bot[i]:=bot[i-1];
      xx[i]:=4;
    end;
  end;
  if xx[i-1]=4 then begin
    top[i]:=top[i-1];
    if ll[i]      bot[i]:=ll[i];
      xx[i]:=3;
    end;else begin
      bot[i]:=bot[i-1];
      xx[i]:=5;
    end;
  end;
  if xx[i-1]=5 then begin
      if ll[i] top[i-1] then begin
      top[i]:=hh[i];
      bot[i]:=hh[i];
      xx[i]:=1;
      end;else begin
      bot[i]:=bot[i-1];
      top[i]:=top[i-1];
      xx[i]:=5;
    end;
  end;  
end;
for j=1 to datacount do begin
  if xx[j]=5 and xx[j-1]=4 then begin
    for k=j-1 downto j-kk do begin
      top[k]:=top[j];
      bot[k]:=bot[j];
    end;
  end;
  if xx[j-1]=5 and xx[j]=1 then kk:=0;
  kk:=kk+1;
end;

jj:=BARSLAST(top<>ref(top,1));
STICKLINE(top,top,top,10,1),colorcyan;
drawnumber(top<>ref(top,1),ref(top,jj)*1.015 ,(top-bot)*100/bot,2) colorff9900;
STICKLINE(bot,bot,bot,10,1),colorcyan;
drawnumber(top<>ref(top,1),ref(bot,jj)*0.99,top-bot ,2) colorgreen  ;

DRAWICON(cross(h,ref(top,1)) and xx=1 and ref(xx,1)=5,h*1.05,5);
DRAWICON(cross(ref(bot,1),l) and xx=1 and ref(xx,1)=5,l*0.985,4);



引用:
1036.問:
怎樣寫分析家和飛狐的主圖的左上角顯示提示性的文字
      答(乘風(fēng)333 ):
分析家的主圖的左上角顯示提示性的文字

  分析家的.
解:='總股本='+NUMTOSTRN(FINANCE(1) ,0 )+'萬股'+' 流通A股='
+ NUMTOSTRN(FINANCE(7),0)+'萬股'+' 凈資產(chǎn)='+NUMTOSTRN(FINANCE(34),2 ) +
' 收益='+ NUMTOSTRN(FINANCE(33),2)+' 公積金='+
NUMTOSTRN(FINANCE(18),2)+'  市盈率='+NUMTOSTRN(DYNAINFO(39),2)+
' 振幅='+ NUMTOSTRN((h/l-1)*100,2)+'%'+' 換手率='+
NUMTOSTRN(100*VOL/CAPITAL,2)+'%';
if DISPSTATUS=2 then af:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;
d:=af-b;
e:=hhv(h,d);
DRAWTEXT(1, e*1,解),ColorBCFF8B,ALIGN2;
    答(乘風(fēng)333 ):
飛狐的.

DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,{STKNAME+'\n'+STKLABEL+'\n'+}BLKNAME)align4,COLORGREEN;
DRAWTEXT(sysparam(2)=BARPOS,c,'總股本='+NUMTOSTR(FINANCE(1) ,0 )+'萬股'+' 流通A股='
+ NUMTOSTR(FINANCE(7),0)+'萬股'+' 凈資產(chǎn)='+NUMTOSTR(FINANCE(34),2 ) +
' 收益='+ NUMTOSTR(FINANCE(33),2)+' 公積金='+
NUMTOSTR(FINANCE(18),2)+'  市盈率='+NUMTOSTR(DYNAINFO(39),2)+
' 振幅='+ NUMTOSTR((h/l-1)*100,2)+'%'+' 換手率='+
NUMTOSTR(100*VOL/CAPITAL,2)+'%'),COLORccffcc,ALIGN5;



引用:
1037.問:
如何能把五彩K線的曙光初現(xiàn)和早晨之星加入K線圖顯示文字?
曙光初現(xiàn):
BACKSET(
REF(CLOSE,1)/REF(OPEN,1)<0.97 AND
CLOSE/OPEN>1.03 AND
OPENCLOSE>REF(CLOSE,1),
2)
早晨之星:
BACKSET(
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),3)

     答(馨蕓):
試試
ff:=BACKSET(REF(CLOSE,1)/REF(OPEN,1)<0.97 AND  CLOSE/OPEN>1.03
AND OPENREF(CLOSE,1),2);
drawtext(ff=1 and ref(ff,1)=1,L*0.975,'曙光初?'),colorred;
gg:=BACKSET(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),3);
drawtext(gg=1 and ref(gg,1)=1,L*0.975,'早晨之星'),coloryellow;



引用:
1038.問:
能否把下面這段改為分析家,謝謝!

partline(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓,鼠變異),Linethick2,colorff66ff;
partline(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1,鼠變異),Linethick2;
partline(鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓,鼠變異);
explain(c>zx and c>=life,'老鼠出洞了,逮住它!'),colorff;
explain(c>zx and c>snook and c<>
explain(c>zx and c<=snook,'老鼠露尾巴,動作快!'),colorff00;
explain(c<=zx,'老鼠沒有了,打個盹!'),color808080;
explain(鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓,'發(fā)現(xiàn)鼠跡!'),colorff00;
explain(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu<>1,'瞬間鼠影!'),colorff66ff;
explain(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1,'惡鼠難遁!'),colorff;
explain(c>zx and ma20=0,'老鼠去哪里,思考哦!'),colorffff;

     答(無名山人):
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓),Linethick2,colorff66ff;
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1),Linethick2;
partline(鼠變異,鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓);
TIPTEXT(c>zx and c>=life,0,'老鼠出洞了,逮住它!');
TIPTEXT(c>zx and c>snook and c<>
TIPTEXT(c>zx and c<=snook,0,'老鼠露尾巴,動作快!');
TIPTEXT(c<=zx,0,'老鼠沒有了,打個盹!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異<>招財(cái)貓,0,'發(fā)現(xiàn)鼠跡!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu<>1,0,'瞬間鼠影!');
TIPTEXT(鼠變異>ref(鼠變異,1) and 鼠變異=招財(cái)貓 and pdu=1,0,'惡鼠難遁!');
TIPTEXT(c>zx and ma20=0,0,'老鼠去哪里,思考哦!');



引用:
1039.問:
10日線已經(jīng)上升了6天怎么寫啊
      答(xiaotian):
COUNT(ma(c,10)>ref(ma(c,10),1),6)=6;



引用:
1040.問:
公式1   
CCI順勢指標(biāo)源碼 :
   參數(shù):N     14
   TYP := (HIGH + LOW + CLOSE)/3;
   (TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));
   請教老師如何選出CCI值在-150以下的個股?
公式2
(一 )5日均線上穿10日均線。(二  )5日,10日均線是上升的。請老師編 個一. 二. 同時成立分析家選股公式。
        答(懶漢):
一.
TYP := (HIGH + LOW + CLOSE)/3;
(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N))<-150;

二.
m:=ma(c,5);
m1:=ma(c,10);
cross(m,m1) and m>ref(m,1) and m1>ref(m1,1);
本站僅提供存儲服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
壓力支撐線
飛弧公式月周日K線一眼可見--------------不用切換
送給大家一個網(wǎng)上賣2000元的公式,天天賺錢
飛狐多種公式
飛狐強(qiáng)勢股回調(diào)選股公式
【圖】《難得糊涂》
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服