loglogex1.php

    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
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59

    <?php // content="text/plain; charset=utf-8"
    require_once ("jpgraph/jpgraph.php");
    require_once ("jpgraph/jpgraph_log.php");
    require_once ("jpgraph/jpgraph_line.php");
    require_once ("jpgraph/jpgraph_scatter.php");

    $ab2  = array( 1.5,  2.0,  2.5,  3.0,  4.0,  5.0,  6.0,  8.0, 10.0,
                  12.0, 15.0, 20.0, 25.0, 30.0, 40.0, 50.0, 60.0 ,75.0,
                  100., 125., 150.);
    $mn2  = array( 0.5,  0.5,  0.5,  0.5,  0.8,  0.8,  0.8,  0.8,  1.0,
                   1.0,  1.0,  1.0,  1.0,  2.0,  2.0,  2.0,  2.0,  2.0,
                   5.0,  5.0,  5.0);
    $rhos = array(30.0, 31.0, 32.0, 34.0, 35.5, 37.5, 38.0, 39.5, 41.5,
                  43.0, 41.0, 42.0, 42.5, 45.0, 49.0, 53.5, 58.0, 66.5,
                  75.0, 81.0, 89.0);

    // Create the graph.
    $graph = new Graph(500,300);
    $graph->SetScale("loglog");
    $graph->SetY2Scale("lin");
    $graph->y2axis->SetColor("blue","blue");

    $graph->img->SetMargin(50,70,40,50);
    $graph->title->Set("Geoelektrik");
    $graph->xaxis->title->Set("Auslage ab/2 [m]");
    $graph->yaxis->title->Set("rho_s [Ohm m]");
    $graph->y2axis->title->Set("mn/2 [m]");
    $graph->y2axis->title->SetColor("blue");
    $graph->y2axis->SetTitleMargin(35);
    $graph->title->SetFont(FF_FONT1,FS_BOLD);
    $graph->xaxis->title->SetFont(FF_FONT1,FS_BOLD);
    $graph->yaxis->title->SetFont(FF_FONT1,FS_BOLD);
    $graph->xgrid->Show(true,true);
    $graph->ygrid->Show(true,true);

    // Create the linear plot

    $lineplot=new LinePlot($rhos,$ab2);
    $lineplot->SetWeight(1);
    $lineplot->mark->SetType(MARK_FILLEDCIRCLE);
    $lineplot->mark->SetWidth(2);

    // Create scatter plot

    $scplot=new ScatterPlot($mn2,$ab2);
    $scplot->mark->SetType(MARK_FILLEDCIRCLE);
    $scplot->mark->SetColor("blue");
    $scplot->mark->SetWidth(2);

    // Add plots to the graph

    $graph->AddY2($scplot);
    $graph->Add($lineplot);

    // Display the graph
    $graph->Stroke();

    ?>