커뮤니티
변환좀 부탁...
2010-12-23 22:19:19
612
글번호 34546
다음은 TS식의 일부인데, YS로 전환부탁드려요
(항상 고맙습니다)
1.
Input: DMILen(7), ADXLen(7), ADXExit(30), Trade(10000), Lot(100);
Vars: BuySetup(false), SellSetup(false), BuyPrice(0), SellPrice(0),
DPlus(0), DMin(0), ADXVal(0), ExitSprc(0), ExitPprc(0);
DPlus = DMIPlus(DMILen);
DMin = DMIMinus(DMILen);
ADXVal = ADX(ADXLen);
If DPlus > DMin AND ADXVal Crosses Over Dmin and MarketPosition < > i Theb begin
BuyPrice = High + 1 point;
BuySetup = true;
ExitPprc = Low -1 point;
End;
If ADXVa < Dmin Or MarketPosition=1 Then
Buysetup = False;
If Buysetup then
BuyNumUnits(Trade, Lot) Shares next bar at BuyPrice stop;
2.
Inputs: Price(Close), Length(9);
Variables:AvgVal(0), MA1(0), MA2(0), BuyFlag(False), SellFlag(False);
AvgVal = Average(Price, Length);
MA1 = (AvgVal - AvgVal[Length])/Length;
Condition1 = MA1 Crosses Below 0;
If Condition1 Then Buyflag = True;
답변 1
예스스탁 예스스탁 답변
2010-12-24 16:43:09
안녕하세요
예스스탁입니다.
1.
Input: DMILen(7), ADXLen(7), ADXExit(30), Trade(10000), Lot(100);
Vars: BuySetup(false), SellSetup(false), BuyPrice(0), SellPrice(0),
DPlus(0), DMin(0), ADXVal(0), ExitSprc(0), ExitPprc(0),NumUnits(0);
DPlus = DIPlus(DMILen);
DMin = DIMinus(DMILen);
ADXVal = ADX(ADXLen);
NumUnits = IntPortion( ( Trade / ( Close * BigPointValue ) ) / Lot );
If DPlus > DMin AND crossup(ADXVal,Dmin) and MarketPosition <> 1 Then begin
BuyPrice = High + 1;
BuySetup = true;
ExitPprc = Low -1;
End;
If ADXVal < Dmin Or MarketPosition==1 Then
Buysetup = False;
If Buysetup then
buy("b",AtStop,BuyPrice,NumUnits);
2.
Inputs: Price(Close), Length(9);
Variables:AvgVal(0), MA1(0), MA2(0), BuyFlag(False), SellFlag(False);
AvgVal = Average(Price, Length);
MA1 = (AvgVal - AvgVal[Length])/Length;
Condition1 = CrossDown(MA1,0);
If Condition1 Then Buyflag = True;
즐거운 하루되세요
> 룽퐈 님이 쓴 글입니다.
> 제목 : 변환좀 부탁...
> 다음은 TS식의 일부인데, YS로 전환부탁드려요
(항상 고맙습니다)
1.
Input: DMILen(7), ADXLen(7), ADXExit(30), Trade(10000), Lot(100);
Vars: BuySetup(false), SellSetup(false), BuyPrice(0), SellPrice(0),
DPlus(0), DMin(0), ADXVal(0), ExitSprc(0), ExitPprc(0);
DPlus = DMIPlus(DMILen);
DMin = DMIMinus(DMILen);
ADXVal = ADX(ADXLen);
If DPlus > DMin AND ADXVal Crosses Over Dmin and MarketPosition < > i Theb begin
BuyPrice = High + 1 point;
BuySetup = true;
ExitPprc = Low -1 point;
End;
If ADXVa < Dmin Or MarketPosition=1 Then
Buysetup = False;
If Buysetup then
BuyNumUnits(Trade, Lot) Shares next bar at BuyPrice stop;
2.
Inputs: Price(Close), Length(9);
Variables:AvgVal(0), MA1(0), MA2(0), BuyFlag(False), SellFlag(False);
AvgVal = Average(Price, Length);
MA1 = (AvgVal - AvgVal[Length])/Length;
Condition1 = MA1 Crosses Below 0;
If Condition1 Then Buyflag = True;