Trigonométrie - segment de disque

[Cliffe]

Je met moins d'une seconde pour faire les 3.10^9 itérations.

[Gordon72]

Je met moins d'une seconde pour faire les 3.10^9 itérations

On va faire plus simple. Voici un code des plus raccourcis :

Code: Tout sélectionner

Sub test()

Application.ScreenUpdating = False

Rmin = Range("H6")
Rmax = Range("H7")
Lmin = Range("K6")
Lmax = Range("K7")
Step1 = Range("H8")
Step2 = Range("K8")

Dim R As Variant
Dim L As Variant

For R = Rmin To Rmax Step Step1

    Range("H13") = R
       
        For L = Lmin To Lmax Step Step2
            Range("H14") = L
        Next

Next

End Sub

Valeur à mettre dans les cellules pour l'essais (en vrai c'est 2500 pour R, 60 pour L et le pas sur R est de 0.005 mais c'est trop long) :
H6 = 0
H7 = 10
K6 = 0
K7 = 10
H8 = 0.01
K8 = 0.01

Pour moi ça prend déjà 35 secondes sans le Solver sur mon ordi perso (mais au boulot on est sur cluster).

Et oui c'est du VBA donc il y a de la perte de mémoire sur la recherche cellules. Je pourrais le programmer en direct mais je dois permettre une animation 3D qui se voit avec R et L qui varient.

[Cliffe]

ça doit être en temps réel ?

rien ne t'empêche de pré calculé et d'afficher par la suite.

jte conseille d'utiliser du C pour aller plus vite

[Gordon72]

Oui il y a un Plot3Dlive dedans et ça consomme trop (d'où le Cluster). Je te montrerais bien les codes mais il y a des choses confidentielles donc je n'ai pas le droit. Le C++ et moi ça fait 2... J'ai toujours fais en VBA pour la boîte car on utilise pas le C++.

Après j'aurais pu en effet le faire en direct c'est vrai (avec un Plot3D dépendant des variables du code et non des Range("")) mais au début je ne pensais pas que j'allais me retrouver embêté à cause d'une racine et d'un cosinus ^^. C'est quand j'ai vu le temps que ça prenais que je me suis résigné à demander de l'aide.

Bon au final comme j'ai dis avant cela marche quand-même suffisamment bien avec le polynôme.