.subckt Pulse1_12V + -
.param  Ua = 13.5
.param  Us = -150
.param  Ri = 10
.param  td = 2m
.param  tr = 1u
.param  t1 = 0.5
.param  t2  = 200m
.param  t3 = 50us
.param  t0 = 1m
R2 + - {Ri}
I1 - + EXP(0 {Us/Ri} {t0+t3} {tr/2.2} {t0+t3+(5*tr)} {td/2.305} {t1})
I2 - + PULSE({Ua/Ri} 0 {t0} 1u 1u {t2} {t1})
.ends Pulse1_12V