#!/usr/bin/python
# -*- coding: utf-8 -*-
#
# Pyromaths
# Un programme en Python qui permet de créer des fiches d'exercices types de
# mathématiques niveau collège ainsi que leur corrigé en LaTeX.
# Copyright (C) 2006 -- Jérôme Ortais (jerome.ortais@pyromaths.org)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
#

from outils import pgcd, valeur_alea, sepmilliers, tex_coef
from random import choice, randrange
import string

import gettext
import locale
locale.setlocale(locale.LC_ALL, "")
locale.textdomain("pyromaths")
gettext.textdomain("pyromaths")
_=locale.gettext

def tex_proprietes_val(exp_max, nb_max, type):
    """
    Renvoie des valeurs pour l'exercice sur les propri\xc3(C)t\xc3(C)s des puissances
    @param exp_max: valeur maximale pour les exposants
    @type exp_max: Integer
    @param nb_max: Valeur maximale pour les nombres
    @type nb_max: integer
    @param type: 0 : 2 exposants et 1 nombre ; 1 : 1 exposant et 2 nombres
    @type type: integer
    """

    if type:
        while 1:
            nb1 = randrange(2, nb_max)
            nb2 = randrange(2, nb_max)
            exp1 = randrange(2, exp_max)
            exp2 = exp1
            if nb1 != nb2:
                break
    else:
        while 1:
            nb1 = randrange(2, nb_max)
            nb2 = nb1
            exp1 = randrange(2, exp_max)
            exp2 = randrange(2, exp_max)
            if exp1 != exp2:
                break
    return (nb1, exp1, nb2, exp2)


def tex_proprietes():
    exo = ["\\exercice",
           _("Compl\\'eter par un nombre de la forme $a^n$ avec $a$ et $n$ entiers :"),
           "\\begin{multicols}{4}", "  \\noindent%",
           "  \\begin{enumerate}"]
    cor = ["\\exercice*",
           _("Compl\\'eter par un nombre de la forme $a^n$ avec $a$ et $n$ entiers :"),
           "\\begin{multicols}{4}", "  \\noindent%",
           "  \\begin{enumerate}"]
    lexos = [0, 1, 2, 3, 0, 1, 2, 3]

    #0: a^n*a^p ; 1: (a^n)^p ; 2:a^n/a^p ; 3: a^n*b^n

    for i in xrange(len(lexos)):
        j = lexos.pop(randrange(len(lexos)))
        if j == 3:
            lval = tex_proprietes_val(12, 12, 1)
            exo.append("    \\item $%s^{%s} \\times %s^{%s} = \\dotfill$" %
                       lval)
            cor.append("    \\item $%s^{%s}\\times%s^{%s}=" % lval)
            cor.append("    %s^{%s}$" % (lval[0] * lval[2], lval[1]))
        else:
            lval = tex_proprietes_val(12, 12, 0)
            if j == 0:
                exo.append("    \\item $%s^{%s}\\times%s^{%s}=\\dotfill$" %
                           lval)
                cor.append("    \\item $%s^{%s}\\times%s^{%s}=" % lval)
                cor.append("    %s^{%s}$" % (lval[0], lval[1] + lval[3]))
            elif j == 1:
                exo.append("    \\item $(%s^{%s})^{%s}=\\dotfill$" % (lval[0],
                           lval[1], lval[3]))
                cor.append("    \\item $(%s^{%s})^{%s}=" % (lval[0],
                           lval[1], lval[3]))
                cor.append("    %s^{%s}$" % (lval[0], lval[1] * lval[3]))
            elif j == 2:
                while lval[1] - lval[3] < 3:
                    lval = tex_proprietes_val(12, 12, 0)
                exo.append("    \\item $\\dfrac{%s^{%s}}{%s^{%s}}=\\dotfill$" %
                           lval)
                cor.append("    \\item $\\dfrac{%s^{%s}}{%s^{%s}}=" %
                           lval)
                cor.append("    %s^{%s}$" % (lval[0], lval[1] - lval[3]))
    exo.append("  \\end{enumerate}")
    exo.append("\\end{multicols}\n")
    cor.append("  \\end{enumerate}")
    cor.append("\\end{multicols}\n")
    return (exo, cor)


# ----PROPRIETES AVEC 10


