開倉后為何還會重復開倉？　[開拓者 TB]

Params
?? ?Numeric AfStep( 0.02);
?? ?Numeric AfLimit( 0.2 ) ;
? ? Numeric timeExit(0.1455);
? ? Numeric timeInto(0.0900);
? ? Numeric a(0.006);
? ? Numeric initcapital(100); ? ?//單位：萬
? ? Numeric moneyrate(80); ? ? ? ? //資金使用比例：單位% ? ?
? ? Numeric money(100); ? ? ? ? ? ? //固定市值開倉：單位萬?
Vars
?? ?Numeric oParCl( 0 );?
?? ?Numeric oParOp( 0 );
?? ?Numeric oPosition( 0 );
?? ?Numeric oTransition( 0 );
?? ?Series<Numeric> sar1( 0 );
?? ?Series<Numeric> ParCl( 0 );
?? ?Series<Numeric> CC( 0 );

? ? Numeric lots(0); ? ? ? ?//下單手數 ??

Events
? ? OnInit()
? ? {
? ? ? ? SetInitCapital(initcapital*10000); ? ?//設定初始資金
? ? ? ? SetMarginRate(0.1); ? ? ? ? ? ? ? ? ? ?//設定保證金比例
? ? ? ? SetBeginBarMaxCount(1);
? ? ? ??? ?SubscribeBar("rb2110.SHFE","3m",20210501); ?? ?
? ? }
?? ?OnBar(ArrayRef<Integer> indexs)
?? ?{
?? ??? ?Range[0:DataSourceSize() - 1]
?? ??? ?{
?? ??? ??? ?data1.ParabolicSAR( AfStep, AfLimit, oParCl, oParOp, oPosition, oTransition ) ;
?? ??? ??? ?PlotNumeric( "ParCl" , data1.oParCl) ;
? ? ? ? ? ? ParCl = data1.oParCl;
?? ??? ??? ?sar1 = data1.ParCl[1];
?? ? ? ? ? ?CC = data1.Close[1];
?? ??? ? ?? ? lots=IntPart(A_CurrentEquity*0.7/(myprice*contractunit*BigPointValue*0.1)); //計算開倉手數
?? ??? ??? ?If(A_FreeMargin == A_CurrentEquity)
?? ? ? ??? ?{

?? ??? ??? ? If( CC > sar1 ?And Time < timeExit And Time >= timeInto)?? ??? ??? ??? ??? ?
?? ??? ??? ? ?{
?? ??? ??? ??? ? A_SendOrder(Enum_Buy,Enum_Entry,lots,MIN(Close*1.01,Q_AskPrice));
?? ??? ??? ? ?}

?? ??? ? ? ?}
?? ??? ? ? ?If(A_TotalPosition == 1)
?? ? ? ??? ?{
?? ??? ??? ? If(CC < sar1 || Time > timeExit)?? ??? ??? ?
?? ??? ??? ? ?{
?? ??? ??? ??? ? A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition(),MAX(Close*0.99,Q_BidPrice));
?? ??? ??? ? ?}
?? ??? ? ? ?}

?? ??? ? ? ?}
?? ??? ? ? ?
?? ??? ?}

<!--StartFragment -->

<!--StartFragment -->

?

?來源:CXH99.COM

重復發帖 建議你刪掉

?