residential/clotheswasher.cpp

Go to the documentation of this file.

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

#include "house.h"
#include "clotheswasher.h"

// clotheswasher CLASS FUNCTIONS
CLASS* clotheswasher::oclass = NULL;
clotheswasher *clotheswasher::defaults = NULL;

clotheswasher::clotheswasher(MODULE *module) 
{
    // first time init
    if (oclass==NULL)
    {
        // register the class definition
        oclass = gl_register_class(module,"clotheswasher",PC_BOTTOMUP);
        if (oclass==NULL)
            GL_THROW("unable to register object class implemented by %s",__FILE__);

        // publish the class properties
        if (gl_publish_variable(oclass,
            PT_double,"installed_power[W]",PADDR(installed_power),
            PT_double,"circuit_split",PADDR(circuit_split),
            PT_double,"demand[%]",PADDR(demand),
            PT_complex,"power[kW]",PADDR(power_kw),
            PT_double,"internal_heat",PADDR(internal_heat),
            PT_double,"heat_fraction",PADDR(heat_fraction),
            PT_complex,"meter[kWh]",PADDR(kwh_meter),
            NULL)<1) 
            GL_THROW("unable to publish properties in %s",__FILE__);

        // setup the default values
        defaults = this;
        
        // derived properties and other initial conditions
        demand = 0.0;
        internal_heat = 0.0;
        heat_fraction = 0.50;  //Assuming 50% of power is transformed to internal heat
        power_kw = 0.0;
        power_factor = 0.95;
        kwh_meter = 0.0;
    }
}

clotheswasher::~clotheswasher()
{
}

int clotheswasher::create() 
{
    // copy the defaults
    memcpy(this,defaults,sizeof(*this));

    // default properties
    installed_power = gl_random_uniform(500,750);       // clotheswasher size [W]
    return 1;
}

int clotheswasher::init(OBJECT *parent)
{
    if (parent==NULL)
    {
        gl_error("clotheswasher must have a parent house");
        return 0;
    }
    house *pHouse = OBJECTDATA(parent,house);

    // attach object to house panel
    pVoltage = (pHouse->attach(OBJECTHDR(this),20,false))->pV;

    // initial demand
    power_kw = installed_power * demand / 1000;

    return 1;
}

TIMESTAMP clotheswasher::sync(TIMESTAMP t0, TIMESTAMP t1) 
{
    // get demand fraction as an average per hour since the last synch time
    // a function  prototype will be 'get_average_demand(t0, t1)' which will be used to set 'demand' 
    // by default 'demand' is 1.0, now provided by the tape
//  demand = 1.0;

    if (t0 <= 0)
        return TS_NEVER;

    power_kw.SetPolar(installed_power * demand / 1000.0, acos(power_factor), J);
    double energy = power_kw.Mag() * (gl_tohours(t1)-gl_tohours(t0));
    internal_heat = heat_fraction * energy * BTUPHPKW;
    kwh_meter += energy;

    house *pHouse = OBJECTDATA((OBJECTHDR(this))->parent,house);
    pHouse->clotheswasher_heat_energy += internal_heat;
    pHouse->power_kw += power_kw;

    return TS_NEVER; 
}


// IMPLEMENTATION OF CORE LINKAGE

EXPORT int create_clotheswasher(OBJECT **obj, OBJECT *parent)
{
    *obj = gl_create_object(clotheswasher::oclass,sizeof(clotheswasher));
    if (*obj!=NULL)
    {
        clotheswasher *my = OBJECTDATA(*obj,clotheswasher);
        gl_set_parent(*obj,parent);
        my->create();
        return 1;
    }
    return 0;
}

EXPORT int init_clotheswasher(OBJECT *obj)
{
    clotheswasher *my = OBJECTDATA(obj,clotheswasher);
    return my->init(obj->parent);
}

EXPORT TIMESTAMP sync_clotheswasher(OBJECT *obj, TIMESTAMP t0)
{
    clotheswasher *my = OBJECTDATA(obj, clotheswasher);
    TIMESTAMP t1 = my->sync(obj->clock, t0);
    obj->clock = t0;
    return t1;
}

---

GridLAB-D^TM Version 1.0

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