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

886.問(wèn):
請(qǐng)南客老師將這段源碼轉(zhuǎn)成飛狐公式，謝謝。

input:N(5,0,100,1),D(1050426,0,1999999,1),M(80,1,1000,1),
      M1(50,1,1000,1),N1(0,0,1000,1);

variable:AA=0,BB=0,CC=0,DD=0,  EE=0,FF=0,HH=0,II=0;
varAA:=0;
varBB:=0;
varCC:=0;
varDD:=barpos-1;
varEE:=capital*(M/100);
varFF:=capital*(m1/100);
varD:=date>=D;
var0:=ma( ref(vol,1),N );{N=１，與上一交易日比較}
var00:=var0*( (100+N1)/100 );
varV:=vol/var00-1;
var1:=if(vol>var00,vol-var00,0);
var2:=if(vol<var00,var00-vol,0);
var3:=(vol-var0)*100/var0;

差:vol-var0,colorffcc00,linethick0,precis0;
幅％:var3,colorccffff,linethick0,precis0;

STICKLINE(vol>var0,0,var1,6,0),COLORffccff;
STICKLINE(vol<var0,0,var2,6,1),colorccff33;


if varD then begin
  for i=0 to varDD do begin
    if varAA< varEE then begin
       varAA := varAA + ref(vol,i);
      if varAA >= varEE then  
         varZZ:=i+1;
        end
     end
  for i=0 to varDD do begin
    if varBB< varFF then begin
       varBB := varBB + ref(var1,i);
      if varBB >= varFF then
         varXX:=i+1;
        end
     end
  for i=0 to varDD do begin
    if varCC< varFF then begin
       varCC := varCC + ref(var2,i);
      if varCC >= varFF then
         varYY:=i+1;
        end
     end
          if Vol>var00 then begin
                  AA:=AA+varV;
                  BB:=BB+1;
       end
       else if Vol<var00 then begin
                  CC:=CC+varV;
                  DD:=DD+1;
          end
   if C>O then begin
      EE:=EE+varV;
      FF:=FF+1;
     end
     else if C<O then begin
      HH:=HH+varV;
      II:=II+1;
   end     
end

漲％:if(BB=0,0,AA*100/BB),precis2,colorffccff;
跌％:if(DD=0,0,CC*100/DD),precis2,colorcyan;
陽(yáng)％:if(FF=0,0,EE*100/FF),precis2,color99ffff;
陰％:if(II=0,0,HH*100/II),precis2,colorffff99;
（天）:varZZ,precis0,linethick0,coloreeeeee;
天↑:varXX,precis0,linethick0,colorffcccc;
天↓:varYY,precis0,linethick0,colorccff33;

    答(股市騎兵00):
上面的公式是分析家的，和飛狐寫法不同，一個(gè)字都沒(méi)改怎么能用呢
input:N(5,0,100,1),D(1050426,0,1999999,1),M(80,1,1000,1),
      M1(50,1,1000,1),N1(0,0,1000,1);

variable:AA=0*c,BB=0*c,CC=0*c,DD=0*c,  EE=0*c,FF=0*c,HH=0*c,II=0*c;
varAA:=0*c;
varBB:=0*c;
varCC:=0*c;
varDD:=barpos-1;
varEE:=capital*(M/100);
varFF:=capital*(m1/100);
varD:=date>=D;
var0:=ma( ref(vol,1),N );{N=１，與上一交易日比較}
var00:=var0*( (100+N1)/100 );
varV:=vol/var00-1;
var1:=if(vol>var00,vol-var00,0);
var2:=if(vol<var00,var00-vol,0);
var3:=(vol-var0)*100/var0;

差:vol-var0,colorffcc00,linethick0,PRECISION0;
幅％:var3,colorccffff,linethick0,PRECISION0;

STICKLINE(vol>var0,0,var1,6,0),COLORffccff;
STICKLINE(vol<var0,0,var2,6,1),colorccff33;

