奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [求救]仿拋物轉向SAR (http://www.chiefox.com.tw/bbs/showthread.php?threadid=20829)

[求救]仿拋物轉向SAR

SARY:SAR(5,1,20);
SAR為內建函數,當條件成立時可畫出一條拋物線.盤中甚是實用!但當跳空開盤或是急拉急殺時便與價格有較大的脫節!如附圖!
所以我想仿效劃一條間隔.極值與內建函數算法相同,但條件與起算點位置不同的拋物線!
1.條件:除原有條件CROSS(H,SARY)或CROSS(SARY,L)為起算點外(此時為拋物線轉向)!我想增加以L>SARY AND C-REF(C,1)>R 與 H<SARY AND REF(C,1)-C>R為起算點條件(此時為拋物線同向)!
2.起算點位置:以收盤價加減P為起算點位置!
如此效果是否能實現?請CGJJ兄協助!如有考慮不週處請指正!謝謝!

回覆: [求救]仿拋物轉向SAR

引用:

---

最初由 Markchu7 發表
SARY:SAR(5,1,20);
SAR為內建函數,當條件成立時可畫出一條拋物線.盤中甚是實用!但當跳空開盤或是急拉急殺時便與價格有較大的脫節!如附圖!
所以我想仿效劃一條間隔.極值與內建函數算法相同,但條件與起算點位置不同的拋物線!
1.條件:除原有條件CROSS(H,SARY)或CROSS(SARY,L)為起算點外(此時為拋物線轉向)!我想增加以L>SARY AND C-REF(C,1)>R 與 H<SARY AND REF(C,1)-C>R為起算點條件(此時為拋物線同向)!
2.起算點位置:以收盤價加減P為起算點位置!
如此效果是否能實現?請CGJJ兄協助!如有考慮不週處請指正!謝謝!

---

那請問如果條件成立的部分不變,僅調整起算點位置部分是否可行?

越俎代庖 看看是否你要地 自己研究看看

SARN:SAR(10,2,20),CIRCLEDOT;
H01:=SARN>REF(SARN,1) AND SARN>REFX(SARN,1);
H02:=SUM(H01,0);
H03:=H02<>REF(H02,1);
LINEVALUE(H02=H02[DATACOUNT]-1 AND H03,HIGH,H02=H02[DATACOUNT] AND H03,HIGH,0,0);
LINEVALUE(H02=H02[DATACOUNT]-2 AND H03,HIGH,H02=H02[DATACOUNT]-1 AND H03,HIGH,0,0);

L01:=SARN<REF(SARN,1) AND SARN<REFX(SARN,1);
L02:=SUM(L01,0);
L03:=L02<>REF(L02,1);
LINEVALUE(L02=L02[DATACOUNT]-1 AND L03,LOW,L02=L02[DATACOUNT] AND L03,LOW,0,0);
LINEVALUE(L02=L02[DATACOUNT]-2 AND L03,LOW,L02=L02[DATACOUNT]-1 AND L03,LOW,0,0);
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
買訊:CROSS(CLOSE,SARN) COLORYELLOW;
賣訊:CROSS(SARN,CLOSE) COLORYELLOW;
交叉數:SUM(CROSS(CLOSE,SARN) OR CROSS(SARN,CLOSE),0) COLORYELLOW;
CK:買訊+賣訊 linethick0 coloryellow;

SS買:SUM( CLOSE>SARN , BARSLAST(CK<>0)+1) LINETHICK0 COLORYELLOW;
SS賣:SUM( CLOSE<SARN , BARSLAST(CK<>0)+1) LINETHICK0 COLORYELLOW;

反轉高值:IF( REFX(CK,1)=-1,HHVBARS(HIGH,SS買),0) linethick0 coloryellow;
反轉低值:IF( REFX(CK,1)=1,LLVBARS(LOW,SS賣),0) linethick0 coloryellow;
上次CK不為零的位置:BARSCOUNT(CK<>0) COLORYELLOW;
最後是買訊:BARSLAST(CLOSE<SARN)>=0 COLORYELLOW;
// 引用SAR: SAR值:='SAR.SARN';
// IF 今低 > SAR值 AND 反轉高<=今高 THEN BEGIN
// 反轉高:=今高;
// ELSE IF 今高 < SAR值 AND 反轉低>=今低 THEN BEGIN
// 反轉低:=今低;
// END ;
// IF SAR值今叉 今收盤 THEN BEGIN
// 交叉數=交叉數+1;
// IF 交叉數>2 AND 存有兩個以上的反轉低 THEN
// 畫出支撐線 並且 只保留兩條支撐線
// END;
// IF SAR值死叉 今收盤 THEN BEGIN
// 交叉數=交叉數+1;
// IF 交叉數>2 AND 存有兩個以上的反轉高 THEN
// 畫出壓力線 並且 只保留兩條壓力線
//一模一樣
//HHV(HIGH,30);
//相對的
//HHVBARS(HIGH,30);/ END;
//////////////////////////////////////////////////////////////
CSAR:SAR(NSAR,WSAR, PSAR),LINETHICK2;
DRAWICON(CSAR>=H,CSAR,11);
DRAWICON(CSAR<=L,CSAR,10);
TJ1:=BACKSET(SARTURN(NSAR,WSAR, PSAR)<>0,2);
TJ2:=REF(TJ1,1);
DRAWICON(TJ2,CSAR,12);

感謝BS兄指導!我再詳細研讀學習!再次感謝!
SAR是內建函數,依照我們給的参數去畫出拋物線!個人能力有限,不知以其他函數是否可畫出這樣的拋物線!
例如CROSS(MA(C,5),MA(C,20))條件成立時,以MA(C,5)為起點畫拋物線,諸如此類...!
所以也可以說:有無畫拋物線的源碼可學習?再次強調:個人對於程式與軟體認知淺薄,不知如此的想法是對或錯?如有謬誤CGJJ兄就當笑話一則即可!謝謝!

引用:

---

最初由 Markchu7 發表
感謝BS兄指導!我再詳細研讀學習!再次感謝!
SAR是內建函數,依照我們給的参數去畫出拋物線!個人能力有限,不知以其他函數是否可畫出這樣的拋物線!
例如CROSS(MA(C,5),MA(C,20))條件成立時,以MA(C,5)為起點畫拋物線,諸如此類...!
所以也可以說:有無畫拋物線的源碼可學習?再次強調:個人對於程式與軟體認知淺薄,不知如此的想法是對或錯?如有謬誤CGJJ兄就當笑話一則即可!謝謝!

---