def tex_proprietes_neg_val(exp_max, nb_max, type):
    """
    Renvoie des valeurs pour l'exercice sur les propri\xc3(C)t\xc3(C)s des puissances
    @param exp_max: valeur maximale pour les exposants
    @type exp_max: Integer
    @param nb_max: Valeur maximale pour les nombres
    @type nb_max: integer
    @param type: 0 : 2 exposants et 1 nombre ; 1 : 1 exposant et 2 nombres
    @type type: integer
    """

    if type:
        while 1:
            nb1 = randrange(2, nb_max)
            nb2 = randrange(2, nb_max)
            exp1 = randrange(2, exp_max)
            exp2 = exp1
            if nb1 != nb2:
                break
    else:
        while 1:
            nb1 = randrange(2, nb_max)
            nb2 = nb1
            exp1 = randrange(2, exp_max)
            exp2 = randrange(2, exp_max)
            if exp1 != exp2:
                break
    return (nb1, exp1, nb2, exp2)


def tex_proprietes_neg():
    exo = ["\\exercice",
           _("\\'Ecrire sous la forme d'une puissance de 10 puis donner l'\\'ecriture"),
           _(" d\\'ecimale de ces nombres :"), "\\begin{multicols}{2}",
           "  \\noindent%", "  \\begin{enumerate}"]
    cor = ["\\exercice*",
           _("\\'Ecrire sous la forme d'une puissance de 10 puis donner l'\\'ecriture"),
           _(" d\\'ecimale de ces nombres :"), "\\begin{multicols}{2}",
           "  \\noindent%", "  \\begin{enumerate}"]
    lexos = [0, 1, 2, 3, 0, 1, 2, 3]

    #0: a^n*a^p ; 1: (a^n)^p ; 2:a^n/a^p

    for i in xrange(len(lexos)):
        lexp = [randrange(-6, 6) for i in xrange(2)]
        j = lexos.pop(randrange(len(lexos)))

        # FIXME : À finir

        if j == 0:
            while abs(lexp[0] + lexp[1]) > 10:
                lexp = [randrange(-6, 6) for i in xrange(2)]
            exo.append("    \\item $10^{%s} \\times 10^{%s} = \\dotfill$" %
                       tuple(lexp))
            cor.append("    \\item $10^{%s}\\times 10^{%s}=" % tuple(lexp))
            cor.append("      10^{%s+%s}=" % (lexp[0], tex_coef(lexp[1],
                       '', bpn=1)))
            cor.append("      10^{%s}=%s$" % (lexp[0] + lexp[1],
                       sepmilliers(10 ** (lexp[0] + lexp[1]), 1)))
        elif j == 1:
            while abs(lexp[0] * lexp[1]) > 10:
                lexp = [randrange(-6, 6) for i in xrange(2)]
            exo.append("    \\item $(10^{%s})^{%s}=\\dotfill$" % (lexp[0],
                       lexp[1]))
            cor.append("    \\item $(10^{%s})^{%s}=" % tuple(lexp))
            cor.append("      10^{%s \\times %s}=" % (lexp[0], tex_coef(lexp[1],
                       '', bpn=1)))
            cor.append("      10^{%s}=%s$" % (lexp[0] * lexp[1],
                       sepmilliers(10 ** (lexp[0] * lexp[1]), 1)))
        elif j == 2:
            while abs(lexp[0] - lexp[1]) > 10:
                lexp = [randrange(-6, 6) for i in xrange(2)]
            exo.append("    \\item $\\dfrac{10^{%s}}{10^{%s}}=\\dotfill$" %
                       tuple(lexp))
            cor.append("    \\item $\\dfrac{10^{%s}}{10^{%s}}=" % tuple(lexp))
            cor.append("      10^{%s-%s}=" % (lexp[0], tex_coef(lexp[1],
                       '', bpn=1)))
            cor.append("      10^{%s}=%s$" % (lexp[0] - lexp[1],
                       sepmilliers(10 ** (lexp[0] - lexp[1]), 1)))
    exo.append("  \\end{enumerate}")
    exo.append("\\end{multicols}\n")
    cor.append("  \\end{enumerate}")
    cor.append("\\end{multicols}\n")
    return (exo, cor)


#------------------------------------------------------------------------------
#  Écritures scientifiques
#------------------------------------------------------------------------------


def val_sc():
    while True:
        a = randrange(10) * 1000 + randrange(10) + randrange(10) * 10 ** \
            (randrange(2) + 1)
        a = a * 10 ** randrange(-9, 6)

        #a=randrange(1,9999)*10**randrange(-9,6)

        if a >= 10 or a < 1:
            break
    return a


