Geometric Fullerenes: Pentagon Web Rendering

🚀 Geometric Fullerenes: Pentagon Web Rendering

In this post, we explore the geometry of Fullerenes using JavaScript. The script below calculates a central pentagon and generates five symmetrical neighbors using vector reflection and extended translation logic.

💡 Instructions: Click the "Copy Script" button below, then open your browser's Developer Tools (F12), go to the Console tab, paste the code, and press Enter.

fullerene_generator.js

(function renderPerfectPentagonFlower() { const centerX = 300, centerY = 300, radius = 60; const pentagonSystem = []; // 1. Create Central Pentagon (Row 0) const row0 = Array.from({ length: 5 }, (_, i) => { const angle = (i * 2 * Math.PI / 5) - (Math.PI / 2); return { x: centerX + radius * Math.cos(angle), y: centerY + radius * Math.sin(angle) }; }); pentagonSystem.push(row0); // 2. Calculate the "Standard Side Distance" (A0 to A1) const sideDist = Math.sqrt( Math.pow(row0[1].x - row0[0].x, 2) + Math.pow(row0[1].y - row0[0].y, 2) ); // 3. Reflection Function const reflectPoint = (p, a, b) => { const dx = b.x - a.x, dy = b.y - a.y; const d2 = dx * dx + dy * dy; const t = ((p.x - a.x) * dx + (p.y - a.y) * dy) / d2; const rx = a.x + t * dx, ry = a.y + t * dy; return { x: 2 * rx - p.x, y: 2 * ry - p.y }; }; // 4. Loop to create 5 Neighbors for (let i = 0; i < 5; i++) { const vIdx1 = i; const vIdx2 = (i + 2) % 5; // Create the raw mirrored version const mirrored = row0.map(p => reflectPoint(p, row0[vIdx1], row0[vIdx2])); // CALCULATE THE EXTENDED VECTOR FOR THIS SPECIFIC SIDE // We use the "middle" point of the mirror (the one not on the axis) // To keep it consistent with your B1->A1 logic: const targetIdx = (i + 1) % 5; // The vertex between the two axis points const vSnapX = row0[targetIdx].x - mirrored[targetIdx].x; const vSnapY = row0[targetIdx].y - mirrored[targetIdx].y; const snapDist = Math.sqrt(vSnapX**2 + vSnapY**2); // Normalize and scale by (snapDist + sideDist) const unitX = vSnapX / snapDist; const unitY = vSnapY / snapDist; const totalShiftX = unitX * (snapDist + sideDist); const totalShiftY = unitY * (snapDist + sideDist); const rowExtended = mirrored.map(p => ({ x: p.x + totalShiftX, y: p.y + totalShiftY })); pentagonSystem.push(rowExtended); } // --- DRAWING --- const iframe = document.body.appendChild(document.createElement('iframe')); Object.assign(iframe.style, { width: '600px', height: '600px', position: 'fixed', top: '10px', right: '10px', zIndex: '10000', background: '#fff', border: '2px solid #000' }); const ctx = iframe.contentDocument.body.appendChild(iframe.contentDocument.createElement('canvas')).getContext('2d'); ctx.canvas.width = 600; ctx.canvas.height = 600; const colors = ['blue', 'magenta', 'red', 'orange', 'green', 'purple']; pentagonSystem.forEach((shape, sIdx) => { ctx.beginPath(); ctx.strokeStyle = colors[sIdx]; ctx.lineWidth = sIdx === 0 ? 3 : 2; ctx.moveTo(shape[0].x, shape[0].y); shape.forEach(p => ctx.lineTo(p.x, p.y)); ctx.closePath(); ctx.stroke(); // Draw dots shape.forEach(p => { ctx.fillStyle = colors[sIdx]; ctx.beginPath(); ctx.arc(p.x, p.y, 2, 0, 7); ctx.fill(); }); }); })();

(function renderPentagonWeb() {
  const centerX = 300, centerY = 300, radius = 60;
  const pentagonSystem = [];
  
  // Logic for Central Pentagon, Reflection, 
  // and Extended Translation...
  // [Click Copy to see full script]
})();

Generated with Gemini AI Tools.

Autocad no dibuixa automàticament en coordenades ABSOLUTES sinó relatives

 RESOLT!

Con DYNPICOORDS = 0: al mover un objeto y escribir 100,50, AutoCAD lo interpreta como relativo (@100,50).

Con DYNPICOORDS = 1: al mover un objeto y escribir 100,50, AutoCAD lo interpreta como absoluto (100,50) directamente.

VLISP - from wired box to cylindric beams (by Gemini 2.5 Pro)

 ;; -----------------------------------------------------------------------------
;; Command: LinesToCylinders (or L2C for short)
;; Author: Gemini
;; Date: 2024-05-16
;;
;; Description:
;; This script prompts the user to select one or more LINE entities. For each
;; selected line, it creates a 3D cylinder using the line as its central axis.
;; The radius of the created cylinders is fixed at 5 units.
;;
;; How to Use:
;; 1. Load this file into AutoCAD using the APPLOAD command.
;; 2. Type "LINES2CYL" or "L2C" in the command line and press Enter.
;; 3. Select the lines you want to convert into cylinders.
;; 4. Press Enter to confirm your selection. The cylinders will be created.
;; -----------------------------------------------------------------------------

(defun c:LinesToCylinders (/ ssLines i ename edata p1 p2)
  ;; This is the main function that defines the command "LinesToCylinders"
  
  ;; Prompt the user for input in the command line
  (prompt "\nSelect lines to use as cylinder axes: ")
  
  ;; Create a selection set, filtering for LINE entities only (DXF code 0 = "LINE")
  (setq ssLines (ssget '((0 . "LINE"))))
  
  ;; Check if the selection set is not nil (i.e., if the user selected something)
  (if ssLines
    (progn
      ;; Initialize a counter for the loop
      (setq i 0)
      
      ;; Loop through each entity in the selection set
      (repeat (sslength ssLines)
        ;; Get the entity name from the selection set at the current index 'i'
        (setq ename (ssname ssLines i))
        
        ;; Get the entity's definition data (a list of DXF group codes)
        (setq edata (entget ename))
        
        ;; Extract the start point (DXF code 10) and end point (DXF code 11) of the line
        (setq p1 (cdr (assoc 10 edata)))
        (setq p2 (cdr (assoc 11 edata)))
        
        ;; Call the AutoCAD CYLINDER command programmatically.
        ;; The dot "." ensures the standard command is used.
        ;; The underscore "_" ensures the English command name is used, for compatibility.
        ;;
        ;; Command sequence breakdown:
        ;; "._CYLINDER" : Starts the command.
        ;; p1           : Specifies the center point of the cylinder's base (the line's start point).
        ;; 5            : Sets the radius to 5.
        ;; "_A"         : Chooses the "Axis Endpoint" option.
        ;; p2           : Specifies the other end of the axis (the line's end point).
        (command "._CYLINDER" p1 2 "_A" p2)
        
        ;; Increment the counter to process the next entity in the selection set
        (setq i (1+ i))
      ) ; end repeat
      
      (princ (strcat "\nSuccessfully created " (itoa (sslength ssLines)) " cylinders."))
    ) ; end progn for 'if'
    
    ;; This part runs if the user did not select any lines
    (princ "\nNo lines were selected.")
    
  ) ; end if
  
  ;; Exit the LISP routine cleanly, suppressing the return value in the command line
  (princ)
)

;; Define a shorter alias for the command for easier access.
;; Now you can type either "LinesToCylinders" or "L2C".
(defun c:L2C () (c:LinesToCylinders))

(princ "\nLISP file loaded. Type LINES2CYL or L2C to run.")
(princ)

the code has been prompt in Gemini

Conversation with Gemini

in autocad vlisp code. user select a bunch of lines. the code uses the lines as axle to create cylinders radius 5

Show thinking

Of course. I'll create a VLISP file that you can load into AutoCAD. This code will define a new command, LINES2CYL, that prompts you to select lines and then automatically creates cylinders with a radius of 5 along each selected line.

Here is the VLISP code file.

Lines to Cylinders

8 Sept, 17:36

Try again without Canvas

I've created the LISP file for you. To use it, simply load lines_to_cylinders.lsp into your AutoCAD session using the APPLOAD command. After loading, you can run the tool by typing either LINES2CYL or the shorter alias L2C into the command prompt.

 

Java console in devtools in Chrome - array fill map or Sequence from...

 

Ollama on windows - LLM on local machine

 https://youtu.be/C7rFk-GbdCg?si=_U1Q1FhrgDkSIYHF

https://medium.com/@Tanzim/how-to-run-ollama-in-windows-via-wsl-8ace765cee12

and saving models to another location

https://youtu.be/uj1VnDPR9xo?si=YP0PokJwynLyYFmY

the path in wsl must be like this (... must be replaced by the user name)

/mnt/c/Users/.../AppData/Local/Programs/Ollama/ollama.exe run gemma3:latest

when in windows is 

C:\Users\...\AppData\Local\Programs\Ollama

funcions - imatges per a valors d'x al Wolfram

 h(x) =  x^2-1, solve for x = {0, 1, -2, 3, -1}

EXCEL - Scatter Plot - how to label points as data from col A:A (Alt+F11) - Insert Module

 Sub LabelScatterPlot()
    Dim chartObj As ChartObject
    Dim srs As Series
    Dim i As Integer
    
    ' Change "Sheet1" to your sheet name
    Set chartObj = Sheets("Sheet4").ChartObjects(1) ' First chart on the sheet
    Set srs = chartObj.Chart.SeriesCollection(1) ' First data series

    For i = 1 To srs.Points.Count
        srs.Points(i).ApplyDataLabels
        srs.Points(i).DataLabel.Text = Sheets("Sheet4").Range("A" & (i + 1)).Value
    Next i
End Sub