Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

ListPlot Problem

• To: mathgroup at smc.vnet.net
• Subject: [mg92901] ListPlot Problem
• From: "Youness Eaidgah" <y.eaidgah at gmail.com>
• Date: Fri, 17 Oct 2008 05:25:14 -0400 (EDT)
• References: <ffd067b30810140918h3f819bbaq260e7edcbc2c8ad1@mail.gmail.com>

Dear Masters,
I wrote the following simple program to make a ListPlot, but it dose not
work:

In[76]:= Clear[x, a, b, c, d]

In[65]:= a =
 N[Dynamic[
   Simplify[(8000*35 - 4000*(65 - x))*0.11 + (10000*35 -
        2000*(65 - x))*0.11 + (12000*100 -
        12000*65)*0.28 + (12000*100 - 12000*65)*0.22 + (12000*100 -
        12000*65)*0.18 + (12000*100 - 12000*65)*0.1]], 10]
In[66]:= b =
  Dynamic[Simplify[(8000*100 + 6000*x - 14000*65)*0.11 + (10000*100 +
        4000*x - 14000*65)*0.11 + (12000*100 + 2000*x -
        14000*65)*0.28 + (14000*100 - 14000*65)*0.22 + (14000*100 -
        14000*65)*0.18 + (14000*100 - 14000*65)*0.1]];

In[67]:= c =
  Dynamic[Simplify[(8000*100 + 8000*x - 16000*65)*0.11 + (10000*100 +
        6000*x - 16000*65)*0.11 + (12000*100 + 4000*x -
        16000*65)*0.28 + (14000*100 + 2000*x -
        16000*65)*0.22 + (16000*100 - 16000*65)*0.18 + (16000*100 -
        16000*65)*0.1]];

In[68]:= d = Dynamic[Simplify[
    (8000*100 + 10000*x - 18000*65)*0.11 + (10000*100 + 8000*x -
        18000*65)*0.11 + (12000*100 + 6000*x -
        18000*65)*0.28 + (14000*100 + 4000*x -
        18000*65)*0.22 + (16000*100 + 2000*x -
        18000*65)*0.18 + (18000*100 - 18000*65)*0.1]];

In[69]:= f = {{12000, a}, {14000, b}, {16000, c}, {18000, d}}

x= 10;

In[77]:= ListPlot[{f}]

and surprisingly i get no plot and also no error message, just a chart
without any point on it!! I have worked on it for a while, reading the list
plot options, but I am not able to get out of the mess. I would appreciate
if you could help me out.
Bests,
Jonas

• Follow-Ups:
  • Re: ListPlot Problem
    • From: huihua <huihua@wolfram.com>