fv:=v;fc:=c;fo:=o;
for i=1 to datacount do begin
  if varD[i] then begin
     for j=i downto 1 do begin
       if varaa[j]<varee then
          varaa[i]:=varaa[i]+fv[j];
       if varaa[i]>=varee then begin
          varzz[i]:=i-j+1;
          break;
       end;
     end;
     for j=i downto LBOUND(var1) do begin
       if varbb[j]<varff then
         varbb[i]:=varbb[i]+var1[j];
       if varbb[i]>=varff then begin
         varxx[i]:=i-j+1;
         break;
       end;
     end;
     for j=i downto LBOUND(var2) do begin
       if varcc[j]<varff then
         varcc[i]:=varcc[i]+var2[j];
       if varcc[i]>=varff then begin
         varyy[i]:=i-j+1;
         break;
       end;
     end;
       if fv[i]>var00[i] then begin
         aa[i]:=aa[i-1]+varv[i];
         bb[i]:=bb[i-1]+1;
       end;else begin
         aa[i]:=aa[i-1];
         bb[i]:=bb[i-1];
       end;
       if fv[i]<var00[i] then begin
         cc[i]:=cc[i-1]+varv[i];
         dd[i]:=dd[i-1]+1;
       end;else begin
         cc[i]:=cc[i-1];
         dd[i]:=dd[i-1];
       end;      
       if fc[i]>fo[i] then begin
         ee[i]:=ee[i-1]+varv[i];
         ff[i]:=ff[i-1]+1;
       end;else begin
         ee[i]:=ee[i-1];
         ff[i]:=ff[i-1];
       end;
       if fc[i]<fo[i] then begin
         hh[i]:=hh[i-1]+varv[i];
         ii[i]:=ii[i-1]+1;
       end;else begin
         hh[i]:=hh[i-1];
         ii[i]:=ii[i-1];
       end;
   end;
end;
漲％:if(BB=0,0,AA*100/BB),PRECISION2,colorffccff;
跌％:if(DD=0,0,CC*100/DD),PRECISION2,colorcyan;
陽(yáng)％:if(FF=0,0,EE*100/FF),PRECISION2,color99ffff;
陰％:if(II=0,0,HH*100/II),PRECISION2,colorffff99;
（天）:varZZ,PRECISION2,linethick0,coloreeeeee;
天↑:varXX,PRECISION2,linethick0,colorffcccc;
天↓:varYY,PRECISION2,linethick0,colorccff33;

887.問(wèn):
      在電腦解盤中:
      EXPLAIN(x1,提示平倉(cāng)一半),有沒(méi)有辦法讓"提示平倉(cāng)一半"不重復(fù)出現(xiàn)啊!
      因?yàn)樵谝欢螘r(shí)間x1條件會(huì)反復(fù)出現(xiàn).
      count(x1,m)=1;
      
    答(南客):
      如何使買入信號(hào)、賣出信號(hào)一一對(duì)應(yīng)
    (1)
　　在設(shè)計(jì)公式時(shí)，我們經(jīng)常遇到這樣的問(wèn)題，如何使買賣信號(hào)一一對(duì)應(yīng)？
　　比如下面的代碼：
input:n(26,5,300),p(2,0.1,10);
close;
mid :  ma(close,n);
upper: mid + p*std(close,n);
lower: mid - p*std(close,n);

tjb:=cross(close,lower);
tjs:=cross(upper,close);
drawicon(tjb,close,4);
drawicon(tjs,close,5);

可以看出，買入信號(hào)連續(xù)發(fā)出多次后，才出現(xiàn)賣出信號(hào)，賣出信號(hào)連續(xù)發(fā)出多次后，
才發(fā)出買入信號(hào)。
     (2)
如何過(guò)濾連續(xù)的買入、賣出信號(hào)，使買入后只要沒(méi)有發(fā)出賣出信號(hào)，就不再發(fā)出買入信號(hào)；同樣，賣出后只要沒(méi)有出現(xiàn)買入信號(hào)，就不再發(fā)出賣出信號(hào)。即買入、賣出信號(hào)一一對(duì)應(yīng)。容易想到的是使用過(guò)濾函數(shù)filter()，但這個(gè)函數(shù)是難以實(shí)現(xiàn)的，因?yàn)槲磥?lái)有多少個(gè)連續(xù)的買入（或賣出）信號(hào)是未知的。
　　另一種方法是，從前一次賣出（或買入）信號(hào)開始累加買入（或賣出）信號(hào)，如果累加次數(shù)等于１，則發(fā)出真正的買入（或賣出）信號(hào)。但這里還有一個(gè)問(wèn)題，如果首次信號(hào)是賣出信號(hào)的話，也應(yīng)該過(guò)濾，因?yàn)闆](méi)有買入哪來(lái)賣出？應(yīng)讓首次信號(hào)是買入信號(hào)才合理。方法是，在第1根K線的位置，虛擬一個(gè)賣出信號(hào)。
　　以下是實(shí)現(xiàn)上述想法的常規(guī)函數(shù)代碼：

