Dávam si v GPT simulovať, že kto zaplatí viac dane, či chudobný alebo bohatší, pri 2. pilieri a cieľovej sume 700€ pre výplatu plného balíka alebo po dávkach mesačne. Á daň chudobnejší platí až 36/46 času??? Je toto OK? A šikovnejší ho dostane hneď?? Len príklad: ^^^ https://x.com/AarNoma/status/1997354361618374778/photo/1

# simulacia_podatok_clean.jl
# Simulácia v Julia: postupné ubúdanie zo sumy 700 € + mesačný príspevok 20 € - 23 %
# Cieľ: zistiť, po koľkých mesiacoch sa kumulatívny odvod dorovná určenej sume (jednorazovej platbe)

import Pkg
Pkg.add("Plots")
# simulacia_ubudanie_komplet.jl
# Počiatočné úspory 700 €, každý mesiac odpočet 20 € - 23 % dane, s vizualizáciou a výpočtom mesiaca k nule

using Plots

function simulate_ubudanie_priesecnik()
    # --- PARAMETRE ---
    initial_savings = 700.0
    monthly_spend = 20.0
    tax_rate = 0.23
    max_months = 300

    cumulative_tax = Float64[]
    remaining_savings = Float64[]
    months = collect(0:max_months)

    current_savings = initial_savings
    month_zero_savings = nothing
    push!(cumulative_tax, 0.0)
    push!(remaining_savings, current_savings)

    for m in 1:max_months
        taxed_amount = monthly_spend * tax_rate
        net_payment = monthly_spend - taxed_amount
        current_savings -= net_payment
        if current_savings < 0
            current_savings = 0.0
            if month_zero_savings === nothing
                month_zero_savings = m
            end
        end
        push!(cumulative_tax, cumulative_tax[end] + taxed_amount)
        push!(remaining_savings, current_savings)
    end

    # --- Nájdenie priesečníka ---
    # hľadáme prvý mesiac, kde kumulatívna daň >= zostatok úspor
    month_intersect = findfirst(i -> cumulative_tax[i] >= remaining_savings[i], 1:length(months))

    # --- VYKRESLENIE ---
    plot(months, remaining_savings, xlabel="Mesiace", ylabel="€",
         title="Postupné ubúdanie 700 € - 20 €/mesiac s daňou 23%",
         label="Zostatok úspor vyplatených za 46 mesiacov", color=:blue)
    plot!(months, cumulative_tax, label="Kumulatívna daň platená 36/46 času výberu po 20€", linestyle=:dash, color=:red)
    hline!([0.0], label="0 €", linestyle=:dot, color=:black)

    # Pridáme zvislú čiaru v bode priesečníka
    if month_intersect !== nothing
        vline!([months[month_intersect]], label="Vyrovnanie", linestyle=:dot, color=:green)
        annotate!(months[month_intersect], remaining_savings[month_intersect],
                  text("Vyrovnanie\nmesiac $(months[month_intersect])", 8, :left))
    end

    savefig("simulacia_ubudanie_uspor_2.pilier.png")
    println("Graf uložený ako: ubudanie_priesecnik.png")

    println("\nPrvých 12 mesiacov (zostatok úspor a kumulatívna daň):")
    for m in 0:11
        println("Mesiac $m: zostatok = ", round(remaining_savings[m+1], digits=2),
                " €, kumulatívna daň = ", round(cumulative_tax[m+1], digits=2), " €")
    end

    if month_zero_savings !== nothing
        years = div(month_zero_savings, 12)
        rem_months = month_zero_savings % 12
        println("\nZostatok úspor klesne na nulu po $month_zero_savings mesiacoch ($years rokov a $rem_months mesiacov).")
    else
        println("\nZostatok úspor sa v rámci $max_months mesiacov nedostane na nulu.")
    end

    if month_intersect !== nothing
        println("Platby sa vyrovnajú približne v mesiaci $(months[month_intersect]).")
    end
end

# Spustenie funkcie
simulate_ubudanie_priesecnik()

Aby sme rozumeli: Toto je výpočet na každé 1€ platenej DPHčky pri využití 2. piliera, ak teda je pravda, že na 2. pilier a výplatok sa neráta daň. Potom je ešte otázka započítať daň pri úmrtí človeka, ak prechádza majetok na pozostalú vdovu ^^^ Lebo de fakto môj otec nezaplatil synovi a manželke, ale platil štátne nazvem to ženičky, ktoré on platiť pri vdove nemal ^^^ 😄😄😄

---