source: trunk/xgraph/jpgraph/Examples/impulsex4.php @ 42

Last change on this file since 42 was 42, checked in by marrucho, 10 years ago
File size: 2.1 KB
Line 
1<?php // content="text/plain; charset=utf-8"
2require_once ('jpgraph/jpgraph.php');
3require_once ('jpgraph/jpgraph_scatter.php');
4require_once ('jpgraph/jpgraph_line.php');
5require_once ('jpgraph/jpgraph_plotline.php');
6
7$numpoints=50;
8$k=0.05;
9
10// Create some data points
11for($i=-$numpoints+1; $i<0; ++$i) {
12        $datay[$i+$numpoints-1]=exp($k*$i)*cos(2*M_PI/10*$i)*14;
13        $datayenv[$i+$numpoints-1]=exp($k*$i)*14;
14        $datax[$i+$numpoints-1]=$i;
15}
16
17for($i=0; $i<$numpoints; ++$i) {
18        $datay[$i+$numpoints-1]=exp(-$k*$i)*cos(2*M_PI/10*$i)*14;
19        $datayenv[$i+$numpoints-1]=exp(-$k*$i)*14;
20        $datax[$i+$numpoints-1]=$i;
21}
22
23// Setup the basic parameters for the graph
24$graph = new Graph(500,250);
25$graph->SetScale("intlin");
26
27$graph->SetShadow();
28$graph->SetBox();
29$graph->title->Set("Impuls Example 4");
30$graph->title->SetFont(FF_FONT1,FS_BOLD);
31
32// Set some other color then the boring default
33$graph->SetColor("lightyellow");
34$graph->SetMarginColor("khaki");
35
36// Set legend box specification
37$graph->legend->SetFillColor("white");
38$graph->legend->SetLineWeight(2);
39
40// Set X-axis at the minimum value of Y-axis (default will be at 0)
41$graph->xaxis->SetPos("min");   // "min" will position the x-axis at the minimum value of the Y-axis
42
43// Extend the margin for the labels on the Y-axis and reverse the direction
44// of the ticks on the Y-axis
45$graph->yaxis->SetLabelMargin(12);
46$graph->xaxis->SetLabelMargin(6);
47$graph->yaxis->SetTickSide(SIDE_LEFT);
48$graph->xaxis->SetTickSide(SIDE_DOWN);
49
50// Add mark graph with static lines
51$line = new PlotLine(HORIZONTAL,0,"black",2);
52$graph->AddLine($line);
53
54// Create a new impuls type scatter plot
55$sp1 = new ScatterPlot($datay,$datax);
56$sp1->mark->SetType(MARK_SQUARE);
57$sp1->mark->SetFillColor("red");
58$sp1->mark->SetWidth(3);
59
60$sp1->SetImpuls();
61$sp1->SetColor("blue");
62$sp1->SetWeight(1);
63$sp1->SetLegend("Non-causal signal");
64
65$graph->Add($sp1);
66
67// Create the envelope plot
68$ep1 = new LinePlot($datayenv,$datax);
69$ep1->SetStyle("dotted");
70$ep1->SetLegend("Positive envelope");
71
72$graph->Add($ep1);
73
74$graph->Stroke();
75
76?>
Note: See TracBrowser for help on using the repository browser.