input:n(26,5,300),p(2,0.1,10);
close;
mid :  ma(close,n);
upper: mid + p*std(close,n);
lower: mid - p*std(close,n);

//以下為常規(guī)函數(shù)處理代碼//
tjb:=cross(close,lower);//初始買入信號(hào)，可換成其它任意買入條件
tjs:=cross(upper,close);//初始賣出信號(hào)，可換成其它任意賣出條件

{以下代碼，使買、賣信號(hào)一一對(duì)應(yīng)}
tsb:=barssince(tjb);
tss:=barssince(tjs);
if tjs[datacount]<tjb[datacount] then begin
  a:=setlbound(tjs,1);
  tjs:=tjs or barpos=1;
end;
tjbuy:=count(tjb,barslast(tjs))=1 and tjb;  //買入信號(hào)
tjsell:=count(tjs,barslast(tjb))=1 and tjs; //賣出信號(hào)

drawicon(tjbuy,low,4);
drawicon(tjsell,high,5);
    答(cwy):
如下也可解決
input:n(26,5,300),p(2,0.1,10);
close;
mid:ma(close,n);
upper:mid + p*std(close,n);
lower:mid - p*std(close,n);
tjb:=cross(close,lower);
tjs:=cross(upper,close);
tsb:=barslast(tjb);
tss:=barslast(tjs);
tj1:=tjb and count(tjb,tss+1)<2;
tj2:=tjs and count(tjs,tsb+1)<2;
drawicon(tj1,close,4);
drawicon(tj2,close,5);

允許連續(xù)出現(xiàn)２次買入信號(hào)或賣出信號(hào)
input:n(26,5,300),p(2,0.1,10);
close;
mid:ma(close,n);
upper:mid + p*std(close,n);
lower:mid - p*std(close,n);
tjb:=cross(close,lower);
tjs:=cross(upper,close);
tsb:=barslast(tjb);
tss:=barslast(tjs);
tj1:=tjb and count(tjb,tss+1)<3;
tj2:=tjs and count(tjs,tsb+1)<3;
drawicon(tj1,close,4);
drawicon(tj2,close,5);

    答(股市騎兵00):
1.用循環(huán)我試著答一下。
input:n(26,5,300),p(2,0.1,10),s(1,1,5);//S為允許連續(xù)出現(xiàn)信號(hào)調(diào)節(jié)參數(shù)！
close;
mid :=  ma(close,n);
upper: mid + p*std(close,n);
lower: mid - p*std(close,n);

//以下為常規(guī)函數(shù)處理代碼//
tjb:=cross(close,lower);//初始買入信號(hào)，可換成其它任意買入條件
tjs:=cross(upper,close);//初始賣出信號(hào)，可換成其它任意賣出條件

///////////////////////////////////////////////////////////
m:=0*c;w:=0*c;mm:=0*c;
for i=LBOUND(upper) to datacount do begin
  mm[i]:=mm[i-1]+tjb[i];
  m[i]:=m[i-1]+tjb[i];
  w[i]:=w[i-1]+tjs[i];
  if tjs[i] then m[i]:=0;
  if tjb[i] then w[i]:=0;
  if m[i]<=s and tjb[i] then z[i]:=1;
  if w[i]<=s and tjs[i] and mm[i]>0 then t[i]:=1;//首次要發(fā)賣出信號(hào)去掉and mm[i]>0
end;
drawicon(z,low,4);
drawicon(t,high,5);

2.稍微改下思路試試。
///////////////////////////////////////////////////////////
m:=0*c;w:=0*c;mm:=0*c;
for i=LBOUND(upper) to datacount do begin
mm[i]:=mm[i-1]+tjb[i];
m[i]:=m[i-1]+tjb[i];
w[i]:=w[i-1]+tjs[i];
if w[i]>w[i-1] then m[i]:=0;
if m[i]>m[i-1] or mm[i]=0 then w[i]:=0;
if m[i]-w[i]>s then m[i]:=m[i-1];
if w[i]-m[i]>s then w[i]:=w[i-1];
end;
drawicon(m>ref(m,1),low,4);
drawicon(w>ref(w,1),high,5);
    問(wèn):
剛剛發(fā)現(xiàn)問(wèn)題。如果將買入、賣出條件改為以下方式，就無(wú)法實(shí)現(xiàn)信號(hào)的對(duì)應(yīng)了。請(qǐng)問(wèn)老師在買入條件仍然保持“C>MID”，而不是“CROSS(C,MID)”的情況下如何實(shí)現(xiàn)？

