Conversione dell’indicatore CAM dal software di trading Tradestation

• 02/08/2022 at 9:28 PM #187904
  guido1997

  Codice su Tradestation dell’indicatore CAM Indicator For Trends And Countertrends, pubblicato sul TASC di Gennaio del 2018 di Barbara Star.

  // TASC JAN 2018
  // The CAM Indicator
  // Barbara Star, PhD.

  inputs:
  ADXLength( 10 ),
  MACDFastLength( 12 ),
  MACDSlowLength( 26 ),
  CAMUPColor( Green ),
  CAMDNColor( Red ),
  CAMPBColor( Yellow ),
  CAMCTColor( Blue ) ;

  variables:
  MACDValue( 0 ),
  ADXValue( 0 ),
  PlotColor( 0 ),
  MACDRising( false ),
  ADXRising( false ),
  intrabarpersist InAChart( false ),
  PatternLabel( “” ) ;

  once
  begin
  InAChart = GetAppInfo( aiApplicationType ) = cChart ;
  end ;

  MACDValue = MACD( Close, MACDFastLength,
  MACDSlowLength ) ;
  ADXValue = ADX( ADXLength ) ;

  MACDRising = MACDValue > MACDValue[1] ;
  ADXRising = ADXValue > ADXValue[1] ;

  if ADXRising and MACDRising then
  begin
  PlotColor = CAMUPColor ;
  PatternLabel = “CAM UP” ;
  end
  else if not ADXRising and not MACDRising then
  begin
  PlotColor = CAMPBColor ;
  PatternLabel = “CAM PB” ;
  end
  else if ADXRising and not MACDRising then
  begin
  PlotColor = CAMDNColor ;
  PatternLabel = “CAM DN” ;
  end
  else if not ADXRising and MACDRising then
  begin
  PlotColor = CAMCTColor ;
  PatternLabel = “CAM CT” ;
  End ;

  // Format plot style as follows:
  // Plot1 Bar High
  // Plot2 Bar Low
  // Plot3 Left Tic
  // Plot4 Right Tic
  Plot1( High, “CAMH”, PlotColor ) ;
  Plot2( Low, “CAML”, PlotColor ) ;
  Plot3( Open, “CAMO”, PlotColor ) ;
  Plot4( Close, “CAMC”, PlotColor ) ;

  // Show current state in RadarScreen
  If not InAChart then
  Plot5( PatternLabel, “CAM”, PlotColor )

  

  guido1997

  Participant

  Topics: 6

  Replies: 1

  Been thanked: 0 times
  02/15/2022 at 9:56 AM #188271
  Nicolas

  Ecco il codice tradotto per l'indicatore CAM:

  ADXLength=10 MACDFastLength=12 MACDSlowLength=26 //CAMUPColor( Green ), //CAMDNColor( Red ), //CAMPBColor( Yellow ), //CAMCTColor( Blue ) ; // MACDValue = MACD[MACDFastLength,MACDSlowLength,9](close) ADXValue = ADX[ADXLength] MACDRising = MACDValue > MACDValue[1] ADXRising = ADXValue > ADXValue[1] if ADXRising and MACDRising then drawcandle(open,high,low,close) coloured("green") elsif not ADXRising and not MACDRising then drawcandle(open,high,low,close) coloured("yellow") elsif ADXRising and not MACDRising then drawcandle(open,high,low,close) coloured("red") elsif not ADXRising and MACDRising then drawcandle(open,high,low,close) coloured("blue") endif return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

  ADXLength=10 MACDFastLength=12 MACDSlowLength=26   //CAMUPColor( Green ), //CAMDNColor( Red ), //CAMPBColor( Yellow ), //CAMCTColor( Blue ) ; // MACDValue = MACD[MACDFastLength,MACDSlowLength,9](close) ADXValue = ADX[ADXLength]   MACDRising = MACDValue > MACDValue[1] ADXRising = ADXValue > ADXValue[1]   if ADXRising and MACDRising then drawcandle(open,high,low,close) coloured("green") elsif not ADXRising and not MACDRising then drawcandle(open,high,low,close) coloured("yellow") elsif ADXRising and not MACDRising then drawcandle(open,high,low,close) coloured("red") elsif not ADXRising and MACDRising then drawcandle(open,high,low,close) coloured("blue") endif   return

  1 user thanked author for this post.

  guido1997

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4739 times
• Author
  Posts