Function ERF(X:real):real; begin If X < 0 Then ERF:=-GAMMP(0.5, sqr(X)) Else ERF:=GAMMP(0.5, sqr(X)); end;
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机
