C_fPump(solaR)
C_fPump()所属R语言包:solaR
Performance of a centrifugal pump
离心式泵的性能
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Compute the performance of the different parts of a centrifugal pump fed by a frequency converter following the affinity laws.
计算由频率转换器之后的亲和性法律供给的离心泵的不同部分的性能。
用法----------Usage----------
fPump(pump, H)
参数----------Arguments----------
参数:pump
list containing the parameters of the pump to be simulated. It may be a row of pumpCoef.
list包含的参数的泵,将被仿真的。它可以是一个行pumpCoef。
参数:H
Total manometric head (m).
总测压扬程(m)。
值----------Value----------
参数:lim
Range of values of electrical power input
电功率输入的值范围
参数:fQ
Function constructed with splinefun relating flow and electrical power
功能构建splinefun的有关流动和电力
参数:fPb
Function constructed with splinefun relating pump shaft power and electrical power of the motor
功能构建splinefun有关泵的轴功率和电功率的电机
参数:fPh
Function constructed with splinefun relating hydraulical power and electrical power of the motor
功能构建splinefun的有关hydraulical功率和电功率的电机
参数:fFreq
Function constructed with splinefun relating frequency and electrical power of the motor
功能构建splinefun的有关的频率和电功率的电机
(作者)----------Author(s)----------
Oscar Perpi帽谩n Lamigueiro.
参考文献----------References----------
参见----------See Also----------
NmgPVPS, prodPVPS, pumpCoef, splinefun.
NmgPVPS,prodPVPS,pumpCoef,splinefun。
实例----------Examples----------
library(latticeExtra)
data(pumpCoef)
CoefSP8A44<-subset(pumpCoef, Qn==8&stages==44)
fSP8A44<-fPump(pump=CoefSP8A44,H=40)
SP8A44=with(fSP8A44,{
Pac=seq(lim[1],lim[2],by=100)
Pb=fPb(Pac)
etam=Pb/Pac
Ph=fPh(Pac)
etab=Ph/Pb
f=fFreq(Pac)
Q=fQ(Pac)
result=data.frame(Q,Pac,Pb,Ph,etam,etab,f)})
#Efficiency of the motor, pump and the motor-pump[的电动机,泵和马达 - 泵的效率的]
SP8A44$etamb=with(SP8A44,etab*etam)
lab=c(expression(eta[motor]), expression(eta[pump]), expression(eta[mp]))
p<-xyplot(etam+etab+etamb~Pac,data=SP8A44,type='l', ylab='Efficiency')
p+glayer(panel.text(x[1], y[1], lab[group.number], pos=3))
#Mechanical, hydraulic and electrical power[机械,液压和电力]
lab=c(expression(P[pump]), expression(P[hyd]))
p<-xyplot(Pb+Ph~Pac,data=SP8A44,type='l', ylab='Power (W)', xlab='AC Power (W)')
p+glayer(panel.text(x[length(x)], y[length(x)], lab[group.number], pos=3))
#Flow and electrical power[流量和电力]
xyplot(Q~Pac,data=SP8A44,type='l')
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|