• sensitivy:=o; towero:=o; towerc:=c; fc:=c;   
  • i:=2;   
  • while i<=datacount do begin   
  •   towero[i]:=towerc[i-1];   
  •   towerc[i]:=fc[i];   
  •   sensitivy[i]:=towero[i-1];   
  •   if (towerc[i-1]-towero[i-1])*(towerc[i-1]-sensitivy[i-1])<=0 then    
  •     begin    
  •       towero[i]:=towero[i-1];   
  •       sensitivy[i]:=towerc[i-1];   
  •     end    
  •   else if between(sensitivy[i-1],towero[i-1],towerc[i-1]) then sensitivy[i]:=sensitivy[i-1];   
  •   i:=i+1;   
  • end;   
  •   
  • tj:=(sensitivy-towero)*(sensitivy-towerc)<=0 and sensitivy<>towerc;   
  • stickline(tj,max(towero,towerc),sensitivy,7,1), colorred;   
  • stickline(tj,min(towero,towerc),sensitivy,7,0), color006600;   
  • stickline(sensitivy<=min(towero,towerc) and not(tj),towero,towerc,7,1), colorred;   
  • stickline(sensitivy>=max(towero,towerc) and not(tj),towero,towerc,7,0), color006600;   
  •   
  • 今开盘:TOWERO,LINETHICK0;   
  • 今收盘:TOWERC,LINETHICK0;   
  • 今敏感:sensitivy,LINETHICK0;   
  •   
  • 三平底翻红: min(towero,towerc)=ref(min(towero,towerc),1) and min(towero,towerc)=ref(min(towero,towerc),2) and max(towero,towerc)>sensitivy,LINETHICK,COLORRED;   
  • 三平顶翻绿: max(towero,towerc)=ref(max(towero,towerc),1) and max(towero,towerc)=ref(max(towero,towerc),2) and min(towero,towerc)<sensitivy,LINETHICK,COLOR006600;   
  • if k=0 then exit;   
  • DRAWICON(三平底翻红,min(towero,towerc)*0.98,4);DRAWICON(三平顶翻绿,max(towero,towerc)*1.02,5);   


    • 声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。