XProfan

Título de la ventana "Rechnen con Komplexen Pagar (en 2D-Vektorbasis)"
'Pre-Alpha Versión = (CR) Crashware 2013-01 by P. Pájaro carpintero, Wien
'Ohne jedwede Gewähr! Nutzung en alleinige Gefahr des Anwenders!
Font 2:Selección aleatoria:cls rnd(8^8):imprimir
set("decimals",18)
declarar a![1],b![1]'Komplex![] = real[=0]+j%*imaginär[=1]
a![]=cGET(0)
b![]=cGET(1)
imprimir " A   = ";:cPRINT(a![],3)
imprimir " B   = ";:cPRINT(b![],3)
'cPRINT(0,cGET(2))
waitinput
imprimir " cADD= ";:cPRINT(cADD(a![],b![]),3)
imprimir " cSUB= ";:cPRINT(cSUB(a![],b![]),3)
imprimir " cMUL= ";:cPRINT(cMUL(a![],b![]),3)
imprimir " cDIV= ";:cPRINT(cDIV(a![],b![]),3)
waitinput
End

proc cGET :parámetros v%:declarar xpl$[],k![1]

    ' "  1.22,-3.3   ,   4.4,2.66   , -10,5.5  ",",")
    ' "  10,10   ,   1,1   ,  -1,-1  ",",")
    ' "  10,10   ,   1,1   ,  -1,-1  ",",")
    ' "  10,10   ,   1,-1   ,  -1,-1  ",",")
    xpl$[]=explode(\
    "  10,10   ,   1.414,1.414   ,  -1,-1  ",",")
    k![0]=val(xpl$[2*v%]):k![1]=val(xpl$[2*v%+1])
    volver k![]

ENDPROC

proc cADD

    parámetros a![],b![]
    declarar k![1]
    'Komplexe Addition
    MAT k![]=a![]
    MAT k![]+b![]
    volver k![]

ENDPROC

proc cSUB

    parámetros a![],b![]
    'Komplexe Subtraktion
    declarar k![1]
    MAT k![]=a![]
    MAT k![]-b![]
    volver k![]

ENDPROC

proc cMUL

    parámetros a![],b![]
    declarar m![1]
    'Komplexe Multiplikation
    m![0]=a![0]*b![0]-a![1]*b![1]
    m![1]=a![0]*b![1]+a![1]*b![0]
    volver m![]

ENDPROC

proc cDIV

    parámetros a![],b![]
    declarar d![1],nenner!
    'Komplexe Division
    nenner!=b![0]*b![0]+b![1]*b![1]

    if nenner!<>0

        d![0]=(a![0]*b![0]+a![1]*b![1])/nenner!
        d![1]=(a![1]*b![0]-a![0]*b![1])/nenner!

    más

        imprimir " ###Division no posible!### ";
        d![0]=0
        d![1]=0

    endif

    volver d![]

ENDPROC

proc cKON

    parámetros k![]
    'Konjugiere
    k![1]= -1*k![1]
    volver k![]

ENDPROC

proc cPRINT :parámetros k![],v%

    imprimir cFORM(k![]);
    caso v%=0:imprimir " ";
    caso v%=1:imprimir "  \ ";
    caso v%=2:imprimir " "
    caso v%=3:imprimir " \n"
    caso v%=4:imprimir " \n\n"

ENDPROC

proc cFORM :parámetros k![]:declarar k$

    k$=format$(" #######0.00000;#######0.00000;    0    ",k![0])
    k$=k$+format$(" +j* #######0.00000; -j* #######0.00000;         ",k![1])
    volver k$

ENDPROC