def ecr_sc():
    from math import log10, floor
    exo = ["\\exercice", _("Compl\\'eter par par le nombre qui convient :"),
           "\\begin{multicols}{3}", "  \\noindent%",
           "  \\begin{enumerate}"]
    cor = ["\\exercice*",
           _("Compl\\'eter par par le nombre qui convient :"),
           "\\begin{multicols}{3}", "  \\noindent%",
           "  \\begin{enumerate}"]
    for i in xrange(6):
        a = val_sc()
        exp = int(floor(log10(a)))
        a_sc = (a * 1.) / 10 ** exp
        s_a = sepmilliers(a, 1)
        s_a_sc = sepmilliers(a_sc, 1)
        if randrange(2):  # forme : a=a_sc*...
            exo.append("    \\item $%s=%s\\times\\dotfill$" % (s_a,
                       s_a_sc))
            cor.append("    \\item $%s=%s\\times\\mathbf{10^{%s}}$" % (s_a,
                       s_a_sc, sepmilliers(exp, 1)))
        else:

              # forme : a_sc*...=a

            exo.append("    \\item $%s\\times\\dotfill=%s$" % (s_a_sc,
                       s_a))
            cor.append("    \\item $%s\\times\\mathbf{10^{%s}}=%s$" % (s_a_sc,
                       sepmilliers(exp, 1), s_a))
    exo.append("  \\end{enumerate}")
    exo.append("\\end{multicols}\n")
    cor.append("  \\end{enumerate}")
    cor.append("\\end{multicols}\n")
    return (exo, cor)


# ------------------- PUISSANCES de 10 -------------------


def exo_puissances():
    from math import floor, log10
    sd = string.maketrans('.', ',')  # convertit les . en , (separateur decimal)
    exo = ["\\exercice",
           _("Calculer les expressions suivantes et donner l'\\'ecriture scientifique du r\\'esultat."),
           "\\begin{multicols}{2}", "  \\noindent%"]
    cor = ["\\exercice*",
           _("Calculer les expressions suivantes et donner l'\\'ecriture scientifique du r\\'esultat."),
           "\\begin{multicols}{2}", "  \\noindent%"]
    valeurs = valeurs_puissances()
    i = randrange(2)
    exo.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_0(valeurs[i]).translate(sd))
    cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_0(valeurs[i]).translate(sd))
    cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_1(valeurs[i]).translate(sd))
    cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_2(valeurs[i]).translate(sd))
    if int(floor(log10(((valeurs[i][0] * valeurs[i][1]) * 1.) / valeurs[i][2]))) != \
        0:
        cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_3(valeurs[i]).translate(sd))
    cor.append("  \\[ \\boxed{\\thenocalcul = %s} \\]" %
               tex_puissances_4(valeurs[i]).translate(sd))
    exo.append("  \\columnbreak\\stepcounter{nocalcul}%")
    cor.append("  \\columnbreak\\stepcounter{nocalcul}%")
    exo.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_0(valeurs[1 -
               i]).translate(sd))
    cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_0(valeurs[1 -
               i]).translate(sd))
    cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_1(valeurs[1 -
               i]).translate(sd))
    cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_2(valeurs[1 -
               i]).translate(sd))
    if int(floor(log10(((valeurs[1 - i][0] * valeurs[1 - i][1]) * 1.) /
           valeurs[1 - i][2]))) != 0:
        cor.append("  \\[ \\thenocalcul = %s \\]" % tex_puissances_3(valeurs[1 -
                   i]).translate(sd))
        cor.append("  \\[ \\boxed{\\thenocalcul = %s} \\]" %
                   tex_puissances_4(valeurs[1 - i]).translate(sd))
    exo.append("\\end{multicols}\n")
    cor.append("\\end{multicols}\n")
    return (exo, cor)


def tex_puissances_0(a):
    if isinstance(a, tuple):
        return '\\cfrac{\\nombre{%s} \\times 10^{%s} \\times \\nombre{%s} \\times 10^{%s}}{\\nombre{%s} \\times \\big( 10^{%s} \\big) ^%s}' % \
            (a[0], a[3], a[1], a[4], a[2], a[5], a[6])


def tex_puissances_1(a):
    if isinstance(a, tuple):
        if a[4] < 0:
            return '\\cfrac{\\nombre{%s} \\times \\nombre{%s}}{\\nombre{%s}} \\times \\cfrac{10^{%s+(%s)}}{10^{%s \\times %s}}' % \
                (a[0], a[1], a[2], a[3], a[4], a[5], a[6])
        else:
            return '\\cfrac{\\nombre{%s} \\times \\nombre{%s}}{\\nombre{%s}} \\times \\cfrac{10^{%s+%s}}{10^{%s \\times %s}}' % \
                (a[0], a[1], a[2], a[3], a[4], a[5], a[6])


