 |
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1501 |
箱型X:=ABS(C-LLV(L,10))/C<0.07 AND ABS(HHV(H,10)-C)/C<0.07 AND (HHV(H,10)-LLV(L,10))<C*0.1,COLORYELLOW,LINETHICK;
箱型:ALL(箱型X,5),COLORYELLOW,LINETHICK;
箱頂:REF(REF(HHV(H,10),1),BARSLAST(箱型)),COLORYELLOW,LINETHICK;
箱底:REF(REF(LLV(L,10),1),BARSLAST(箱型)),COLORYELLOW,LINETHICK;
箱型結束:CROSS(C,箱頂) OR CROSS(箱底,C),COLORYELLOW,LINETHICK;
謝謝!
|
|
向版主報告此篇 |  |
|
2011-04-25 13:28 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18114 |
引用: 最初由 Markchu7 發表
箱型X:=ABS(C-LLV(L,10))/C<0.07 AND ABS(HHV(H,10)-C)/C<0.07 AND (HHV(H,10)-LLV(L,10))<C*0.1,COLORYELLOW,LINETHICK;
箱型:ALL(箱型X,5),COLORYELLOW,LINETHICK;
箱頂:REF(REF(HHV(H,10),1),BARSLAST(箱型)),COLORYELLOW,LINETHICK;
箱底:REF(REF(LLV(L,10),1),BARSLAST(箱型)),COLORYELLOW,LINETHICK;
箱型結束:CROSS(C,箱頂) OR CROSS(箱底,C),COLORYELLOW,LINETHICK;
謝謝!
//看看是否為您要的
箱型X:=ABS(C-LLV(L,10))/C<0.07 AND ABS(HHV(H,10)-C)/C<0.07 AND (HHV(H,10)-LLV(L,10))<C*0.1,COLORYELLOW,LINETHICK;
箱型:ALL(箱型X,5),COLORYELLOW,LINETHICK;
箱頂:REF(REF(HHV(H,10),1),BARSLAST(箱型)),COLORYELLOW,LINETHICK;
箱底:REF(REF(LLV(L,10),1),BARSLAST(箱型)),COLORYELLOW,LINETHICK;
箱型結束:CROSS(C,箱頂) OR CROSS(箱底,C),COLORYELLOW,LINETHICK;
CK:=箱型 and ref(箱型,1)=0;
SS:=barslast(CK)+1;
PP:箱型 and sum(箱型結束,SS)=0 linethick;
DRAWICON(PP,H,12),PXUP25;
DRAWICON(箱型結束 AND SUM(箱型結束,BARSLAST(REF(箱型,1)=0 AND 箱型)+1)=1,l,4),PXDN15;
|
|
向版主報告此篇 |  |
|
2011-04-25 13:47 |
|
|
|  |
 |
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1501 |
箱型X:ABS(C-LLV(L,10))/C<0.07 AND ABS(HHV(H,10)-C)/C<0.07 AND (HHV(H,10)-LLV(L,10))<C*0.1,COLORYELLOW,LINETHICK;
箱型Y:ALL(箱型X,5),COLORYELLOW,LINETHICK;
箱頂:REF(REF(HHV(H,10),1),BARSLAST(箱型Y))+0.01,COLORYELLOW,LINETHICK,PRECISION3;
箱底:REF(REF(LLV(L,10),1),BARSLAST(箱型Y))-0.01,COLORYELLOW,LINETHICK,PRECISION3;
箱型結束:CROSS(C,箱頂) OR CROSS(箱底,C),COLORYELLOW,LINETHICK;
箱型起始:=箱型Y and ref(箱型Y,1)=0;
箱型SS:=barslast(箱型起始)+1;
箱型:箱型Y and sum(箱型結束,箱型SS)=0,linethick;
VERTLINE(箱型結束),LINEDOT,COLORYELLOW;
DRAWICON(箱型,H,12),PXUP25;
Markchu7 附帶上了此圖片:
|
|
向版主報告此篇 |  |
|
2011-04-29 00:07 |
|
|
|  |
 |
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1501 |
總版主似乎太忙了!還是漏掉了幫我指導這一篇?謝謝!
|
|
向版主報告此篇 |  |
|
2011-05-05 08:52 |
|
|
|  |
 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1893 |
引用: 最初由 Markchu7 發表
箱型X:ABS(C-LLV(L,10))/C<0.07 AND ABS(HHV(H,10)-C)/C<0.07 AND (HHV(H,10)-LLV(L,10))<C*0.1,COLORYELLOW,LINETHICK;
箱型Y:ALL(箱型X,5),COLORYELLOW,LINETHICK;
箱頂:REF(REF(HHV(H,10),1),BARSLAST(箱型Y))+0.01,COLORYELLOW,LINETHICK,PRECISION3;
箱底:REF(REF(LLV(L,10),1),BARSLAST(箱型Y))-0.01,COLORYELLOW,LINETHICK,PRECISION3;
箱型結束:CROSS(C,箱頂) OR CROSS(箱底,C),COLORYELLOW,LINETHICK;
箱型起始:=箱型Y and ref(箱型Y,1)=0;
箱型SS:=barslast(箱型起始)+1;
箱型:箱型Y and sum(箱型結束,箱型SS)=0,linethick;
VERTLINE(箱型結束),LINEDOT,COLORYELLOW;
DRAWICON(箱型,H,12),PXUP25;
算是取巧的方式
//加在後面
X04:=BARSLAST(箱型結束);
X05:=SUM(箱型X,X04+1);
X06:=X05>=5 AND 箱型Y AND 箱型結束=0;
DRAWICON(X06,L,10),PXDN10;
__________________
至誠能勝天下至偽
至拙能勝天下至巧
|
最後由 peter109 在 2011-05-07 01:39 編輯 |
向版主報告此篇 |  |
|
2011-05-07 01:19 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|