奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- 冰河兄請進 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=6288)

冰河兄請進

麻煩冰河兄將舊制股價升降單位,更改為新制股價升降單位
新制股價升降單位
最低股價 最高股價
0.01元 以下 10元
0.05元 10元 50元
0.10元 50元 100元
0.50元 100元 500元
1.00元 500元 1000元
5.00元 1000元 以上

指標原著:冰河
漲停板價線 >和< 跌停板價線

公式名稱：PPP20


XX:=REF( Close , 1 ) , Linethick0 ;

YY:=XX * 1.07 ;


AA1:=( YY - XX ) / 0.01 ;

AA2:=IntPart( AA1 ) ;

AA3:=XX + AA2 * 0.01 ;


AA4:=XX + AA2 * 0.01 - 5 ;

AA5:=AA4 / 0.05 ;

AA6:=IntPart( AA5 ) ;

AA7:=AA6 * 0.05 + 5 ;


AA8:=IF( XX<=4.68 , AA3 , 0 ) ;

AA9:=IF( XX>4.68 and XX<=4.99 , AA7 , 0 ) ;

AA:=AA8 + AA9 ;


BB1:=( YY - XX ) / 0.05 ;

BB2:=IntPart( BB1 ) ;

BB3:=XX + BB2 * 0.05 ;


BB4:=XX + BB2 * 0.05 - 15 ;

BB5:=BB4 / 0.1 ;

BB6:=IntPart( BB5 ) ;

BB7:=BB6 * 0.1 + 15 ;


BB8:=IF( XX>4.99 and XX<=14.05 , BB3 , 0 ) ;

BB9:=IF( XX>14.05 and XX<=14.95 , BB7 , 0 ) ;

BB:=BB8 + BB9 ;


CC1:=( YY - XX ) / 0.1 ;

CC2:=IntPart( CC1 ) ;

CC3:=XX + CC2 * 0.1 ;


CC4:=XX + CC2 * 0.1 - 50 ;

CC5:=CC4 / 0.5 ;

CC6:=IntPart( CC5 ) ;

CC7:=CC6 * 0.5 + 50 ;


CC8:=IF( XX>14.95 and XX<=46.8 , CC3 , 0 ) ;

CC9:=IF( XX>46.8 and XX<=49.9 , CC7 , 0 ) ;

CC:=CC8 + CC9 ;


DD1:=( YY - XX ) / 0.5 ;

DD2:=IntPart( DD1 ) ;

DD3:=XX + DD2 * 0.5 ;


DD4:=XX + DD2 * 0.5 - 150 ;

DD5:=DD4 / 1 ;

DD6:=IntPart( DD5 ) ;

DD7:=DD6 * 1 + 150 ;


DD8:=IF( XX>49.9 and XX<=140.5 , DD3 , 0 ) ;

DD9:=IF( XX>140.5 and XX<=149.5 , DD7 , 0 ) ;

DD:=DD8 + DD9 ;


EE1:=( YY - XX ) / 1 ;

EE2:=IntPart( EE1 ) ;

EE3:=XX + EE2 * 1 ;


EE:=IF( XX>149.5 , EE3 , 0 ) ;


昨收:XX , Linethick0 ;

FF:AA + BB + CC+ DD + EE ;

--------------------------------------------------------------------

公式名稱：YYY

AA:=CLOSE ;

BB:"PPP20.FF" ;

CC:=( AA - BB );

DD1:=IF( CC > - 1 and BB>=150 , 1 , 0 ) ;

DD2:=IF( CC > - 0.5 and BB>=50 and BB<150 , 1 , 0 ) ;

DD3:=IF( CC > - 0.1 and BB>=15 and BB<50 , 1 , 0 ) ;

DD4:=IF( CC > - 0.05 and BB>=5 and BB<15 , 1 , 0 ) ;

DD5:=IF( CC > - 0.01 and BB<5 , 1 , 0 ) ;

DD:DD1 + DD2 + DD3 + DD4 + DD5 , Linethick0;

舊制升降單位

a. 股價區間( 0 , 5 )股價之升降單位：0.01元。

b. 股價區間( 5 , 15 )股價之升降單位：0.05元。

c. 股價區間( 15 , 50 )股價之升降單位：0.1元。

d. 股價區間( 50 , 150 )股價之升降單位：0.5元。

e. 股價區間( 150 以上 )股價之升降單位：1元。


下面也是用舊制來改編一下，看起來比較易懂 易改。

XX:=REF( Close , 1 ) , Linethick0 ; // 可先用幾個關鍵常數例如 XX:=9.34 ; 代進去測

YY:=XX * 1.07 ;

/////////////////////////////////////////
AA1:=( YY - XX ) / 0.01 ;

AA2:=IntPart( AA1 ) ;

AA3:=XX + AA2 * 0.01 ;

/////
AA4:=XX + AA2 * 0.01 - 5 ;

AA5:=AA4 / 0.05 ;

AA6:=IntPart( AA5 ) ;

AA7:=AA6 * 0.05 + 5 ;

/////////////////////////////////////////

BB1:=( YY - XX ) / 0.05 ;

BB2:=IntPart( BB1 ) ;

BB3:=XX + BB2 * 0.05 ;

/////
BB4:=XX + BB2 * 0.05 - 15 ;

BB5:=BB4 / 0.1 ;

BB6:=IntPart( BB5 ) ;

BB7:=BB6 * 0.1 + 15 ;

/////////////////////////////////////////

CC1:=( YY - XX ) / 0.1 ;

CC2:=IntPart( CC1 ) ;

CC3:=XX + CC2 * 0.1 ;

/////
CC4:=XX + CC2 * 0.1 - 50 ;

CC5:=CC4 / 0.5 ;

CC6:=IntPart( CC5 ) ;

CC7:=CC6 * 0.5 + 50 ;

/////////////////////////////////////////

DD1:=( YY - XX ) / 0.5 ;

DD2:=IntPart( DD1 ) ;

DD3:=XX + DD2 * 0.5 ;

/////
DD4:=XX + DD2 * 0.5 - 150 ;

DD5:=DD4 / 1 ;

DD6:=IntPart( DD5 ) ;

DD7:=DD6 * 1 + 150 ;

/////////////////////////////////////////

EE1:=( YY - XX ) / 1 ;

EE2:=IntPart( EE1 ) ;

EE3:=XX + EE2 * 1 ;

/////////////////////////////////////////

昨收:XX , Linethick0 ;

FF:IF(XX<=4.68 , AA3 ,
　IF(XX>4.68 and XX<=4.99 , AA7 ,

　IF(XX>4.99 and XX<=14.05 , BB3 ,
　IF(XX>14.05 and XX<=14.95 , BB7 ,

　IF(XX>14.95 and XX<=46.8 , CC3 ,
　IF(XX>46.8 and XX<=49.9 , CC7 ,

　IF(XX>49.9 and XX<=140.5 , DD3 ,
　IF(XX>140.5 and XX<=149.5 , DD7 ,

　IF(XX>149.5 , EE3 , 0 )))))))));



藍字部份是修改關鍵，先決定區間

感謝冰河兄