def formula_2013_01_01(foyer_fiscal, period, parameters):
    """
        Prelèvement forfaitaire libératoire (PFL) sur les revenus du capital
        Notes :
          (1) La formule avant 2013 provient de l'ancienne variable 'imp_lib'.
              A priori, cette ancienne formule n'est pas entièrement correcte (application d'un taux unique à la case 2EE par exemple) et mériterait d'être corrigée.
          (2) Cette variable ne comprend pas la taxation forfaitaire à 24% associée
              à la base f2fa, qui est prise en compte via la variable tax_rvcm_forfaitaire,
              qui est incluse dans irpp. Cette taxaiton à 24% est certes forfaitaire,
              mais apparemment pas à la source. Elle serait calculée au moment de l'irpp,
              d'où le fait de l'inclure dans la variable IRPP.
        """
    assurance_vie_pl_non_anonyme_plus8ans_depuis1990 = foyer_fiscal(
        'assurance_vie_pl_non_anonyme_plus8ans_depuis1990', period)
    assurance_vie_pl_non_anonyme_plus6ans_avant1990 = foyer_fiscal(
        'assurance_vie_pl_non_anonyme_plus6ans_avant1990', period)
    assurance_vie_pl_non_anonyme_moins4ans_depuis1990 = foyer_fiscal(
        'assurance_vie_pl_non_anonyme_moins4ans_depuis1990', period)
    assurance_vie_pl_non_anonyme_4_8_ans_depuis1990 = foyer_fiscal(
        'assurance_vie_pl_non_anonyme_4_8_ans_depuis1990', period)
    assurance_vie_pl_anonyme = foyer_fiscal('assurance_vie_pl_anonyme', period)
    produit_epargne_solidaire = foyer_fiscal('produit_epargne_solidaire',
        period)
    produit_etats_non_cooperatif = foyer_fiscal('produit_etats_non_cooperatif',
        period)
    param_pfl_av = (parameters(period).taxation_capital.pfl_av.
        bons_ou_contrats_de_capitalisation_et_placements_de_meme_nature_assurance_vie_lors_du_denouement_du_contrat
        )
    param_pfl = parameters(period).taxation_capital.pfl
    pfl = -(param_pfl_av.souscrits_apres_le_1_1_90_et_le_pour_une_duree_de.
        duree_8_ans_et_plus_pour_les_produits_acquis_apres_le_01_01_1998_avec_abattement_sur_l_ir_5
         * assurance_vie_pl_non_anonyme_plus8ans_depuis1990 + param_pfl_av.
        souscrits_entre_le_1_1_83_et_le_31_12_89_pour_une_duree_de.
        duree_6_ans_et_plus_pour_les_produits_acquis_apres_le_01_01_1998_avec_abattement_sur_l_ir_5
         * assurance_vie_pl_non_anonyme_plus6ans_avant1990 + param_pfl_av.
        souscrits_apres_le_1_1_90_et_le_pour_une_duree_de.
        duree_moins_de_4_ans *
        assurance_vie_pl_non_anonyme_moins4ans_depuis1990 + param_pfl_av.
        souscrits_apres_le_1_1_90_et_le_pour_une_duree_de.duree_4_a_8_ans *
        assurance_vie_pl_non_anonyme_4_8_ans_depuis1990 + param_pfl_av.
        avec_anonymat * assurance_vie_pl_anonyme + param_pfl.
        produits_epargne_solidaire_partage * produit_epargne_solidaire + 
        param_pfl.produits_vers_etats_non_cooperatifs *
        produit_etats_non_cooperatif)
    return pfl
