aannaque's blog

  Exercice sur l'utilisation d'un isolateur. On donne une machine qui transmet une force importante au sol qu'on voudrait limiter à 10 KN à cause d'un balourd qui tourne à une certaine vitesse. On démontre qu'avec un seul isolateur, le problème ne pas être résolu. Avec deux isolateurs en série la force transmise est limite. La société ne disposant que d'un seul isolateur, la solution serait d'augmenter la masse totale. On calcule la masse à ajouter pour que la force transmise soit acceptable.

  Dans cette vidéo on traite la manipulation des classeurs et des feuilles par code. On voit notamment : comment ajouter un nouveau classeur à la collection Workbooks Récupérer le nom du classeur Balayer les feuilles d'un classeur en utilisant la collections Worksheets La différence entre les objets ThisWorkbook et ActiveWorkbook Comment ajouter une feuille en précisant sa position par rapport à une feuille Ajouter une feuille de type graphique La différence entres les collections Worksheets, Sheets et Charts Comment sauvegarder un classeur Codes Sources: Option Explicit Sub test() Dim f As Worksheet Debug.Print "Nom application " & Application.Name Debug.Print "Nom du classeur " & Application.ThisWorkbook.Name Debug.Print "Application installée en " & Application.Path Debug.Print "Nom du classeur " & Application.Workbooks(1).Name Debug.Print "Liste des " & Worksheets.Count & " feuilles du classeur ...

