XProfan

Italia

HofK

Es wird ein Punkt mit x zwischen 0 und Pi/2 und y zwischen 0 und 1 - hier (0.5, 0.75) - angegeben. Daraus werden zwei Geradenabschnitte bestimmt. Nun wird durch entsprechende Zuordnung aus diesem Teilstück die periodische Funktion gebastelt.

XProfan 11

Kompilieren Markieren Separieren

// Periodische Funktion erzeugen
Var px! = 0.5
Var py! = 0.75
//-------------
Window 0,0 - 1800,1000
Var x! = 0
Var y! = 0
Var m! = 0
Var pi2! = Pi() / 2
UsePen 0, 2, RGB(200,0,0)
x! = -1.57
MoveTo 400 + x! * 200 , 500 + 200

WhileLoop 0, 784

    x! = x! + 0.01
    y! = sinlike(x!)
    LineTo 400 + x! * 200 , 500 - y! * 200

EndWhile

UsePen 0, 2, RGB(0,200,0)
x! = -1.57
MoveTo 400 + x! * 200 , 500

WhileLoop 0, 784

    x! = x! + 0.01
    y! = coslike(x!)
    LineTo 400 + x! * 200 , 500 - y! * 200

EndWhile

UsePen 0, 1, RGB(0,0,0)
x! = -1.57
MoveTo 400 + x! * 200 , 500 + 200

WhileLoop 0, 784

    x! = x! + 0.01
    y! = sin(x!)
    LineTo 400 + x! * 200 , 500 - y! * 200

EndWhile

UsePen 0, 1, RGB(0,200,200)
x! = -1.57
MoveTo 400 + x! * 200 , 500

WhileLoop 0, 784

    x! = x! + 0.01
    y! = cos(x!)
    LineTo 400 + x! * 200 , 500 - y! * 200

EndWhile

UsePen 0, 1, RGB(0,0,200)
Line 100, 500, 1700, 500
Line 400,  50,  400, 900
waitinput

Proc k1

    Parameters x!
    m! = ( 1 - py! ) / ( pi2! - px! )

    if x! <= px!

        return  py! / px! * x!;

    endif

    if x! > px!

        return   m! * x! + 1 - pi2! * m!

    endif

EndProc

Proc sinlike

    Parameters x!

    if ( x! < 0 )

        return -k1( -x! )

    endif

    if ( x! >= 0 ) AND ( x! <= pi2!)

        return k1( x! );

    endif

    if ( x! > pi2! ) AND ( x! <= Pi() )

        return k1( Pi()  - x! );

    endif

    if ( x! > Pi() ) AND ( x! <= 3 * pi2! )

        return -k1( x! - Pi() );

    endif

    if ( x! > 3 * pi2! ) AND ( x! <= 2 * Pi() )

        return -k1( 2 * Pi() - x! );

    endif

    if ( x! > 2 * Pi() ) AND ( x! <= 5 * pi2!)

        return  k1( x! - 2 * Pi()  );

    endif

EndProc

Proc coslike

    Parameters x!
    return sinlike( x! + pi2! );

EndProc