Podatek PIT

PIT.gnuplot

set xlabel "PLN"
set ylabel "%"
set yrange [0:30]
set term pngcairo

set output "01pit2015.png"
plot [0:160000] x < 3089  ? 0 : \
                x < 85228 ? 100*(0.18*(x-3089))/x : \
                100*(14839+0.32*(x-85228))/x title "Stawka PIT w 2015 r."

set output "02pit2015-8k.png"
plot [0:160000] x < 3089  ? 0 : \
                x < 85228 ? 100*(0.18*(x-3089))/x : \
                100*(14839+0.32*(x-85228))/x title "Stawka PIT w 2015 r.", \
                x < 8000  ? 0 : \
                x < 85228 ? 100*(0.18*(x-8000))/x : \
                100*(13901.04+0.32*(x-85228))/x title "PIT 2015 r., kwota wolna 8000"

set output "03pit2015-8k+.png"
plot [0:160000] x < 3089  ? 0 : \
                x < 85228 ? 100*(0.18*x-556.02)/x : \
                100*(14839+0.32*(x-85228))/x title "Stawka PIT w 2015 r.", \
                x < 8000  ? 0 : \
                x < 85228 ? 100*(0.18*(x-8000))/x : \
                100*((0.18*85228)+0.32*(x-85228))/x title "PIT 2015 r., kwota wolna 8000 dla biednych"

set output "04pit2015-8k+adj.png"
plot [0:160000] x < 3089  ? 0 : \
                x < 85228 ? 100*(0.18*x-556.02)/x : \
                100*(14839+0.32*(x-85228))/x title "Stawka PIT w 2015 r.", \
                x < 8000  ? 0 : \
                x < 85228 ? 100*(0.18*(x-8000))/x : \
                100*(15341.04+0.32*(x-85228))/x title "PIT 2015 r., kwota wolna 8000 dla biednych",\
                x < 8000  ? 0 : \
                x < 85228 ? 100*(0.1986*(x-8000))/x : \
                100*(15341.04+0.32*(x-85228))/x title "bez uskoku"

set output "05pit2015-8k+progi.png"
plot [0:160000] x < 3089  ? 0 : \
                x < 85228 ? 100*(0.18*(x-3089))/x : \
                100*(14839+0.32*(x-85228))/x title "Stawka PIT w 2015 r.", \
                x < 8000  ? 0 : \
                x < 60000 ? 100*(0.17*(x-8000))/x : \
                x < 85228 ? 100*(8840.+0.25*(x-60000))/x : \
                100*(15147.+0.35*(x-85228))/x title "Nowe progi"

set output "06pit2016.pngb"
plot [0:160000] x < 3091  ? 0 : \
                x < 85528 ? 100*(0.18*(x-3091))/x : \
                100*(14839+0.32*(x-85228))/x title "Stawka PIT w 2016 r."

# Degresywna kwota wolna 2016-11-25
# A = [6600 1; 11000 1]; B = [6600; 3091]; A\B
# A = [85228 1; 127000 1]; B = [3091; 0]; A\B
set output "07pit2017-kwota-wolna.png"
set ylabel "PLN"
set yrange [0:7000]
plot [0:160000] x < 6600 ? 6600 : \
                x < 11000 ? -7.9750e-01*x+1.1863e+04 : \
                x < 85228 ? 3091 : \
                x < 127000 ? -7.3997e-02*x+9.3976e+03 : 0 title "Kwota wolna"

set output "08pit2017.png"
set ylabel "%"
set yrange [0:30]
plot [0:160000] \
     x < 3091  ? 0 : \
     x < 85528 ? 100*(0.18*(x-3091))/x : \
     100*(14839+0.32*(x-85228))/x title "PIT w 2016 r.", \
     x < 6600   ? 0 : \
     x < 11000  ? 100*(0.18*(x-(-7.9750e-01*x+1.1863e+04)))/x : \
     x < 85528  ? 100*(0.18*(x-3091))/x : \
     x < 127000 ? 100*((0.18*(85528-(-7.3997e-02*x+9.3976e+03)))+0.32*(x-85228))/x : \
100*(15341+0.32*(x-85228))/x title "PIT 2017 z degresywną kwotą wolną"

set output "09pit2015razem.png"
#set yrange [0:50]
plot [0:160000] \
     x < 12000  ? 0 : \
     x < 60000  ? 100*(0      + 0.22*(x-12000))/x : \
     x < 120000 ? 100*(10560  + 0.33*(x-60000))/x : \
     x < 250000 ? 100*(30360  + 0.44*(x-120000))/x : \
     x < 500000 ? 100*(87560  + 0.55*(x-250000))/x : \
                  100*(225060 + 0.75*(x-500000))/x title "PIT wg Razem 2015"