powerflow/powerflow.cpp

Go to the documentation of this file.

#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <math.h>

#include "powerflow.h"
#include "node.h"
#include "link.h"

extern "C" {
#include "output.h"
}

void print_matrix(complex mat[3][3])
{
    for (int i = 0; i < 3; i++) {
        gl_testmsg("  %10.6f%+0.6f%c  %10.6f%+0.6f%c  %10.6f%+0.6f%c",
            mat[i][0].Re(), mat[i][0].Im(), mat[i][0].Notation(),
            mat[i][1].Re(), mat[i][1].Im(), mat[i][1].Notation(),
            mat[i][2].Re(), mat[i][2].Im(), mat[i][2].Notation());
    }
    gl_testmsg("\n");
}

EXPORT int kmldump(FILE *fp, OBJECT *obj)
{

    if (obj==NULL) /* dump document styles */
    {
        /* line styles */
        fprintf(fp, "<Style id=\"overhead_line\">\n"
                    " <LineStyle>\n"
                    "  <color>7f00ffff</color>\n"
                    "  <width>4</width>\n"
                    " </LineStyle>\n"
                    " <PolyStyle>\n"
                    "  <color>7f00ff00</color>\n"
                    " </PolyStyle>\n"
                    "</Style>\n");
        fprintf(fp, "<Style id=\"underground_line\">\n"
                    " <LineStyle>\n"
                    "  <color>3f00ffff</color>\n"
                    "  <width>4</width>\n"
                    " </LineStyle>\n"
                    " <PolyStyle>\n"
                    "  <color>3f00ff00</color>\n"
                    " </PolyStyle>\n"
                    "</Style>\n");
        return 0;
    }
    else if (gl_object_isa(obj,"node"))
        return OBJECTDATA(obj,node)->kmldump(fp);
    else if (gl_object_isa(obj,"link"))
        return OBJECTDATA(obj,link)->kmldump(fp);
    else
        return 0; 
}

---

GridLAB-D^TM Version 2.0

An open-source project initiated by the US Department of Energy