################################################################################
#  FICHE DE MODELE SABER : ED:1 REV:0
#  AUTEUR:OCSIMIZE DATE:8/10/01
#
#  FICHIER elec_mks2f_oc.sin	: ind. a du 02/11/04
#  ETAT : valid
################################################################################

#==============================================================================#
element template elec_mks2f_oc  p m in out    =  k
#==============================================================================#

################################################################################
#   Copyright 2004 to infinity and beyond..., Ocsimize.
#   This template may not be reproduced or modified
#   without permission from Ocsimize. Ocsimize does not assume
#   liability for the use of this template or the results
#   obtained from using it as long as it is not validated by the final user.
#   Usage of this template is allowed for customers of Ocsimize's customers
################################################################################

################################################################################
#
# MODIFICATION
#
#  02/11/04: creation
################################################################################
#
# pins
#
################################################################################
# Name        Type        Signification
#
# in        hyd_mks         flow input
# out       hyd_mks         flow output
# p         electrical      current input
# m         electrical      current output
#
################################################################################
#
# Parameters definition
#
################################################################################
# Name        Default value   Signification
#
# k               1           constant multiplying factor
# 
################################################################################
#
# Postprocess information
#
################################################################################
# Name         Unit            Signification
#
# delp         N/m2 (Pa)       pressure difference
#
################################################################################

################################################################################
#
# This template takes an electrical voltage and convert it
# to a liquid flow
#
#
#               Use :
#
#                         -----------
#              (p)   O---|           |-----O (out) --> flow = k*[v(p) - v(m)]
#                        |           |
#              (m)   O---|           |-----O (in)  <--
#                        |           |
#                         -----------
#
################################################################################
# Notes :
################################################################################
#
# 
#
################################################################################


hyd_mks in, out
electrical p, m
number k=1

{

val q_m3ps q_mks
val p_Npm2 delp




values {
    delp = p_Npm2(out) - p_Npm2(in)
    q_mks = k*(v(p) - v(m))
}

#control_section {

#initial_condition(vd,101400)
#initial_condition(q_mks,0)

#}



equations {

    i(p) += 0
    i(m) -= 0
    q_m3ps(out) -= q_mks
    q_m3ps(in) += q_mks
}

}