* SPICE netlist
S_Ch N003 N002 Ch_On 0 SW
B_Res N003 T2 V=I(B_Res)*V(R_Ch)
B_Ind T1 N002 I=V(Int_V_L)/V(L_Ch)
C_Gap T2 T1 {C}
B_Ch_On N001 0 V=V(Delay_Over)|V(Maintain)
B_Maint Maintain 0 V=V(I_Ch)>V(I_Min)
B_I_Min I_Min 0 V=0.05m
B_Dly_Ovr Delay_Over 0 V=V(T_Over)>V(delay)
B_Dly Delay 0 V=limit(1e-12, 1e-5, TH_Martin(V(E_Gap), V(Rho_V)))
B_T_Ovr T_Over 0 V+time-V(T_B)
B_Time Time 0 V=time
B_!Ovr N005 0 V=inv(V(Over))
B_Ovr Over 0 V=if((V(V_Gap)>V(V_Break)),tanh((V(V_Gap)-V(V_Break))),0)
B_I_Ch I_Ch 0 V=abs(I(B_Res))
B_E_Gap E_Gap 0 V=V(V_Gp)/{D}
B_V_Gap V_Gap 0 V=abs(V(T1,T2))
B_V_Brk V_Break 0 V=Uniform_Air({D},{P})
B_Rho Rho_V 0 V=({P}/760)*1.2
C1 Ch_On 0 10p
R1 Ch_On N001 10
S2 Time T_B N005 0 SW
C2 T_B 0 100p
B_L_Ch L_Ch 0 V=limit(1,100,wire_Ind({D},V(Ch_Rad)))
B_R_Ch R_Ch 0 V=limit(1E-3,1e1,vlastos({D},V(Ch_Rad),V(I_Ch),V(Ch_On)))
B_Ch_Rad N004 0 V=Braginshii(V(I_Ch),V(T_arc),V(Rho_V))
B_T_Arc T_arc 0 V=time-V(T_C)
B_!On N006 0 V=inv(V(Ch_On))
B_V_Ind 0 Int_V_L I=V(T1,A)
C3 T_C 0 100p
S1 Time T_C N006 0 SW
R3 Ch_Rad 0 1000
C4 Ch_Rad 0 10n
C5 Int_V_L 0 1n
D1 N004 Ch_Rad D
.tran 5

