proc set_filter(){
Vpfilter = 100//default
Imonfilter= 100//default
Vpfilter=$1
Imonfilter =$2

if(Imonfilter == 100){	a=5.42e-3	b=.188	c=.11	d=.011	e=8.58e-3	f=.114	g=.1	h=0.01}
if(Imonfilter == 30){	a=5.49e-3 b=.191 c=.36 d=.036 e=8.66e-3 f=.115 g=.33 h=0.033}	
if(Imonfilter == 28){	a=5.46e-3 b=.189 c=.39 d=.039 e=8.51e-3 f=.114 g=.36 h=0.036}
if(Imonfilter == 26){	a=5.34e-3 b=.185 c=.43 d=.043 e=8.46e-3 f=.113 g=.39 h=0.039}
if(Imonfilter == 24){	a=5.29e-3 b=.183 c=.47 d=.047 e=8.32e-3 f=.111 g=.43 h=0.043}	
if(Imonfilter == 22){	a=5.32e-3 b=.184 c=.51 d=.051 e=8.3e-3 f=.111 g=.47 h=0.047}
if(Imonfilter == 20){	a=5.33e-3 b=.185 c=.56 d=.056 e=8.41e-3 f=.112 g=.51 h=0.051}
if(Imonfilter == 18){	a=5.35e-3 b=.185 c=.62 d=.062 e=8.51e-3 f=.114 g=.56 h=0.056}
if(Imonfilter == 16){	a=5.48e-3 b=.19 c=.68 d=.068 e=8.65e-3 f=.115 g=.62 h=0.062}
if(Imonfilter == 14){	a=5.2e-3 b=.18 c=.82 d=.082 e=9.01e-3 f=.12 g=.68 h=0.068}
if(Imonfilter == 12){	a=5.46e-3 b=.189 c=.91 d=.091 e=8.72e-3 f=.116 g=.82 h=0.082}
if(Imonfilter == 10){	a=5.97e-3 b=.207 c=1 d=.1 e=8.58e-3 f=.114 g=1 h=.1}
if(Imonfilter == 8){	a=7.46e-3 b=.259 c=1 d=.1 e=.0107 f=.143 g=1 h=.1}
if(Imonfilter == 6){	a=9.94e-3 b=.345 c=1 d=.1 e=.0143 f=.191 g=1 h=.1}
if(Imonfilter == 4){	a=0.0149 b=.517 c=1 d=.1 e=0.0215 f=.286 g=1 h=.1}
if(Imonfilter == 3){	a=0.0199 b=.69 c=1 d=.1 e=0.0286 f=.381 g=1 h=.1}
if(Imonfilter == 2){	a=.0298 b=1.03 c=1 d=.1 e=.0429 f=.572 g=1 h=.1}
if(Imonfilter == 1){	a=.0542 b=1.88 c=1.1 d=.11 e=0.0858 f=1.14 g=1 h=.1}
if(Imonfilter == .5){	a=0.0542 b=1.88 c=2.2 d=.22.1 e=0.0858 f=1.14 g=2 h=.22}

	LinearCircuit[0].Rf_I_1a=a
	LinearCircuit[0].Rf_I_1b=b
	LinearCircuit[0].Cf_I_1a=c
	LinearCircuit[0].Cf_I_1b=d
	LinearCircuit[0].Rf_I_2a=e
	LinearCircuit[0].Rf_I_2b=f
	LinearCircuit[0].Cf_I_2a=g
	LinearCircuit[0].Cf_I_2b=h
	
	
	
if(Vpfilter == 100){	a=5.42e-3	b=.188	c=.11	d=.011	e=8.58e-3	f=.114	g=.1	h=0.01}
if(Vpfilter == 30){	a=5.49e-3 b=.191 c=.36 d=.036 e=8.66e-3 f=.115 g=.33 h=0.033}	
if(Vpfilter == 28){	a=5.46e-3 b=.189 c=.39 d=.039 e=8.51e-3 f=.114 g=.36 h=0.036}
if(Vpfilter == 26){	a=5.34e-3 b=.185 c=.43 d=.043 e=8.46e-3 f=.113 g=.39 h=0.039}
if(Vpfilter == 24){	a=5.29e-3 b=.183 c=.47 d=.047 e=8.32e-3 f=.111 g=.43 h=0.043}	
if(Vpfilter == 22){	a=5.32e-3 b=.184 c=.51 d=.051 e=8.3e-3 f=.111 g=.47 h=0.047}
if(Vpfilter == 20){	a=5.33e-3 b=.185 c=.56 d=.056 e=8.41e-3 f=.112 g=.51 h=0.051}
if(Vpfilter == 18){	a=5.35e-3 b=.185 c=.62 d=.062 e=8.51e-3 f=.114 g=.56 h=0.056}
if(Vpfilter == 16){	a=5.48e-3 b=.19 c=.68 d=.068 e=8.65e-3 f=.115 g=.62 h=0.062}
if(Vpfilter == 14){	a=5.2e-3 b=.18 c=.82 d=.082 e=9.01e-3 f=.12 g=.68 h=0.068}
if(Vpfilter == 12){	a=5.46e-3 b=.189 c=.91 d=.091 e=8.72e-3 f=.116 g=.82 h=0.082}
if(Vpfilter == 10){	a=5.97e-3 b=.207 c=1 d=.1 e=8.58e-3 f=.114 g=1 h=.1}
if(Vpfilter == 8){	a=7.46e-3 b=.259 c=1 d=.1 e=.0107 f=.143 g=1 h=.1}
if(Vpfilter == 6){	a=9.94e-3 b=.345 c=1 d=.1 e=.0143 f=.191 g=1 h=.1}
if(Vpfilter == 4){	a=0.0149 b=.517 c=1 d=.1 e=0.0215 f=.286 g=1 h=.1}
if(Vpfilter == 3){	a=0.0199 b=.69 c=1 d=.1 e=0.0286 f=.381 g=1 h=.1}
if(Vpfilter == 2){	a=.0298 b=1.03 c=1 d=.1 e=.0429 f=.572 g=1 h=.1}
if(Vpfilter == 1){	a=.0542 b=1.88 c=1.1 d=.11 e=0.0858 f=1.14 g=1 h=.1}
if(Vpfilter == .5){	a=0.0542 b=1.88 c=2.2 d=.22.1 e=0.0858 f=1.14 g=2 h=.22}	
	
	
	LinearCircuit[0].Rf_V_1a=a
	LinearCircuit[0].Rf_V_1b=b
	LinearCircuit[0].Cf_V_1a=c
	LinearCircuit[0].Cf_V_1b=d
	LinearCircuit[0].Rf_V_2a=e
	LinearCircuit[0].Rf_V_2b=f
	LinearCircuit[0].Cf_V_2a=g
	LinearCircuit[0].Cf_V_2b=h	
}