(defn Top_Feedback [Vout Vref Rfbb]
  (* Rfbb (/ (- Vout Vref) Vref)))

(defn V_in_max [Vout Fsw Ton_min]
  (/ Vout ( * Fsw Ton_min)))

(defn V_in_min [Vout Fsw Toff_min]
  (/ Vout ( - 1 ( * Fsw Toff_min))))

(defn peak-peak [Vout V_in_max L Fsw]
  (/ ( * Vout ( - V_in_max Vout)) ( * V_in_max L Fsw)))

(defn min_l [v_in_max Vout Iout Kind Fsw]
  ( *
   ( /
    ( - v_in_max Vout)
    ( * Iout Kind)
    )
   ( /
    Vout
    ( * v_in_max Fsw)
    )
   )
  )

(def freq 400.0e3)
(def vout 5.0)
(def v_in_max 42.0)

(print (Top_Feedback vout 0.8 22.1))
(print (V_in_max vout freq 80e-9))
(print (V_in_min vout freq 200e-9))
(print (peak-peak vout v_in_max 33e-3 freq))
(print (min_l v_in_max vout 1.0 0.35 freq))