def tex_puissances_2(a):
    if isinstance(a, tuple):
        if ((a[0] * a[1]) * 1.) / a[2] == (a[0] * a[1]) / a[2]:
            if a[5] * a[6] < 0:
                return '\\nombre{%s} \\times 10^{%s-(%s)}' % \
                    verifie_type(((a[0] * a[1]) / a[2], a[3] + a[4], a[5] *
                                 a[6]))
            else:
                return '\\nombre{%s} \\times 10^{%s-%s}' % verifie_type(((a[0] *
                        a[1]) / a[2], a[3] + a[4], a[5] * a[6]))
        else:
            if a[5] * a[6] < 0:
                return '\\nombre{%s} \\times 10^{%s-(%s)}' % \
                    verifie_type((((a[0] * a[1]) * 1.) / a[2], a[3] + a[4],
                                 a[5] * a[6]))
            else:
                return '\\nombre{%s} \\times 10^{%s-%s}' % verifie_type((((a[0] *
                        a[1]) * 1.) / a[2], a[3] + a[4], a[5] * a[6]))


def tex_puissances_3(a):
    from math import floor, log10
    b = int(floor(log10(((a[0] * a[1]) * 1.) / a[2])))

    #print str(a[0])+'   '+str(a[1])+'   '+str(a[2])
    #print str(a[0]*a[1]*1./a[2])+'  '+str(a[0]*a[1]*1./a[2]/10**b)+'    '+str(int(a[0]*a[1]*1./a[2]/10**b+.1))

    if isinstance(a, tuple) and b != 0:
        return '\\nombre{%s}  \\times 10^{%s} \\times 10^{%s}' % \
            verifie_type(((((a[0] * a[1]) * 1.) / a[2]) / 10 ** b, b, (a[3] +
                         a[4]) - a[5] * a[6]))


def tex_puissances_4(a):
    from math import floor, log10
    b = int(floor(log10(((a[0] * a[1]) * 1.) / a[2])))
    if isinstance(a, tuple):
        return '\\nombre{%s}  \\times 10^{%s}' % verifie_type(((((a[0] *
                a[1]) * 1.) / a[2]) / 10 ** b, (b + a[3] + a[4]) - a[5] *
                a[6]))


def verifie_type(a):  # verifie si des nombres reels dans le tuple a sont en fait des nombres entiers et change leur type
    list = []
    for i in xrange(len(a)):
        if str(a[i]).endswith('.0'):
            list.append(int(a[i] + .1))
        else:
            list.append(a[i])
    return tuple(list)


def valeurs_puissances():  # renvoie un tuple contenant les valeurs pour les deux exercices sur les puissances
    from math import floor, log10
    (max, emax) = (10, 2)
    while True:
        (b1, b2) = (valeur_alea(2, max), valeur_alea(2, max))
        (b1, b2) = (b1 / pgcd(b1, b2), b2 / pgcd(b1, b2))
        if b1 != 1 and b2 != 1:
            break
    while True:
        (n1, n2) = ((b1 * valeur_alea(2, max)) * 10 ** randrange(-emax,
                    emax), (b2 * valeur_alea(2, max)) * 10 ** randrange(-emax,
                    emax))
        n3 = ((b1 * b2) * choice((2, 4, 5, 8))) * 10 ** randrange(-emax,
                emax)
        if int(floor(log10(((n1 * n2) * 1.) / n3))) != 0 and n1 != 1 and \
            n2 != 1 and n3 != 1:
            break
    (e1, e2, e3, e4) = (valeur_alea(-10, 10), valeur_alea(-10, 10),
                        valeur_alea(2, 10), valeur_alea(2, 5))
    a = verifie_type((n1, n2, n3, e1, e2, e3, e4))
    while True:
        (b1, b2) = (valeur_alea(2, max), valeur_alea(2, max))
        (b1, b2) = (b1 / pgcd(b1, b2), b2 / pgcd(b1, b2))
        if b1 != 1 and b2 != 1:
            break
    (n1, n2) = ((b1 * valeur_alea(2, max)) * 10 ** randrange(-emax, emax +
                1), (b2 * valeur_alea(2, max)) * 10 ** randrange(-emax,
                emax + 1))
    n3 = ((b1 * b2) * choice((1, 2, 4, 5, 8))) * 10 ** randrange(-emax,
            emax + 1)
    (e1, e2, e3, e4) = (valeur_alea(-10, 10), valeur_alea(-10, 10),
                        valeur_alea(-10, -2), valeur_alea(2, 5))
    b = verifie_type((n1, n2, n3, e1, e2, e3, e4))
    return (a, b)