MID:MA(C,30);

tjb:=C>MID AND L>MID;//初始買入信號(hào)，可換成其它任意買入條件
U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5)));
U2:=L<MID;
tjs:=U1 OR U2;//初始賣出信號(hào)，可換成其它任意賣出條件

{以下代碼，使買、賣信號(hào)一一對(duì)應(yīng)}
tsb:=barssince(tjb);
tss:=barssince(tjs);
if tjs[datacount]<tjb[datacount] then begin
  a:=setlbound(tjs,1);
  tjs:=tjs or barpos=1;
end;
tjbuy:=count(tjb,barslast(tjs))=1 and tjb;  //買入信號(hào)
tjsell:=count(tjs,barslast(tjb))=1 and tjs; //賣出信號(hào)

drawicon(tjbuy,low,4);
drawicon(tjsell,high,5);
     答(股市騎兵00):
你的買賣條件不對(duì)呀！
tjs//初始賣出信號(hào)
tjb//初始買入信號(hào)
2個(gè)條件自相矛盾了，同時(shí)買賣信號(hào)都會(huì)發(fā)的，那你聽買的呢，還是賣的呢？
你硬要這個(gè)條件，下面的你參考
MID:=MA(C,30);

tjb:=C>MID AND L>MID;
U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5)));
U2:=L<MID;
tjs:=U1 OR U2;//初始賣出信號(hào)，可換成其它任意賣出條件
tjb:=tjb and not(tjs);//初始買入信號(hào)，可換成其它任意買入條件
{以下代碼，使買、賣信號(hào)一一對(duì)應(yīng)}
tsb:=barssince(tjb);
tss:=barssince(tjs);
if tjs[datacount]<tjb[datacount] then begin
  a:=setlbound(tjs,1);
  tjs:=tjs or barpos=1;
end;
tjbuy:=count(tjb,barslast(tjs))=1 and tjb;  //買入信號(hào)
tjsell:=count(tjs,barslast(tjb))=1 and tjs; //賣出信號(hào)

drawicon(tjbuy,low,4);
drawicon(tjsell,high,5);
    問(wèn):
公式中的“U2”又改了一下：
U2:=C>REF(C,BARSLAST(CROSS(TJB,0.5)));
請(qǐng)教怎樣才能在“tjsell”條件成立后，當(dāng)“C>MID AND L>MID”條件滿足時(shí)即可產(chǎn)生新的“tjbuy”信號(hào)？謝謝！
[color=Red]     答(股市騎兵00):
你的買賣條件本身有重疊的問(wèn)題。肯定有信號(hào)損失的，如果以買入信號(hào)為基準(zhǔn)。
損失賣出信號(hào)改為如下表達(dá)。

MID:=MA(C,30);

tjb:=C>MID AND L>MID;//初始買入信號(hào)，可換成其它任意買入條件
U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5)));
//U2:=L<MID;
U2:=C>REF(C,BARSLAST(CROSS(TJB,0.5)));
tjs:=(U1 OR U2) and not(tjb);//初始賣出信號(hào)，可換成其它任意賣出條件
    答(cwy):
這個(gè)作業(yè)不能說(shuō)是真正的用循環(huán)語(yǔ)句來(lái)實(shí)現(xiàn),對(duì)常規(guī)函數(shù)使用的考慮還是較多,
如處理第一個(gè)賣出信號(hào),實(shí)際上我不是做出來(lái)而是試出來(lái)的,
input:n(26,5,300),p(2,0.1,10);
close;
mid:ma(close,n);
upper:mid + p*std(close,n);
lower:mid - p*std(close,n);
//以下為常規(guī)函數(shù)處理代碼//
tjb:=cross(c,lower);//初始買入信號(hào)，可換成其它任意買入條件
tjs:=cross(upper,c);//初始賣出信號(hào)，可換成其它任意賣出條件
tss1:=BARSSINCE(tjb);//第一個(gè)賣出信號(hào)
///////////////////////////////////////////////////////
fb:=0*c;  
fs:=0*c;
for i =n to datacount do begin
   fb[i]:=fb[i-1]+tjb[i];
   fs[i]:=fs[i-1]+tjs[i];
   if tjs[i] then fb[i]:=0;
   if tjb[i] then fs[i]:=0;
   if fb[i]=1 and tjb[i] then fb1[i]:=1;
   if fs[i]=1 and tjs[i] then fs1[i]:=1;
end;
drawicon(fb1 ,l,4);
drawicon(fs1 and tss1>2 ,h,5);