Les éléments vues dans cette vidéo sont: Option Base, Array, UBound, LBound, ReDim et Preserve. Code Source: Option Explicit Option Base 1 Sub test() Dim Trimestre(4) As String, i As Integer For i = 1 To 4     Trimestre(i) = "Trim " & i Next For i = 1 To 4     Debug.Print i & " " & Trimestre(i) Next End Sub Sub test1() Dim Trimestre(4) As String, i As Integer For i = LBound(Trimestre) To UBound(Trimestre)     Trimestre(i) = "Trim " & i Next For i = LBound(Trimestre) To UBound(Trimestre)     Debug.Print i & " " & Trimestre(i) Next End Sub Sub test2() Dim Trimestre() As Variant, i As Integer Trimestre = Array("Trim 1", "Trim 2", "Trim 3", "Trim 4") For i = LBound(Trimestre) To UBound(Trimestre)     Debug.Print i & " " & Trimestre(i) Next End Sub Sub test3() Dim Trimestre() As Variant, i As Integer Trimestre = Array("Trim 1", "Trim 2", "Trim 3...

Le module est un conteneur qui peut regrouper plusieurs procédures et fonctions pouvant être appelées depuis toute procédure du projet.

Envi de suivre un tutoriel en anglais et vous disposez d'une version d'Excel en Français, pas de panique. Changer l'interface en toute langue est possible sans devoir tout réinstaller.

Les fonctions traitées sont: String, Split, Mid, InStr, Len, Left, Right, UCase, LCase et Trim Code source: Option Explicit Sub test_split() Dim chemin As String, a As Variant, e As Variant chemin = ThisWorkbook.Path Debug.Print chemin Debug.Print String(100, "-") a = Split(chemin, "\") For Each e In a     Debug.Print e Next End Sub Sub test_split2() Dim chemin As String Dim i, ideb chemin = ThisWorkbook.Path Debug.Print chemin Debug.Print String(100, "-") i = 0 ideb = 0 Do     i = InStr(i + 1, chemin, "\")     Debug.Print Mid(chemin, ideb + 1, IIf(i = 0, Len(chemin), i - 1) - ideb)     ideb = i Loop Until i = 0 End Sub Sub test_leftright() Dim NC As String, nomfichier As String, ext As String NC = ThisWorkbook.Name nomfichier = Left(NC, InStr(NC, ".") - 1) ext = Right(NC, Len(NC) - InStr(NC, ".")) Debug.Print "Nom complet:" & NC & " Fichier:" & nomfichier & " ,extension:" & e...

Dans cette vidéo on montre l'utilisation des instructions suivantes: If Then End If If Then Else End If IIF If Then ElseIf Else End If Select Case end select Code source: Option Explicit Sub test1() Dim i As Integer i = WorksheetFunction.RandBetween(0, 100) If i Mod 2 = 0 Then Beep: Debug.Print i & " est paire" End Sub Sub test2() Dim i As Integer i = WorksheetFunction.RandBetween(0, 100) If i Mod 2 = 0 Then     Debug.Print i & " est paire" Else     Debug.Print i & " est impaire" End If End Sub Sub test3() Dim i As Integer i = WorksheetFunction.RandBetween(0, 100) Debug.Print i & " est " & IIf(i Mod 2 = 0, "paire", "impaire") End Sub Sub test4() Dim i As Integer i = WorksheetFunction.RandBetween(0, 100) Debug.Print i & " est " & IIf(i Mod 2 = 0, "", "im") & "paire" End Sub Sub test5() Dim i i = InputBox("Taper un nombre entre 0 et 100") If Is...

Les différentes façons d'exprimer tant que condition répéter. Les 5 façons sont : While cond ... Wend Do ... while cond Loop Do ... Loop while cond Do until cond ... Loop Do ... Loop until cond Code source: Option Explicit Function f(x As Single) As Single 'f=3*x^3 + 3*x^2 - 9*x f = x ^ 3 + 3 * x ^ 2 - 9 * x End Function Function df(x As Single) As Single 'f'=9*x^2 + 6*x - 9 df = 3 * x ^ 2 + 6 * x - 9 End Function Function newton(x0 As Single) As Single Dim pre As Single Dim cond As Boolean pre = 0.001 cond = False If Abs(f(x0)) > pre Then     Do         'Do Until Not cond             'Do                 'Do While cond                     'While cond                         If df(x0) = 0 Then                         ...

Toutes les utilisations possibles des fonctions InputBox et msgBox pour interagir avec l'utilisateur. Code source Option Explicit Sub test1() Dim nom As String nom = InputBox("Donner votre nom") Debug.Print "nom tappé: " & nom End Sub Sub test2() Dim nom As String nom = InputBox("Donner votre nom", "EMI", "Mohamed") If nom = "" Then     MsgBox "Attention nom vide" Else     Debug.Print "nom tappé: " & nom End If End Sub Sub test3() Dim nom As String Dim reponse As Integer Dim cond As Boolean cond = True Do While cond     nom = InputBox("Donner votre nom", "EMI", "Mohamed")     If nom = "" Then         reponse = MsgBox("Attention nom vide, vous voulez réessayer?", _         vbYesNo + vbInformation + vbDefaultButton2 + vbMsgBoxHelpButton, "EMI") '        If reponse = vbYes Then '            cond = True '        Else '    ...

Les variables vues dans cette vidéo sont: Integer, Long, LongLong, LongPtr, Currency, Decimal, Single, Double, Objet, Date, Type défini par l'utilisateur et Collection Code source Option Explicit Const pi As Single = 3.1415926 Sub test_integer() Dim i 'For i = 0 To 100000 Step 10000 '    Debug.Print i 'Next Debug.Print VarType(i) i = 0 Debug.Print VarType(i) i = "0" Debug.Print VarType(i) End Sub Sub test_decimal() Dim d As Variant d = CDec(100 / 3) Debug.Print d d = CDec("1,12345678") Debug.Print d End Sub Sub test_objet() Dim Feuille As Object Dim Nom As String * 50 Set Feuille = Worksheets(1) Nom = "Nom fichier """ & Feuille.Name & """" Debug.Print Nom Nom = "Nom fichier " & Chr(34) & Feuille.Name & Chr(34) Debug.Print Nom End Sub Sub test_date() Dim d1 As Date, d2 As Date d1 = 1.86 Debug.Print d1 Debug.Print Format(d1 + 1, "m/dd/yyyy") Debug.Print Format(d1 + 1, ...

Plusieurs méthodes sont utilisées pour trouver les modes propres d'une poutre simplement appuyée aux extrémités et ayant une masse concentrée au milieu. Les méthodes utilisées sont: La méthode analytique L'approximation par un système à un degré de liberté La méthode de Rayleigh La méthode de Dunkerley La méthode des éléments finis (version h)

تداول العديد من رواد مواقع التواصل الاجتماعي العديد من المنشورات التي تشير إلى إعتناق مورغان فريمان الإسلام عقب افتتاح كأس العالم 2022، نبين في هذا الفيديو زيف الخبر

In this video, we will see how to find the response of a damped mass spring system excited by various conditions.   The governing equation is: md2x/dt^2+cdx/dt + kx=f Where m is the mass, c the viscous damping coefficient and k the spring stiffness. This gives the acceleration d2x/dt^2=(f - cdx/dt - kx)/m Using various blocks, we will build our model piece by piece. From a function x, we get dx/dt  by differentiating with respect to time . Then we multiply dx/dt  by c and x by k and sum the two expressions. Adding the external force and subtracting cdx/dt+kx  then dividing by m we should get the acceleration d2x/dt^2  which is also the result of differentiating dx/dt  with respect to time Working with integrators is better than with differentiator as in the former we could use the initial condition which gives better control on the solution obtained. The model becomes: On Simulink, we will need the following blocks: two integrators, 3 amp...

  Simulink capability of solving differential equations is put to the test. A simple equation with known solution is solved on Simulink.

 Script VBA  Sub drawfractal() Dim c As Variant n = 201 xmax = 1.2 xmin = -1.2 ymax = 1.2 ymin = -1.2 For i = 1 To n     For j = 1 To n         c = WorksheetFunction.Complex((ymax - ymin) * (j - 1) / (n - 1) + ymin, (xmax - xmin) * (i - 1) / (n - 1) + xmin)         If c = WorksheetFunction.Complex(0, 0) Then         Else             Call iterate(c, Range("A1").Offset(i - 1, j - 1))         End If     Next Next End Sub Sub iterate(c As Variant, cel As Range) k = 1 cond = True Z0 = c While cond = True    Z = WorksheetFunction.ImSub(Z0, WorksheetFunction.ImDiv(WorksheetFunction.ImSub(WorksheetFunction.ImPower(Z0, 3), 1), WorksheetFunction.ImProduct(3, WorksheetFunction.ImPower(Z0, 2))))    If WorksheetFunction.ImAbs(WorksheetFunction.ImSub(Z, WorksheetFunction.Complex(1, 0))) < 0.001 Then         cond = False ...

On génère la fractale de Newton sur Geogebra. La méthode de Newton Raphson est appliquée pour résoudre l'équation complexe Z^3-1=0. Les pixels sont coloriés en fonction de la solution finale obtenue en lançant la méthode à partir du pixel considéré comme nombre complexe

Comment générer la fameuse fractale de Mandelbrot sur une feuille Excel Scripts VBA Sub drawMandelbrot() Dim c As Variant n = 201 xmax = 1.2 xmin = -1.2 ymax = 0.6 ymin = -1.5 For i = 1 To n     For j = 1 To n         c = WorksheetFunction.Complex((ymax - ymin) * (j - 1) / (n - 1) + ymin, (xmax - xmin) * (i - 1) / (n - 1) + xmin)         Call iterate(c, Range("A1").Offset(i - 1, j - 1))     Next Next End Sub Sub iterate(c As Variant, cel As Range) k = 1 cond = True Z = 0 While cond = True     'Zn+1=Zn^2+c     Z = WorksheetFunction.ImSum(WorksheetFunction.ImProduct(Z, Z), c)     If WorksheetFunction.ImAbs(Z) > 2 Then         cond = False     Else         k = k + 1     End If     If k > 255 Then         cond = False         cel.Interior.Color = vbBlack     End If Wend End Sub

Utiliser une feuille Excel pour générer le triangle de Sierpinski Vidéo sur @SparksMaths Code VBA Sub draw() Dim cel1 As Range Dim cel2 As Range Dim cel3 As Range Dim cel As Range Dim i As Integer Dim j As Integer Dim l As Single Dim Phi As Single Set cel1 = Range("A1") Set cel2 = Range("A1").Offset(0, 200) Set cel3 = Range("A1").Offset(100, 100) cel1.Interior.Color = vbRed cel2.Interior.Color = vbBlue cel3.Interior.Color = vbGreen Set cel = cel1.Offset(25, 100) cel.Interior.Color = vbBlack For i = 1 To 10000     j = Int((3 - 1 + 1) * Rnd() + 1)     Select Case j         Case 1             l = Sqr((cel1.Column - cel.Column) ^ 2 + (cel1.Row - cel.Row) ^ 2)             Phi = WorksheetFunction.Atan2((cel1.Column - cel.Column), (cel1.Row - cel.Row))         Case 2             l = Sqr((cel2.Column - cel.Column) ^ 2 + (cel2.Row - cel.Row) ^ 2) ...

Application de la méthode de Jacobi pour trouver les valeurs et vecteurs propres d'un système à plusieurs degrés de liberté en appliquant des rotations successives.

Application de la méthode de déflation et de la puissance itérée pour trouver les modes supérieurs

Méthode de la puissance itérée pour obtenir la première valeur propre et le premier vecteur propre d'un système à plusieurs degrés de liberté.

Quotient de Rayleigh d'un système à plusieurs degrés de liberté

L'objectif est de trouver la matrice de flexibilité par la méthode des coefficients d'influence et sans inverser la matrice raideurs.

La méthode de Stodola permet d'obtenir soit la première ou la dernière valeur propre d'un système à N degrés de liberté. Dans cette vidéo, la méthode de Stodola est appliquée sur Excel.  

 Comment obtenir la matrice des raideurs d'un système à trois degrés de liberté ?

  Examen 2021-2022, exercice 3: L'instrument représenté sur la figure a une masse de 43 kg et est monté sur quatre ressorts identiques de raideur chacun 7.2 KN/m. Le mouvement du sol est harmonique. Q1 Calculer la fréquence propre du système (en Hz) Q2 Si l'amplitude de vibration verticale de la base est de xB = 0.10 mm, calculer la plage de fréquences (en Hz) de la base à éviter pour que le déplacement de l’instrument ne dépasse pas 0.15 mm. Q3 Quand la fréquence d’excitation se trouve dans l’intervalle calculé, serait-il bénéfique ou pas d’ajouter un amortisseur ? (Pour argumenter vous n’avez pas besoin de développer des calculs laborieux) Q4 Un ingénieur a posé un autre instrument de masse 17 Kg sur le premier. Quelle est la conséquence sur la gamme de fréquence calculée précédemment ?

  Examen 2021-2022, Exercice 2 Enoncé : Un système mécanique est composé d’une masse m qui se déplace verticalement, d’un ressort de raideur k1 et d’un amortisseur de coefficient c. Le système est excité par une force au point A due à un mouvement harmonique imposé à l’extrémité droite du ressort de raideur k2. Les tiges OA et OC sont sans masses, articulées au point O et elles sont toujours perpendiculaires. Le déplacement de la masse est mesuré par rapport à la position d’équilibre. En l’absence du mouvement imposé (dans ce cas la tige OA est horizontale et OC est verticale). On suppose de petites oscillations autour de la position d’équilibre.

  Examen 2021-2021 de Vibrations. Exercice 1 Enoncé : Un système masse ressort (sans amortisseur) est sollicité par une force f(t) continue et dérivable. La solution particulière est notée xp(t) qui est de même nature que la force. f est aussi continue et dérivable. Trouver la condition sur les conditions initiales x0 et v0 pour que la solution transitoire n’apparaisse pas dans la solution totale.

Examen de vibrations 2021-2022. Exercice 4 Un cylindre de masse 50 Kg est entrain de rouler sans glisser sur le sol. Il est aussi lié à gauche à un ressort de raideur 75 N/m et à droite à un amortisseur de constante 10 N s/m. Le rayon du cylindre est r=0.5 m. Rappel : Le moment d’inertie d’un cylindre par rapport à l’axe passant par son centre est J=(mr^2)/2. 1 Dans un premier temps on ne tient pas compte de la présence de l’amortisseur. Trouver l’équation de mouvement à partir de l’énergie cinétique et potentielle du système. 2 Ajouter la force due à l’amortisseur en reprenant le terme dû au ressort et en remplaçant k par c et x par dx/dt 3 Retrouver la même équation de mouvement en appliquant le PFD (incluant aussi l’effet de l’amortisseur) 4 Trouver la pulsation propre wn en fonction de k et m, le taux d’amortissement zeta en fonction de c, m et wn et la pulsation amortie wd en fonction de wn et zeta. 5 A l’instant t=0, le cylindre est écarté de sa position d’équilibre de x0=-0.2 m...

  Analyse d’accélérations  Pour cet exercice les vitesses des différentes barres sont : w2=10.47 rd/s, w3=21.53 rd/s, w4=0.95 rd/s, w5=4.26 rd/s et w7=4.18 rd/s. L’accélération du point A est donnée (vitesse w2 constante). 1. Trouver graphiquement l’accélération du point B 2. Trouver graphiquement l’accélération du point C 3. Trouver graphiquement l’accélération du point D 4. Trouver l’accélération angulaire a5 5. Trouver l’accélération angulaire a7 6. Trouver l’accélération angulaire a4

  Dans cette vidéo, les CIRs sont déterminés et utilisés pour trouver les vitesses des articulations B, C et D. Puis les vitesses de rotation sont trouvées.

  On utilise la propriété de l'équiprojectivité de vitesses pour déterminer les vitesses linéaires des articulations ainsi que les vitesses angulaires des différentes barres. La manivelle OA tourne à la vitesse de 100 tr/mn. On demande de trouver: La vitesse angulaire de la barre QB La vitesse du point B La vitesse du point C La vitesse du point D La vitesse angulaire de la barre BC La vitesse angulaire de la barre AC La vitesse angulaire de la barre CD Le problème résolu sut Geogebra

  On utilise la méthode des polygones de vitesses pour déterminer les vitesses linéaires des articulations ainsi que les vitesses angulaires des différentes barres. La manivelle OA tourne à la vitesse de 100 tr/mn. On demande de trouver: La vitesse angulaire de la barre QB La vitesse du point B La vitesse du point C La vitesse du point D La vitesse angulaire de la barre BC La vitesse angulaire de la barre AC La vitesse angulaire de la barre CD Le problème est résolu sur Geogebra