Version 4
SHEET 1 1256 680
WIRE 112 128 96 128
WIRE 192 128 176 128
WIRE 96 144 96 128
WIRE 192 160 192 128
WIRE 240 160 192 160
WIRE 64 176 -80 176
WIRE 240 176 240 160
WIRE 96 224 96 208
WIRE 112 224 96 224
WIRE 192 224 192 160
WIRE 192 224 176 224
WIRE -80 256 -80 176
WIRE -48 256 -80 256
WIRE 32 256 -48 256
WIRE 240 272 240 256
WIRE 240 272 144 272
WIRE 256 272 240 272
WIRE -80 288 -80 256
WIRE 32 288 -80 288
WIRE -80 304 -80 288
WIRE -80 384 -80 368
FLAG -80 384 0
FLAG 256 272 Out
FLAG -48 256 Tri
SYMBOL Dig_Add\\CD4xxx\\cd4093b 80 208 R0
WINDOW 0 -111 63 Left 0
SYMATTR InstName Unand
SYMATTR SpiceLine VDD={Vdd}  SPEED=1.0  TRIPDT=5e-9
SYMBOL Robertugo\\Pote 80 112 R0
WINDOW 0 -64 15 Left 0
WINDOW 3 -83 97 Left 0
WINDOW 123 -85 41 Center 0
SYMATTR InstName Duty
SYMATTR Value Rt=1e5
SYMATTR Value2 Set={Cursor}
SYMBOL cap -96 304 R0
WINDOW 0 37 11 Left 0
WINDOW 3 36 47 Left 0
SYMATTR InstName Ct
SYMATTR Value 1n
SYMATTR SpiceLine Rpar=1e9
SYMBOL diode 112 240 R270
WINDOW 0 32 32 VTop 0
WINDOW 3 0 32 VBottom 0
SYMATTR InstName D1
SYMATTR Value 1N914
SYMBOL res 256 272 R180
WINDOW 0 -27 65 Left 0
WINDOW 3 -34 30 Left 0
SYMATTR InstName Rf
SYMATTR Value 10k
SYMBOL diode 176 112 R90
WINDOW 0 0 32 VBottom 0
WINDOW 3 32 32 VTop 0
SYMATTR InstName D2
SYMATTR Value 1N914
TEXT 28 346 Left 0 !.tran 2m uic
TEXT 392 88 Left 0 !.params: Vdd 12\n.step param Cursor 0 .99 .33\n.meas tran ta FIND time WHEN V(out)={Vdd/2} td=1m rise=1\n.meas tran tb FIND time WHEN V(out)={Vdd/2} td=1m rise=11\n.meas tran Frec PARAM 10/(tb-ta)\n.Meas tran Tc FIND time WHEN V(Out)={Vdd/2} td=1m fall=1\n.Meas tran Td FIND time WHEN V(Out)={Vdd/2} td=1m fall=2\n.Meas tran T1 Param  (Tc-Ta)\n.Meas tran T2  Param  (Td-Ta)\n.Meas tran Ton Param If (T1>0, T1, T2)\n.Meas tran Duty% Param  Ton*Frec*100