* LTspice schematic (.asc)
Version 4
SHEET 1 1424 2608
WIRE 296 -1288 232 -1288
WIRE 408 -1288 376 -1288
WIRE 664 -1288 488 -1288
WIRE -456 -1240 -616 -1240
WIRE -248 -1240 -392 -1240
WIRE 488 -1240 488 -1288
WIRE -440 -1176 -456 -1176
WIRE -360 -1176 -408 -1176
WIRE 232 -1176 232 -1288
WIRE 488 -1176 232 -1176
WIRE -440 -1160 -440 -1176
WIRE -440 -1160 -456 -1160
WIRE -360 -1160 -360 -1176
WIRE -456 -1144 -456 -1160
WIRE -408 -1144 -408 -1176
WIRE -616 -1096 -616 -1240
WIRE -616 -1096 -680 -1096
WIRE -584 -1096 -616 -1096
WIRE -472 -1096 -504 -1096
WIRE -360 -1096 -392 -1096
WIRE -248 -1096 -248 -1240
WIRE -248 -1096 -280 -1096
WIRE -200 -1096 -248 -1096
WIRE 232 -1080 232 -1176
WIRE 296 -1080 232 -1080
WIRE 664 -1080 376 -1080
WIRE -680 -1064 -680 -1096
WIRE 232 -888 232 -1080
WIRE 296 -888 232 -888
WIRE 664 -888 376 -888
WIRE 232 -712 232 -888
WIRE 296 -712 232 -712
WIRE 712 -712 376 -712
WIRE -232 -632 -568 -632
WIRE -648 -616 -712 -616
WIRE -568 -616 -568 -632
WIRE 232 -536 232 -712
WIRE 296 -536 232 -536
WIRE 376 -536 360 -536
WIRE 664 -536 376 -536
WIRE -712 -472 -712 -616
WIRE -648 -472 -712 -472
WIRE -424 -472 -568 -472
WIRE 232 -376 232 -536
WIRE 296 -376 232 -376
WIRE 664 -376 376 -376
WIRE -232 -360 -264 -360
WIRE -712 -344 -712 -472
WIRE -648 -344 -712 -344
WIRE -424 -344 -424 -472
WIRE -424 -344 -584 -344
WIRE -264 -344 -264 -360
WIRE -264 -344 -424 -344
WIRE -712 -216 -712 -344
WIRE -648 -216 -712 -216
WIRE -504 -216 -568 -216
WIRE -504 -200 -504 -216
WIRE -232 -200 -504 -200
WIRE 232 -184 232 -376
WIRE 296 -184 232 -184
WIRE 584 -184 376 -184
WIRE 664 -184 584 -184
WIRE 584 -104 584 -184
WIRE 232 -88 232 -184
WIRE 536 -88 232 -88
WIRE -712 -56 -712 -216
WIRE -648 -56 -712 -56
WIRE -472 -56 -568 -56
WIRE -472 -24 -472 -56
WIRE 232 -8 232 -88
WIRE 296 -8 232 -8
WIRE 536 -8 536 -40
WIRE 536 -8 376 -8
WIRE 584 -8 584 -24
WIRE 664 -8 584 -8
WIRE -712 56 -712 -56
WIRE -568 56 -712 56
WIRE -472 56 -472 40
WIRE -472 56 -504 56
WIRE 232 88 232 -8
WIRE 424 88 232 88
WIRE 584 88 584 -8
WIRE 584 88 488 88
WIRE -712 152 -712 56
WIRE -648 152 -712 152
WIRE -472 152 -472 56
WIRE -472 152 -568 152
WIRE -232 152 -472 152
WIRE 232 168 232 88
WIRE 296 168 232 168
WIRE 664 168 376 168
WIRE -712 328 -712 152
WIRE -648 328 -712 328
WIRE -232 328 -568 328
WIRE 232 360 232 168
WIRE 296 360 232 360
WIRE 664 360 376 360
WIRE -712 472 -712 328
WIRE -648 472 -712 472
WIRE -552 472 -568 472
WIRE -232 488 -408 488
WIRE -408 520 -408 488
WIRE -712 536 -712 472
WIRE -456 536 -712 536
WIRE -552 584 -552 472
WIRE -456 584 -552 584
WIRE 232 584 232 360
WIRE 312 584 232 584
WIRE 664 584 392 584
WIRE -712 664 -712 536
WIRE -648 664 -712 664
WIRE -408 664 -408 600
WIRE -408 664 -584 664
WIRE -408 680 -408 664
WIRE -232 680 -408 680
WIRE -712 744 -712 664
WIRE 232 776 232 584
WIRE 312 776 232 776
WIRE 664 776 392 776
WIRE 232 984 232 776
WIRE 312 984 232 984
WIRE 664 984 392 984
WIRE 232 1192 232 984
WIRE 312 1192 232 1192
WIRE 664 1192 392 1192
WIRE 232 1304 232 1192
FLAG -456 -1176 Ch_On
IOPIN -640 -352 In
FLAG -360 -1160 0
FLAG -680 -1064 T1
IOPIN -864 -240 BiDir
FLAG -200 -1096 T2
IOPIN -384 -272 BiDir
FLAG 232 1304 0
FLAG 664 -1288 Ch_On
IOPIN 480 -464 Out
FLAG 664 -1080 Maintain
IOPIN 480 -256 Out
FLAG 664 -888 I_Min
IOPIN 480 -64 Out
FLAG 712 -712 Delay_Over
IOPIN 528 112 Out
FLAG 664 -536 Delay
IOPIN 480 288 Out
FLAG 664 -376 T_Over
IOPIN 480 448 Out
FLAG 664 -184 Time
IOPIN 480 640 Out
FLAG 664 -8 T_B
IOPIN 480 816 Out
FLAG 664 168 Over
IOPIN 480 992 Out
FLAG 664 360 I_Ch
IOPIN 480 1184 Out
FLAG 664 584 E_Gap
IOPIN 480 1408 Out
FLAG 664 776 V_Gap
IOPIN 480 1600 Out
FLAG 664 984 V_Break
IOPIN 480 1808 Out
FLAG 664 1192 Rho_V
IOPIN 480 2016 Out
FLAG -712 744 0
FLAG -232 488 Time
IOPIN -416 1312 Out
FLAG -232 680 T_C
IOPIN -416 1504 Out
FLAG -232 328 T_arc
IOPIN -416 1152 Out
FLAG -232 152 Ch_Rad
IOPIN -416 976 Out
FLAG -232 -200 R_Ch
IOPIN -416 624 Out
FLAG -232 -360 Int_V_L
IOPIN -416 464 Out
FLAG -232 -632 L_Ch
IOPIN -416 192 Out
SYMBOL sw -376 -1096 R90
SYMATTR InstName S_Ch
SYMBOL bv -376 -1096 R270
SYMATTR InstName B_Res
SYMATTR Value V=I(B_Res)*V(R_Ch)
SYMBOL bi -584 -1096 R270
SYMATTR InstName B_Ind
SYMATTR Value I=V(Int_V_L)/V(L_Ch)
SYMBOL cap -392 -1256 R90
SYMATTR InstName C_Gap
SYMATTR Value {C}
SYMBOL bv 392 -1288 R90
SYMATTR InstName B_Ch_On
SYMATTR Value V=V(Delay_Over)|V(Maintain)
SYMBOL bv 392 -1080 R90
SYMATTR InstName B_Maint
SYMATTR Value V=V(I_Ch)>V(I_Min)
SYMBOL bv 392 -888 R90
SYMATTR InstName B_I_Min
SYMATTR Value V=0.05m
SYMBOL bv 392 -712 R90
SYMATTR InstName B_Dly_Ovr
SYMATTR Value V=V(T_Over)>V(delay)
SYMBOL bv 392 -536 R90
SYMATTR InstName B_Dly
SYMATTR Value V=limit(1e-12, 1e-5, TH_Martin(V(E_Gap), V(Rho_V)))
SYMBOL bv 392 -376 R90
SYMATTR InstName B_T_Ovr
SYMATTR Value V+time-V(T_B)
SYMBOL bv 392 -184 R90
SYMATTR InstName B_Time
SYMATTR Value V=time
SYMBOL bv 392 -8 R90
SYMATTR InstName B_!Ovr
SYMATTR Value V=inv(V(Over))
SYMBOL bv 392 168 R90
SYMATTR InstName B_Ovr
SYMATTR Value V=if((V(V_Gap)>V(V_Break)),tanh((V(V_Gap)-V(V_Break))),0)
SYMBOL bv 392 360 R90
SYMATTR InstName B_I_Ch
SYMATTR Value V=abs(I(B_Res))
SYMBOL bv 408 584 R90
SYMATTR InstName B_E_Gap
SYMATTR Value V=V(V_Gp)/{D}
SYMBOL bv 408 776 R90
SYMATTR InstName B_V_Gap
SYMATTR Value V=abs(V(T1,T2))
SYMBOL bv 408 984 R90
SYMATTR InstName B_V_Brk
SYMATTR Value V=Uniform_Air({D},{P})
SYMBOL bv 408 1192 R90
SYMATTR InstName B_Rho
SYMATTR Value V=({P}/760)*1.2
SYMBOL cap 472 -1240 R0
SYMATTR InstName C1
SYMATTR Value 10p
SYMBOL res 504 -1304 R90
SYMATTR InstName R1
SYMATTR Value 10
SYMBOL sw 584 -120 R0
SYMATTR InstName S2
SYMBOL cap 488 72 R90
SYMATTR InstName C2
SYMATTR Value 100p
SYMBOL bv -552 -616 R90
SYMATTR InstName B_L_Ch
SYMATTR Value V=limit(1,100,wire_Ind({D},V(Ch_Rad)))
SYMBOL bv -552 -216 R90
SYMATTR InstName B_R_Ch
SYMATTR Value V=limit(1E-3,1e1,vlastos({D},V(Ch_Rad),V(I_Ch),V(Ch_On)))
SYMBOL bv -552 -56 R90
SYMATTR InstName B_Ch_Rad
SYMATTR Value V=Braginshii(V(I_Ch),V(T_arc),V(Rho_V))
SYMBOL bv -552 328 R90
SYMATTR InstName B_T_Arc
SYMATTR Value V=time-V(T_C)
SYMBOL bv -552 472 R90
SYMATTR InstName B_!On
SYMATTR Value V=inv(V(Ch_On))
SYMBOL bi -648 -472 R270
SYMATTR InstName B_V_Ind
SYMATTR Value I=V(T1,A)
SYMBOL cap -584 648 R90
SYMATTR InstName C3
SYMATTR Value 100p
SYMBOL sw -408 504 R0
SYMATTR InstName S1
SYMBOL res -552 136 R90
SYMATTR InstName R3
SYMATTR Value 1000
SYMBOL cap -504 40 R90
SYMATTR InstName C4
SYMATTR Value 10n
SYMBOL cap -584 -360 R90
SYMATTR InstName C5
SYMATTR Value 1n
SYMBOL diode -488 -24 R0
SYMATTR InstName D1