Hi there,

It is difficult to help. TwoAxisDateListPlot3 or TwoAxisPlot are not Mathematica functions, so they cannot evaluate unless you have defined them yourself earlier. If you have defined the functions earlier, it would help to get their definitions.

Cheers,

M.

You might want to have a look here:

http://library.wolfram.com/infocenter/MathSource/7507/

and

http://alice.stfc.ac.uk/files/Software/Mathematica/TwoAxisListPlot.m

Cheers,

Marco

Jos,

Here is a solution I made using the Presentations package ($50) which I sell through my web site.

<< Presentations`
list1 = FinancialData["GE", "Feb. 5, 2014"];
list2 = FinancialData["Gold", "March. 5, 2014"];

For plotting, I scale up the gold price by a factor of 4. (Is that actually the gold price?)

list1a = list1 /. {date : {__}, price_} :> {date, 4 price};

Then I make custom ticks for GE, Gold and also for the dates. With Presentations we can treat everything as a graphics primitive and just draw them, one after another, in one plot.. So the following draws the plot:

dateticks = 
  CustomDateTicks[{{2014, 2}, {2015, 2}, {4, "Month"}, 4}, 
   DateString[#, {"MonthNameShort", "  ", "Year"}] &];
goldticks = 
  CustomTicks[4 # &, {20, 30, 2, 2}, 
   CTNumberFunction -> (Style[#, ColorData["Legacy"]["Orange"]] &)];
geticks = 
  CustomTicks[Identity, {50, 90, 10, 4}, 
   CTNumberFunction -> (Style[#, Blue] &)];

Draw2D[
 {DateListDraw[list1a, PlotStyle -> Orange],
  DateListDraw[list2, PlotStyle -> Blue],
  Text["Gold", {3.609*^9, 95}],
  Text["GE", {3.618*^9, 73.34}]},
 AspectRatio -> 0.3,
 Frame -> True,
 FrameTicks -> {{goldticks, geticks}, {dateticks, 
    dateticks // NoTickLabels}},
 BaseStyle -> {FontSize -> 12},
 ImageSize -> 500]