🧬 Die 4 universalen DTIM-Prinzipien der Element-Geometrie:

• 1. Die Ordnungszahl $Z$ als Knoten-Topologie Index ($K_Z$):
  Protonen sind keine kügelchenförmigen Teilchen, sondern die Anzahl der primären Verdrillungen der Adjazenzmatrix $\mathbf{A}_{ij}$ im lokalen Knotenpunkt. $Z$ entspricht exakt dem topologischen Windungs-Index $K_Z$ des Raumes.
• 2. Neutronen $N$ als EVM-Phasen-Puffer:
  Neutronen liefern die notwendige Entropie-Dämpfung über den Extended Void Bus. Ohne ausreichende Neutronen-Puffer verfällt die verdrillte Matrix in eine Phasen-Scherung (Radioaktiver $\beta$-Zerfall).
• 3. Elektronen als harmonische Feld-Knotenwellen:
  Elektronenschalen ($s, p, d, f, g$) sind die dreidimensionalen Stehwellen-Muster, die entstehen, wenn der verdrillte Kern mit der 15,625-kHz-Taktung des Quanten-Vakuums in Resonanz tritt.
• 4. Die magischen Zahlen als geometrische Raumsymmetrien:
  Stabile Isotope (wie Blei-208 oder Helium-4) markieren vollständige, kompressionsfreie Polyeder-Arretierungen im DTIM-Gitter.

Beim Eisen-Peak ($Z=26, A=56$) erreicht der Term $\operatorname{Tr}(\mathbf{A}_{ij} \cdot \Delta_G)$ sein absolutes Minimum – das stabilste Atomgitter des Universums.

Bei Oganesson ($Z=118$) nähert sich die Elektronengeschwindigkeit im innersten Orbit Lichtgeschwindigkeit ($Z\alpha \approx 0{,}86$). Die Elektronen-Stehwellen verschmieren zu einem quasi-kontinuierlichen Fermi-Gas um den Kern.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_PSE_Element_Resonance_Matrix.pde - PSE Topological Node & Shell Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int atomicNumberZ = 1; // Interactive atomic number 1 (H) to 118 (Og)
float shellStep = 0.0f;
String[] elementNames = {"H (Wasserstoff)", "Fe (Eisen)", "Pb (Blei)", "U (Uran)", "Og (Oganesson)"};
int[] targetZ = {1, 26, 82, 92, 118};
int currentElementIdx = 0;

void setup() {
  size(800, 380);
  println("[DTIM-PSE] Initializing Periodic Table Topological Engine...");
}

void draw() {
  background(11, 15, 25);
  
  // Cycle through showcase elements smoothly
  shellStep += 0.02f;
  if (frameCount % 180 == 0) {
    currentElementIdx = (currentElementIdx + 1) % targetZ.length;
  }
  atomicNumberZ = targetZ[currentElementIdx];
  
  translate(width/2, height/2 + 10);
  
  // Render Topological Atomic Knot Core
  int protonNodes = atomicNumberZ;
  float coreRadius = map(protonNodes, 1, 118, 12.0f, 55.0f);
  
  // Superheavy EVM Instability Pulse for Z >= 93
  if (atomicNumberZ > 92) {
    float alphaPurge = sin(frameCount * 0.3f) * 15.0f;
    stroke(239, 68, 68, 180); // Red Decay Warning
    strokeWeight(2);
    noFill();
    ellipse(0, 0, (coreRadius + alphaPurge) * 2.8f, (coreRadius + alphaPurge) * 2.8f);
  }
  
  // Core Knot Structure
  noStroke();
  if (atomicNumberZ == 26) fill(52, 211, 153);      // Eisen Stable Green
  else if (atomicNumberZ <= 2) fill(56, 189, 248);   // Primordial Blue
  else if (atomicNumberZ <= 92) fill(251, 191, 36);  // Stable Heavy Amber
  else fill(192, 132, 252);                         // Oganesson Purple
  
  ellipse(0, 0, coreRadius * 2, coreRadius * 2);
  
  // Render Electron Standing Wave Shells
  int numShells = (int)map(atomicNumberZ, 1, 118, 1, 7);
  noFill();
  strokeWeight(1.5f);
  
  for (int s = 1; s <= numShells; s++) {
    float r = coreRadius + s * 22.0f;
    
    if (atomicNumberZ == 118) {
      // Oganesson Relativistic Shell Smearing
      stroke(192, 132, 252, 120 + sin(shellStep + s) * 60);
    } else {
      stroke(56, 189, 248, 140);
    }
    
    ellipse(0, 0, r * 2, r * 2);
    
    // Electron Nodes on Shell
    int electronsOnShell = min(atomicNumberZ, s * 8);
    for (int e = 0; e < electronsOnShell; e++) {
      float angle = (TWO_PI / electronsOnShell) * e + shellStep * (s % 2 == 0 ? 1 : -1);
      float ex = r * cos(angle);
      float ey = r * sin(angle);
      
      fill(255, 255, 255);
      noStroke();
      ellipse(ex, ey, 5, 5);
    }
  }
  
  resetMatrix();
  drawPSEOverlay();
}

void drawPSEOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(52, 211, 153);
  textSize(13);
  text("DTIM-ZEC ASTROPHYSIKALISCHES HANDBUCH // LEHRMEINUNG: PERIODENSYSTEM (Z=1 BIS 118)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("AKTUELL DEMONSTRIERT: " + elementNames[currentElementIdx] + " | KNOTEN-INDEX Z = " + atomicNumberZ, 35, 62);
  
  if (atomicNumberZ == 26) {
    fill(52, 211, 153);
    text("TOPOLOGIE-STATUS: EISEN-PEAK // Absolutes Gitter-Spannungs-Minimum", 35, 82);
  } else if (atomicNumberZ == 118) {
    fill(192, 132, 252);
    text("TOPOLOGIE-STATUS: OGANESSON (Z=118) // Relativistische 7p-Schalen-Verschmierung", 35, 82);
  } else if (atomicNumberZ > 92) {
    fill(239, 68, 68);
    text("TOPOLOGIE-STATUS: UNSTABILER TRANSURAN-KNOTEN // EVM-Alpha-Purge aktiv", 35, 82);
  } else {
    fill(56, 189, 248);
    text("TOPOLOGIE-STATUS: NATÜRLICHER KNOTEN // Harmonische Gitter-Arretierung nominal", 35, 82);
  }
}

Für $N=0$ (Protium) und $N=1$ (Deuterium) bleibt der Term positiv (stabil). Ab $N=2$ (Tritium) wird die Phasen-Scherung $N^2 / (2 \operatorname{Tr}(\mathbf{A}_{ij}))$ instabil.

Ein Neutron wandelt sich durch Entlastung der Adjazenzmatrix in ein Proton um. Der Gesamtknoten-Index erhöht sich spontan von $K_1 \to K_2$ (Helium-3).

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_001_Hydrogen_Isotopes.pde - Topological Hydrogen Isotope Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Protium (H-1), 1: Deuterium (H-2), 2: Tritium (H-3)
float wavePhase = 0.0f;
String[] isotopeNames = {"Protium (1H) - Stabil", "Deuterium (2H / D) - Stabil", "Tritium (3H / T) - Radioaktiv (12.32a)"};
int[] neutronCounts = {0, 1, 2};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 001 (Hydrogen) Isotope Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.04f;
  
  // Switch isotope mode automatically every 3 seconds
  if (frameCount % 180 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s Electron Standing Wave Orbital
  strokeWeight(1.5f);
  stroke(56, 189, 248, 140);
  noFill();
  float orbitalRadius = 110.0f;
  ellipse(0, 0, orbitalRadius * 2, orbitalRadius * 2);
  
  // Electron Node on Standing Wave
  float ex = orbitalRadius * cos(wavePhase);
  float ey = orbitalRadius * sin(wavePhase);
  fill(56, 189, 248);
  noStroke();
  ellipse(ex, ey, 8, 8);
  
  // Render Nucleus (Proton Knot + EVM Neutron Dampers)
  // Central Proton Knot
  fill(52, 211, 153);
  ellipse(0, 0, 22, 22);
  
  // EVM Neutron Dampers
  for (int n = 0; n < neutrons; n++) {
    float angle = wavePhase * 0.5f + (TWO_PI / max(1, neutrons)) * n;
    float nx = 20.0f * cos(angle);
    float ny = 20.0f * sin(angle);
    
    if (isotopeMode == 2) {
      fill(251, 191, 36); // Tritium EVM Instability Warning Amber
    } else {
      fill(148, 163, 184); // Stable Neutron Slate
    }
    ellipse(nx, ny, 18, 18);
  }
  
  // Tritium Beta-Decay Phase-Shoring Glow
  if (isotopeMode == 2) {
    noFill();
    stroke(251, 191, 36, 100 + sin(wavePhase * 4) * 80);
    strokeWeight(2);
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawHydrogenOverlay();
}

void drawHydrogenOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(56, 189, 248);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 001: WASSERSTOFF (H)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 1 Proton, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: UNGEPUFFERTER MONOPOL-KNOTEN // Unendlich stabil", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: DIPOL-EVM-PUFFER // Ausgezeichnete Fusions-Resonanz", 35, 82);
  } else {
    fill(251, 191, 36);
    text("MATRIX-STATUS: PHASEN-ÜBERPUFFERUNG // Beta-Purge zu Helium-3 aktiv", 35, 82);
  }
}

Alle vier Nukleonen besetzen denselben Raumpunkt im topologischen Graphen mit symmetrisch gegeneinander ausgelöschtem Phasen-Spin.

Im superfluiden Zustand ($\text{He-II}$) koppeln die Helium-Atomknoten verlustfrei an die $15{,}625\,\text{kHz}$-Vakuum-Taktung. Die Viskosität bricht exakt auf Null ein.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_002_Helium_Isotopes.pde - Topological Helium Isotope & Halo Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: He-3, 1: He-4 (Alpha), 2: He-6 (Halo)
float wavePhase = 0.0f;
String[] isotopeNames = {"Helium-3 (3He) - Stabil / Kryo", "Helium-4 (4He) - Doppelt Magisch / Alpha", "Helium-6 (6He) - 2-Neutronen-Halo (806ms)"};
int[] neutronCounts = {1, 2, 4};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 002 (Helium) Isotope Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.04f;
  
  // Switch isotope mode automatically every 3 seconds
  if (frameCount % 180 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Closed Shell Electron Standing Wave
  strokeWeight(1.5f);
  stroke(251, 191, 36, 140); // Noble Gas Amber Wave
  noFill();
  float orbitalRadius = 100.0f;
  ellipse(0, 0, orbitalRadius * 2, orbitalRadius * 2);
  
  // Two Antiparallel Electrons on 1s Shell
  fill(251, 191, 36);
  noStroke();
  float e1x = orbitalRadius * cos(wavePhase);
  float e1y = orbitalRadius * sin(wavePhase);
  float e2x = orbitalRadius * cos(wavePhase + PI);
  float e2y = orbitalRadius * sin(wavePhase + PI);
  ellipse(e1x, e1y, 7, 7);
  ellipse(e2x, e2y, 7, 7);
  
  // Render Nucleus Structure
  // 2 Protons (Green)
  fill(52, 211, 153);
  ellipse(-8, -8, 18, 18);
  ellipse(8, 8, 18, 18);
  
  // Core Neutrons (Slate)
  int coreNeutrons = min(2, neutrons);
  fill(148, 163, 184);
  if (coreNeutrons >= 1) ellipse(8, -8, 18, 18);
  if (coreNeutrons >= 2) ellipse(-8, 8, 18, 18);
  
  // Render Halo Neutrons for He-6
  if (isotopeMode == 2) {
    float haloRadius = 48.0f + sin(wavePhase * 2) * 5.0f;
    stroke(248, 113, 113, 120);
    strokeWeight(1.5f);
    noFill();
    ellipse(0, 0, haloRadius * 2, haloRadius * 2);
    
    // 2 Halo Neutrons in Extended EVM Cloud
    fill(248, 113, 113);
    noStroke();
    float h1x = haloRadius * cos(wavePhase * 1.5f);
    float h1y = haloRadius * sin(wavePhase * 1.5f);
    float h2x = haloRadius * cos(wavePhase * 1.5f + PI);
    float h2y = haloRadius * sin(wavePhase * 1.5f + PI);
    ellipse(h1x, h1y, 14, 14);
    ellipse(h2x, h2y, 14, 14);
  }
  
  resetMatrix();
  drawHeliumOverlay();
}

void drawHeliumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(251, 191, 36);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 002: HELIUM (He)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | NUKLEONEN: 2 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: ASYMMETRISCHER DIPOL // Spin-1/2 Fermionen-Superfluiditat", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: DOPPELT MAGISCHE ARRETIERUNG // Alpha-Knoten unendlich stabil", 35, 82);
  } else {
    fill(248, 113, 113);
    text("MATRIX-STATUS: HALO-EVACUATION ACTIVE // Ausgedehnte EVM-Neutronenwolke", 35, 82);
  }
}

Der Helium-Rumpf schirmt die Kernladung effektiv ab ($\sigma_{\text{core}} \approx 1{,}72$), wodurch die $2s^1$-Stehwelle leicht abspaltbar bleibt.

Aufgrund der minimalen Halo-Bindungsenergie $E_{\text{halo}} \approx 300\,\text{keV}$ dehnt das DTIM-Gitter die 2-Neutronen-Wolke makroskopisch aus. Entfernt man ein einzelnes Halo-Neutron, zerfällt das verbleibende System sofort (Borromäische Kopplung).

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_003_Lithium_Isotopes.pde - Lithium Tripol & Borromean Halo Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Li-6, 1: Li-7, 2: Li-11 (Halo)
float wavePhase = 0.0f;
String[] isotopeNames = {"Lithium-6 (6Li) - Stabil / a+d Cluster", "Lithium-7 (7Li) - Stabil / a+t Hauptisotop", "Lithium-11 (11Li) - 2-Neutronen-Halo (8.75ms)"};
int[] neutronCounts = {3, 4, 8};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 003 (Lithium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Shell Orbital
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Helium-Core Amber
  noFill();
  float radius1s = 65.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // 2 Inner Electrons (1s2)
  fill(251, 191, 36);
  noStroke();
  ellipse(radius1s * cos(wavePhase * 1.5f), radius1s * sin(wavePhase * 1.5f), 6, 6);
  ellipse(radius1s * cos(wavePhase * 1.5f + PI), radius1s * sin(wavePhase * 1.5f + PI), 6, 6);
  
  // Render 2s1 Outer Valence Shell Orbital
  strokeWeight(1.8f);
  stroke(192, 132, 252, 180); // Lithium Purple Valence
  noFill();
  float radius2s = 125.0f;
  ellipse(0, 0, radius2s * 2, radius2s * 2);
  
  // 1 Outer Valence Electron (2s1)
  fill(192, 132, 252);
  noStroke();
  float valX = radius2s * cos(wavePhase * 0.7f);
  float valY = radius2s * sin(wavePhase * 0.7f);
  ellipse(valX, valY, 9, 9);
  
  // Render Nucleus Structure (3 Protons + N Neutrons)
  // 3 Protons (Tripol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 3; p++) {
    float angle = (TWO_PI / 3.0f) * p + wavePhase * 0.2f;
    ellipse(10.0f * cos(angle), 10.0f * sin(angle), 16, 16);
  }
  
  // Core Neutrons (Slate)
  int coreNeutrons = min(6, neutrons);
  fill(148, 163, 184);
  for (int n = 0; n < coreNeutrons; n++) {
    float angle = (TWO_PI / max(1, coreNeutrons)) * n - wavePhase * 0.2f;
    ellipse(18.0f * cos(angle), 18.0f * sin(angle), 15, 15);
  }
  
  // Render Massive Borromean Halo Neutrons for Li-11
  if (isotopeMode == 2) {
    float haloRadius = 85.0f + sin(wavePhase * 3.0f) * 6.0f;
    stroke(248, 113, 113, 150);
    strokeWeight(1.5f);
    noFill();
    ellipse(0, 0, haloRadius * 2, haloRadius * 2);
    
    // 2 Borromean Halo Neutrons in Extended Orbit
    fill(248, 113, 113);
    noStroke();
    float h1x = haloRadius * cos(wavePhase * 1.2f);
    float h1y = haloRadius * sin(wavePhase * 1.2f);
    float h2x = haloRadius * cos(wavePhase * 1.2f + 2.4f);
    float h2y = haloRadius * sin(wavePhase * 1.2f + 2.4f);
    ellipse(h1x, h1y, 14, 14);
    ellipse(h2x, h2y, 14, 14);
  }
  
  resetMatrix();
  drawLithiumOverlay();
}

void drawLithiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(192, 132, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 003: LITHIUM (Li)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 3 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: ALPHA+DEUTERON CLUSTER // Symmetrisches Brüt-Isotop", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: ALPHA+TRITON CLUSTER // Kosmologisches Haupt-Gleichgewicht", 35, 82);
  } else {
    fill(248, 113, 113);
    text("MATRIX-STATUS: BORROMÄISCHER 2-NEUTRONEN-HALO // Radius entspricht 208Pb!", 35, 82);
  }
}

Da zwei getrennte Helium-4-Tetraeder eine höhere Gitter-Symmetrie aufweisen als der ungepufferte $^8\text{Be}$-Knoten, zerfällt die Matrix spontan.

Das elfte Nukleon kehrt die Schalen-Parität von $1p_{1/2}$ auf $2s_{1/2}$ um und bildet eine weit ausgedehnte, schwach gebundene EVM-Halo-Welle.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_004_Beryllium_Isotopes.pde - Beryllium Tetrapol & Halo Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Be-8 (Spaltung), 1: Be-9 (Stabil), 2: Be-11 (1-Neutron-Halo)
float wavePhase = 0.0f;
String[] isotopeNames = {"Beryllium-8 (8Be) - Instabil (8.2e-17s) / 2a-Spaltung", "Beryllium-9 (9Be) - Stabil / 100% Hauptisotop", "Beryllium-11 (11Be) - 1-Neutronen-Halo (13.81s)"};
int[] neutronCounts = {4, 5, 7};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 004 (Beryllium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Shell Orbital
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Helium-Core Amber
  noFill();
  float radius1s = 55.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // 2 Inner Electrons (1s2)
  fill(251, 191, 36);
  noStroke();
  ellipse(radius1s * cos(wavePhase * 1.5f), radius1s * sin(wavePhase * 1.5f), 6, 6);
  ellipse(radius1s * cos(wavePhase * 1.5f + PI), radius1s * sin(wavePhase * 1.5f + PI), 6, 6);
  
  // Render 2s2 Closed Subshell Valence Orbital
  strokeWeight(1.8f);
  stroke(56, 189, 248, 180); // Beryllium Blue Valence
  noFill();
  float radius2s = 115.0f;
  ellipse(0, 0, radius2s * 2, radius2s * 2);
  
  // 2 Valence Electrons (2s2)
  fill(56, 189, 248);
  noStroke();
  ellipse(radius2s * cos(wavePhase * 0.8f), radius2s * sin(wavePhase * 0.8f), 8, 8);
  ellipse(radius2s * cos(wavePhase * 0.8f + PI), radius2s * sin(wavePhase * 0.8f + PI), 8, 8);
  
  // Render Nucleus Structure
  if (isotopeMode == 0) {
    // Be-8 Spontaneous 2-Alpha Fission Motion
    float splitOffset = sin(wavePhase * 4.0f) * 18.0f;
    
    // Alpha Cluster 1
    fill(52, 211, 153);
    ellipse(-splitOffset - 8, 0, 14, 14);
    ellipse(-splitOffset + 8, 0, 14, 14);
    fill(148, 163, 184);
    ellipse(-splitOffset, -8, 14, 14);
    ellipse(-splitOffset, 8, 14, 14);
    
    // Alpha Cluster 2
    fill(52, 211, 153);
    ellipse(splitOffset - 8, 0, 14, 14);
    ellipse(splitOffset + 8, 0, 14, 14);
    fill(148, 163, 184);
    ellipse(splitOffset, -8, 14, 14);
    ellipse(splitOffset, 8, 14, 14);
    
    stroke(239, 68, 68, 180);
    strokeWeight(1.5f);
    noFill();
    ellipse(0, 0, (splitOffset + 20) * 2, (splitOffset + 20) * 2);
    
  } else {
    // 4 Protons (Tetrapol Green)
    fill(52, 211, 153);
    for (int p = 0; p < 4; p++) {
      float angle = (TWO_PI / 4.0f) * p + wavePhase * 0.2f;
      ellipse(12.0f * cos(angle), 12.0f * sin(angle), 15, 15);
    }
    
    // Core Neutrons (Slate)
    int coreNeutrons = min(5, neutrons);
    fill(148, 163, 184);
    for (int n = 0; n < coreNeutrons; n++) {
      float angle = (TWO_PI / max(1, coreNeutrons)) * n - wavePhase * 0.2f;
      ellipse(20.0f * cos(angle), 20.0f * sin(angle), 14, 14);
    }
    
    // Render 1-Neutron Halo for Be-11
    if (isotopeMode == 2) {
      float haloRadius = 78.0f + sin(wavePhase * 2.5f) * 5.0f;
      stroke(192, 132, 252, 160);
      strokeWeight(1.5f);
      noFill();
      ellipse(0, 0, haloRadius * 2, haloRadius * 2);
      
      // Single Halo Neutron in 2s1/2 Orbit
      fill(192, 132, 252);
      noStroke();
      float hx = haloRadius * cos(wavePhase * 1.1f);
      float hy = haloRadius * sin(wavePhase * 1.1f);
      ellipse(hx, hy, 14, 14);
    }
  }
  
  resetMatrix();
  drawBerylliumOverlay();
}

void drawBerylliumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(56, 189, 248);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 004: BERYLLIUM (Be)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 4 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(239, 68, 68);
    text("MATRIX-STATUS: 2-ALPHA FLASCHENHALS // Spontane Gitter-Spaltung in 2x 4He", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: 2a+n PUFFER-GLEICHGEWICHT // Unendlich stabiles Hauptisotop", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: PARITÄTS-INVERTIERTER 1-NEUTRONEN-HALO // 2s1/2 Halo-Orbit", 35, 82);
  }
}

Beim Einfang eines thermischen Neutrons ($E \to 0$) zerfällt der Zwischenkern $^{11}\text{B}^*$ exotherm in ein $1{,}47\,\text{MeV}$ Alpha-Teilchen ($\alpha$) und einen $0{,}84\,\text{MeV}$ Lithium-7-Knoten ($^7\text{Li}$).

Aufgrund der extrem niedrigen Protonen-Trennenergie $S_p = 137\,\text{keV}$ tunnelt das fünfte Proton weit durch die Coulomb-Barriere des Raum-Graphen nach außen.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_005_Boron_Isotopes.pde - Boron Pentapol & 2p1 Asymmetry Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: B-8 (Proton Halo), 1: B-10 (Neutron Trap), 2: B-11 (Stable Main)
float wavePhase = 0.0f;
String[] isotopeNames = {"Bor-8 (8B) - Protonen-Halo (770ms) / Solar Neutrinos", "Bor-10 (10B) - EVM-Neutronenfalle (3837 barn) / BNCT", "Bor-11 (11B) - Stabil (80.1%) / 2a+t Cluster"};
int[] neutronCounts = {3, 5, 6};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 005 (Boron) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Core Shell
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Amber Core
  noFill();
  float radius1s = 45.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // Render 2s2 Closed Subshell Orbital
  strokeWeight(1.5f);
  stroke(56, 189, 248, 140); // Blue Subshell
  float radius2s = 90.0f;
  ellipse(0, 0, radius2s * 2, radius2s * 2);
  
  // Render 2p1 Dumbbell Orbital (Directional Asymmetry on X-Axis)
  strokeWeight(1.8f);
  stroke(251, 191, 36, 180); // Boron Amber 2p Lobe
  noFill();
  float lobeOffset = 115.0f;
  float lobeWidth = 50.0f;
  ellipse(-lobeOffset * 0.5f, 0, lobeOffset, lobeWidth);
  ellipse(lobeOffset * 0.5f, 0, lobeOffset, lobeWidth);
  
  // Single 2p1 Valence Electron oscillating in dumbbell lobe
  fill(251, 191, 36);
  noStroke();
  float px = cos(wavePhase * 1.5f) * (lobeOffset * 0.8f);
  float py = sin(wavePhase * 3.0f) * (lobeWidth * 0.3f);
  ellipse(px, py, 9, 9);
  
  // Render Nucleus Structure (5 Protons + N Neutrons)
  if (isotopeMode == 0) {
    // B-8 Proton Halo Core (4 Protons + 3 Neutrons in core, 1 Proton in Halo)
    fill(52, 211, 153);
    for (int p = 0; p < 4; p++) {
      float angle = (TWO_PI / 4.0f) * p + wavePhase * 0.2f;
      ellipse(10.0f * cos(angle), 10.0f * sin(angle), 14, 14);
    }
    fill(148, 163, 184);
    for (int n = 0; n < 3; n++) {
      float angle = (TWO_PI / 3.0f) * n - wavePhase * 0.2f;
      ellipse(16.0f * cos(angle), 16.0f * sin(angle), 14, 14);
    }
    
    // 1 Halo Proton in Extended Orbit
    float haloRadius = 70.0f + sin(wavePhase * 2.0f) * 4.0f;
    stroke(248, 113, 113, 160);
    strokeWeight(1.5f);
    noFill();
    ellipse(0, 0, haloRadius * 2, haloRadius * 2);
    
    fill(52, 211, 153); // Proton Green
    noStroke();
    float hpx = haloRadius * cos(wavePhase * 1.1f);
    float hpy = haloRadius * sin(wavePhase * 1.1f);
    ellipse(hpx, hpy, 15, 15);
    
  } else {
    // 5 Protons (Pentapol Green)
    fill(52, 211, 153);
    for (int p = 0; p < 5; p++) {
      float angle = (TWO_PI / 5.0f) * p + wavePhase * 0.2f;
      ellipse(12.0f * cos(angle), 12.0f * sin(angle), 14, 14);
    }
    
    // Core Neutrons (Slate)
    fill(148, 163, 184);
    for (int n = 0; n < neutrons; n++) {
      float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
      ellipse(20.0f * cos(angle), 20.0f * sin(angle), 13, 13);
    }
    
    // B-10 Neutron Trap Resonance Pulse
    if (isotopeMode == 1) {
      stroke(56, 189, 248, 120 + sin(wavePhase * 4.0f) * 80);
      strokeWeight(2);
      noFill();
      ellipse(0, 0, 55, 55);
    }
  }
  
  resetMatrix();
  drawBoronOverlay();
}

void drawBoronOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(251, 191, 36);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 005: BOR (B)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 5 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: PROTONEN-HALO // Quelle hochenergetischer solarer 8B-Neutrinos", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: RESRONANTE EVM-FALLE // 3837 barn Wirkungsquerschnitt (BNCT)", 35, 82);
  } else {
    fill(52, 211, 153);
    text("MATRIX-STATUS: 2a+t CLUSTER-GLEICHGEWICHT // Unendlich stabiles Hauptisotop", 35, 82);
  }
}

Dieser Winkel minimiert die gegenseitige Phasen-Abstoßung der vier $sp^3$-Stehwellen-Keulen in der dreidimensionalen Adjazenzmatrix $\mathbf{A}_{ij}$.

Der Betazerfall wandelt ein scherendes Neutron im $^{14}\text{C}$-Kern in ein Proton um und schließt den stabilen, doppelt-geradzahligen Stickstoff-14-Knoten.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_006_Carbon_Isotopes.pde - Carbon Hexapol & sp3 Hybridization Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: C-11 (PET), 1: C-12 (3a-Stable), 2: C-13 (NMR), 3: C-14 (Radiocarbon)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Kohlenstoff-11 (11C) - Radioaktiv (20.36m) / PET Radiotracer", 
  "Kohlenstoff-12 (12C) - Stabil (98.93%) / 3a-Hauptisotop & Massenstandard", 
  "Kohlenstoff-13 (13C) - Stabil (1.07%) / NMR-Aktiv (Spin 1/2)", 
  "Kohlenstoff-14 (14C) - Radioaktiv (5730a) / Radiokarbon-Chronometer"
};
int[] neutronCounts = {5, 6, 7, 8};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 006 (Carbon) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Core Shell
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Amber Core
  noFill();
  float radius1s = 40.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // Render sp3 Tetrahedral Hybridization 4-Lobe Orbitals
  strokeWeight(1.8f);
  stroke(52, 211, 153, 180); // Carbon Green sp3 Lobes
  noFill();
  float lobeLength = 110.0f;
  float lobeWidth = 42.0f;
  
  // 4 Tetrahedral Lobes (109.47 degrees separation)
  for (int i = 0; i < 4; i++) {
    pushMatrix();
    rotate((TWO_PI / 4.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    // 1 Valence Electron in each sp3 lobe
    fill(52, 211, 153);
    noStroke();
    float ex = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 8.0f;
    ellipse(ex, 0, 7, 7);
    popMatrix();
  }
  
  // Render Nucleus Structure (6 Protons + N Neutrons)
  // 6 Protons (Hexapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 6; p++) {
    float angle = (TWO_PI / 6.0f) * p + wavePhase * 0.2f;
    ellipse(14.0f * cos(angle), 14.0f * sin(angle), 13, 13);
  }
  
  // Core Neutrons (Slate / Purple for C-14)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 3 && n >= 6) {
      fill(192, 132, 252); // C-14 Beta-Decay Excess Neutrons Purple
    } else if (isotopeMode == 0) {
      fill(248, 113, 113); // C-11 Deficit Red
    } else {
      fill(148, 163, 184); // Normal Slate Neutrons
    }
    
    ellipse(22.0f * cos(angle), 22.0f * sin(angle), 12, 12);
  }
  
  // C-14 Radiocarbon Slow Decay Pulse
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 100 + sin(wavePhase * 3.0f) * 80);
    strokeWeight(2);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawCarbonOverlay();
}

void drawCarbonOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(52, 211, 153);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 006: KOHLENSTOFF (C)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 6 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: EVM-UNTERPUFFERUNG // Positronen-Auswurf zu 11B (PET)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: SYMMETRISCHER 3a-KNOTEN // Unendlich stabil / Massenstandard", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARER NEUTRONEN-SPIN // Spin 1/2 NMR-Resonanz-Knoten", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: PHASEN-RELAXATION (5730a) // Radiokarbon Beta-Purge zu 14N", 35, 82);
  }
}

Alle drei $2p$-Elektronen besitzen parallelen Spin, was zu maximaler konstruktiver Phasen-Überlagerung im Gitter und minimaler elektrostatischer Abstoßung führt.

Aufgrund der hohen Stabilität der ungeraden $^{14}\text{N}$-Matrix besitzt diese Reaktion den kleinsten Wirkungsquerschnitt im CNO-Zyklus und bestimmt die Brenngeschwindigkeit massereicher Sterne.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_007_Nitrogen_Isotopes.pde - Nitrogen Heptapol & 2p3 Tripod Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: N-13 (PET), 1: N-14 (Main), 2: N-15 (NMR), 3: N-16 (Gamma Emitter)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Stickstoff-13 (13N) - Radioaktiv (9.97m) / PET Myokard-Tracer", 
  "Stickstoff-14 (14N) - Stabil (99.64%) / Hauptisotop (Ungerade-Ungerade)", 
  "Stickstoff-15 (15N) - Stabil (0.36%) / Magische N=8 Schale (NMR Spin 1/2)", 
  "Stickstoff-16 (16N) - Radioaktiv (7.13s) / 6.13 MeV Hochenergie-Gamma"
};
int[] neutronCounts = {6, 7, 8, 9};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 007 (Nitrogen) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Core Shell
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Amber Core
  noFill();
  float radius1s = 38.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // Render 2s2 Closed Subshell
  strokeWeight(1.5f);
  stroke(56, 189, 248, 140); // Blue Subshell
  noFill();
  float radius2s = 75.0f;
  ellipse(0, 0, radius2s * 2, radius2s * 2);
  
  // Render 2p3 Orthogonal Tripod Lobes (px, py, pz at 120-degree projections)
  strokeWeight(1.8f);
  stroke(96, 165, 250, 180); // Nitrogen Blue 2p Lobes
  noFill();
  float lobeLength = 105.0f;
  float lobeWidth = 38.0f;
  
  for (int i = 0; i < 3; i++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    // 1 Electron per 2p lobe (Hund's Rule parallel spin alignment)
    fill(96, 165, 250);
    noStroke();
    float ex = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 6.0f;
    ellipse(ex, 0, 7, 7);
    popMatrix();
  }
  
  // Render Nucleus Structure (7 Protons + N Neutrons)
  // 7 Protons (Heptapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 7; p++) {
    float angle = (TWO_PI / 7.0f) * p + wavePhase * 0.2f;
    ellipse(14.0f * cos(angle), 14.0f * sin(angle), 12, 12);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 3 && n >= 8) {
      fill(192, 132, 252); // N-16 High-Energy Gamma Excess Neutron Purple
    } else if (isotopeMode == 0) {
      fill(248, 113, 113); // N-13 Deficit Red
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // N-15 Magic N=8 Blue
    } else {
      fill(148, 163, 184); // N-14 Main Slate Neutrons
    }
    
    ellipse(22.0f * cos(angle), 22.0f * sin(angle), 11, 11);
  }
  
  // N-16 High-Energy Gamma Pulse
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 120 + sin(wavePhase * 5.0f) * 100);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 70, 70);
  }
  
  resetMatrix();
  drawNitrogenOverlay();
}

void drawNitrogenOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(96, 165, 250);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 007: STICKSTOFF (N)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 7 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: EVM-UNTERPUFFERUNG // Positronen-Auswurf zu 13C (PET)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: UNGERADE-UNGERADE ARRETIERUNG // Stabil / CNO-Zyklus Katalysator", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: MAGISCHE N=8 NEUTRONENSCHALE // Spin 1/2 Biomolekular-NMR", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: HOCHENERGIE GAMMA-PURGE // 6.13 MeV Strahlung in Reaktoren", 35, 82);
  }
}

Der doppelte Schalenabschluss ($Z=8, N=8$) bewirkt eine extrem hohe Stabilität gegen Ausregung, wodurch $^{16}\text{O}$ zu einem der häufigsten Kerne des Kosmos wird.

Die zwei ungebundenen Elektronenpaare des Sauerstoffs stauchen den perfekten Tetraederwinkel durch stärkere Gitter-Abstoßung auf $104{,}45^\circ$ zusammen.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_008_Oxygen_Isotopes.pde - Oxygen Octapol & 2p4 Double-Acceptor Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: O-15 (PET), 1: O-16 (Doubly Magic), 2: O-17 (NMR), 3: O-18 (Paleoclimate)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Sauerstoff-15 (15O) - Radioaktiv (122s) / PET Hirndurchblutungs-Tracer", 
  "Sauerstoff-16 (16O) - Stabil (99.76%) / Doppelt Magischer 4a-Knoten", 
  "Sauerstoff-17 (17O) - Stabil (0.04%) / NMR-Aktiv (Spin 5/2)", 
  "Sauerstoff-18 (18O) - Stabil (0.21%) / Paläoklima delta18O Standard"
};
int[] neutronCounts = {7, 8, 9, 10};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 008 (Oxygen) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Core Shell
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Amber Core
  noFill();
  float radius1s = 35.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // Render 2s2 Closed Subshell
  strokeWeight(1.5f);
  stroke(56, 189, 248, 140); // Blue Subshell
  noFill();
  float radius2s = 70.0f;
  ellipse(0, 0, radius2s * 2, radius2s * 2);
  
  // Render 2p4 Angled Lobes (Acceptor Lobes for H2O Dipole)
  strokeWeight(1.8f);
  stroke(248, 113, 113, 180); // Oxygen Red 2p Lobes
  noFill();
  float lobeLength = 100.0f;
  float lobeWidth = 36.0f;
  
  // 4 Lobes (Paired 2px, Unpaired 2py and 2pz at 104.45 degree angle)
  for (int i = 0; i < 4; i++) {
    pushMatrix();
    float angle = (i < 2) ? (i * PI) : (PI * 0.29f + (i - 2) * PI);
    rotate(angle + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    fill(248, 113, 113);
    noStroke();
    float ex = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 6.0f;
    ellipse(ex, 0, 7, 7);
    
    // Paired electron on first lobe
    if (i == 0) {
      ellipse(ex - 12, 0, 7, 7);
    }
    popMatrix();
  }
  
  // Render Nucleus Structure (8 Protons + N Neutrons)
  // 8 Protons (Octapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 8; p++) {
    float angle = (TWO_PI / 8.0f) * p + wavePhase * 0.2f;
    ellipse(15.0f * cos(angle), 15.0f * sin(angle), 12, 12);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // O-15 Deficit Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // O-16 Doubly Magic Green
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // O-17 NMR Blue
    } else {
      fill(192, 132, 252); // O-18 Heavy Isotopes Purple
    }
    
    ellipse(23.0f * cos(angle), 23.0f * sin(angle), 11, 11);
  }
  
  // O-16 Doubly Magic Resonator Halo Glow
  if (isotopeMode == 1) {
    stroke(52, 211, 153, 120 + sin(wavePhase * 4.0f) * 80);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 60, 60);
  }
  
  resetMatrix();
  drawOxygenOverlay();
}

void drawOxygenOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(248, 113, 113);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 008: SAUERSTOFF (O)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 8 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: EVM-UNTERPUFFERUNG // Positronen-Auswurf zu 15N (PET)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: DOPPELT MAGISCHE ARRETIERUNG (Z=8, N=8) // 4a-Knoten unendlich stabil", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARES 1d5/2 NEUTRON // Spin 5/2 NMR-Resonanz-Knoten", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: SCHWERES STABILES ISOTOP // Geochemischer delta18O Temperatur-Standard", 35, 82);
  }
}

Die Differenz zur perfekt geschlossenen Neon-Adjazenzmatrix erzeugt das stärkste elektrostatische Saugfeld im gesamten Raumgraphen.

Das emittierte Positron annihiliert im Gewebe mit einem Elektron nach ca. $1\,\text{mm}$ Flugstrecke in zwei kolineare $511\,\text{keV}$ Gamma-Quanten ($180^\circ$-Winkel).

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_009_Fluorine_Isotopes.pde - Fluorine Enneapol & Halogen Trap Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: F-18 (PET Tracer), 1: F-19 (100% Main / NMR), 2: F-20 (Beta Emitter)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Fluor-18 (18F) - Radioaktiv (109.77m) / Globaler PET Onkologie-Tracer", 
  "Fluor-19 (19F) - Stabil (100%) / Spin 1/2 Hochauflösendes NMR-Isotop", 
  "Fluor-20 (20F) - Radioaktiv (11.16s) / Neutronen-Aktivierungs-Isotop"
};
int[] neutronCounts = {9, 10, 11};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 009 (Fluorine) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Core Shell
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Amber Core
  noFill();
  float radius1s = 32.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // Render 2s2 Closed Subshell
  strokeWeight(1.5f);
  stroke(56, 189, 248, 140); // Blue Subshell
  noFill();
  float radius2s = 65.0f;
  ellipse(0, 0, radius2s * 2, radius2s * 2);
  
  // Render 2p5 Halogen Lobes (3 Lobes: 2 paired, 1 with single electron & open vacuum hole)
  strokeWeight(1.8f);
  stroke(192, 132, 252, 180); // Fluorine Purple 2p Lobes
  noFill();
  float lobeLength = 95.0f;
  float lobeWidth = 34.0f;
  
  for (int i = 0; i < 3; i++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    fill(192, 132, 252);
    noStroke();
    float ex1 = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 5.0f;
    ellipse(ex1, 0, 7, 7);
    
    // Paired electrons on first two lobes
    if (i < 2) {
      ellipse(ex1 - 10, 0, 7, 7);
    } else {
      // Third lobe has an open Vacuum Hole indicator!
      stroke(239, 68, 68, 200);
      strokeWeight(1.5f);
      noFill();
      ellipse(ex1 - 12, 0, 9, 9); // Open Phase Hole
    }
    popMatrix();
  }
  
  // Render Nucleus Structure (9 Protons + N Neutrons)
  // 9 Protons (Enneapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 9; p++) {
    float angle = (TWO_PI / 9.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 11, 11);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // F-18 Deficit Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // F-19 Main Green
    } else {
      fill(56, 189, 248); // F-20 Beta Blue
    }
    
    ellipse(24.0f * cos(angle), 24.0f * sin(angle), 10, 10);
  }
  
  // F-18 PET Positron Emission Pulse Effect
  if (isotopeMode == 0) {
    stroke(248, 113, 113, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawFluorineOverlay();
}

void drawFluorineOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(192, 132, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 009: FLUOR (F)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 9 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: EVM-UNTERPUFFERUNG // Positronen-Auswurf zu 18O (PET-Annihilation)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: HALOGEN-STABILITÄTS-KNOTEN // Spin 1/2 Hochleistungs-NMR-Knoten", 35, 82);
  } else {
    fill(56, 189, 248);
    text("MATRIX-STATUS: NEUTRONEN-ÜBERPUFFERUNG // Beta-Purge zum Edelgas-Knoten 20Ne", 35, 82);
  }
}

Die Schließung der $2p$-Unterschale bewirkt die zweithöchste Erst-Ionisierungsenergie aller Elemente im Periodensystem (übertroffen nur von Helium).

Bei Temperaturen ab $T \ge 3 \times 10^8\,\text{K}$ überwindet ein Alpha-Teilchen den Coulomb-Wall von $^{22}\text{Ne}$ und setzt ein freies EVM-Neutron frei, das Blei und Bismut aufbaut.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_010_Neon_Isotopes.pde - Neon Decapol & Octet Noble Gas Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Ne-19 (Novae Breakout), 1: Ne-20 (5-Alpha Main), 2: Ne-21 (NMR), 3: Ne-22 (s-Process Source)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Neon-19 (19Ne) - Radioaktiv (17.22s) / Novae CNO Breakout-Knoten", 
  "Neon-20 (20Ne) - Stabil (90.48%) / 5a-Cluster Hauptisotop", 
  "Neon-21 (21Ne) - Stabil (0.27%) / Nukleogen & NMR-Aktiv (Spin 3/2)", 
  "Neon-22 (22Ne) - Stabil (9.25%) / Primäre stellare s-Prozess Neutronenquelle"
};
int[] neutronCounts = {9, 10, 11, 12};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 010 (Neon) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render 1s2 Inner Core Shell
  strokeWeight(1.2f);
  stroke(251, 191, 36, 120); // Amber Core
  noFill();
  float radius1s = 30.0f;
  ellipse(0, 0, radius1s * 2, radius1s * 2);
  
  // Render 2s2 Subshell
  strokeWeight(1.5f);
  stroke(56, 189, 248, 140); // Blue Subshell
  noFill();
  float radius2s = 60.0f;
  ellipse(0, 0, radius2s * 2, radius2s * 2);
  
  // Render 2p6 Closed Octet Shell (6 Symmetrical Orange/Red Plasma Lobes)
  strokeWeight(1.8f);
  stroke(249, 115, 22, 180); // Neon Plasma Orange 2p Lobes
  noFill();
  float lobeLength = 90.0f;
  float lobeWidth = 32.0f;
  
  for (int i = 0; i < 6; i++) {
    pushMatrix();
    rotate((TWO_PI / 6.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    // Paired Electrons on all 6 lobes (Complete Octet)
    fill(251, 146, 60);
    noStroke();
    float ex1 = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 4.0f;
    ellipse(ex1, -4, 6, 6);
    ellipse(ex1, 4, 6, 6);
    popMatrix();
  }
  
  // Render Nucleus Structure (10 Protons + N Neutrons)
  // 10 Protons (Decapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 10; p++) {
    float angle = (TWO_PI / 10.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 11, 11);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // Ne-19 Deficit Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Ne-20 5-Alpha Green
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // Ne-21 NMR Blue
    } else {
      fill(192, 132, 252); // Ne-22 s-Process Purple
    }
    
    ellipse(24.0f * cos(angle), 24.0f * sin(angle), 10, 10);
  }
  
  // Neon High-Voltage Plasma Glow Halo Effect
  stroke(249, 115, 22, 100 + sin(wavePhase * 3.0f) * 60);
  strokeWeight(2.5f);
  noFill();
  ellipse(0, 0, 115, 115);
  
  resetMatrix();
  drawNeonOverlay();
}

void drawNeonOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(249, 115, 22);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 010: NEON (Ne)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 10 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: EVM-UNTERPUFFERUNG // Positronen-Auswurf zu 19F (Novae CNO Breakout)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: 5-ALPHA EDELGAS-ARRETIERUNG // Vollkommener Oktett-Schluss unendlich stabil", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARES NEUTRONEN-OKTETT // Spin 3/2 Geochronologischer Marker", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: STELLARE NEUTRONENQUELLE // 22Ne(a,n)25Mg s-Prozess Katalysator", 35, 82);
  }
}

Der edelgasartig geschlossene Neon-Rumpf schirmt 10 der 11 Kernladungen ab ($\sigma_{\text{core}} \approx 9{,}15$), was zu einer enorm großen $3s$-Orbitalschale führt.

Der Zerfall erzeugt ein hochreines Positron sowie ein synchrones $1{,}274\,\text{MeV}$ Gamma-Quant, was exakte Laufzeit-Koinzidenzmessungen im Vakuum erlaubt.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_011_Sodium_Isotopes.pde - Sodium Undecapol & 3s1 Valence Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Na-22 (Positron Standard), 1: Na-23 (100% Main / NMR), 2: Na-24 (Gamma Activation)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Natrium-22 (22Na) - Radioaktiv (2.60a) / Langlebiger PET- & PAS-Positronen-Standard", 
  "Natrium-23 (23Na) - Stabil (100%) / Biologisches NMR-Hauptisotop (Spin 3/2)", 
  "Natrium-24 (24Na) - Radioaktiv (14.96h) / Hochenergie-Gamma Aktivierungs-Isotop"
};
int[] neutronCounts = {11, 12, 13};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 011 (Sodium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 50, 50);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 110, 110);
  
  // Render M-Shell (3s1 Outer Valence Shell)
  strokeWeight(2.0f);
  stroke(253, 224, 71, 200); // Yellow Sodium Valence Wave
  float radius3s = 135.0f;
  ellipse(0, 0, radius3s * 2, radius3s * 2);
  
  // 3s1 Single Outer Valence Electron
  fill(253, 224, 71);
  noStroke();
  float valX = radius3s * cos(wavePhase * 0.8f);
  float valY = radius3s * sin(wavePhase * 0.8f);
  ellipse(valX, valY, 10, 10);
  
  // Render Nucleus Structure (11 Protons + N Neutrons)
  // 11 Protons (Undecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 11; p++) {
    float angle = (TWO_PI / 11.0f) * p + wavePhase * 0.2f;
    ellipse(15.0f * cos(angle), 15.0f * sin(angle), 11, 11);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // Na-22 Deficit Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Na-23 Main Green
    } else {
      fill(56, 189, 248); // Na-24 Activation Blue
    }
    
    ellipse(24.0f * cos(angle), 24.0f * sin(angle), 10, 10);
  }
  
  // Na-22 Positron Emission Pulse Effect
  if (isotopeMode == 0) {
    stroke(248, 113, 113, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 70, 70);
  }
  
  resetMatrix();
  drawSodiumOverlay();
}

void drawSodiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(253, 224, 71);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 011: NATRIUM (Na)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 11 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: EVM-UNTERPUFFERUNG // Langlebige b+ Emission zu 22Ne (PAS-Standard)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: UNGERADES KNOTEN-GLEICHGEWICHT // Spin 3/2 Biomolekulares NMR-Isotop", 35, 82);
  } else {
    fill(56, 189, 248);
    text("MATRIX-STATUS: NEUTRONEN-ACTIVATOR // Beta-Purge mit doppelter g-Kaskade zu 24Mg", 35, 82);
  }
}

Durch die Besetzung von zwei Elektronen in der $3s$-Schale steigt die Ionisierungsenergie im Vergleich zum Natrium ($5{,}14\,\text{eV}$) an, bleibt aber unter den $p$-Schalen-Elementen.

Die Symmetrie aus sechs verankerten Alpha-Teilchen verleiht dem $^{24}\text{Mg}$-Kern eine der höchsten Bindungsenergien pro Nukleon in der leichten Periode.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_012_Magnesium_Isotopes.pde - Magnesium Dodecapol & 3s2 Bipolar Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Mg-24 (6-Alpha Main), 1: Mg-25 (NMR Active), 2: Mg-26 (Al-26 Radiogenic)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Magnesium-24 (24Mg) - Stabil (78.99%) / 6a-Cluster Hauptisotop & Neonbrennen", 
  "Magnesium-25 (25Mg) - Stabil (10.00%) / Biologisches NMR-Isotop (Spin 5/2)", 
  "Magnesium-26 (26Mg) - Stabil (11.01%) / Radiogenes Zerfallsprodukt von 26Al (Cosmochronometer)"
};
int[] neutronCounts = {12, 13, 14};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 012 (Magnesium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 45, 45);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 100, 100);
  
  // Render M-Shell (3s2 Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(192, 132, 252, 200); // Purple Magnesium Subshell
  float radius3s = 130.0f;
  ellipse(0, 0, radius3s * 2, radius3s * 2);
  
  // 3s2 Two Antiparallel Valence Electrons
  fill(192, 132, 252);
  noStroke();
  float valX1 = radius3s * cos(wavePhase * 0.8f);
  float valY1 = radius3s * sin(wavePhase * 0.8f);
  float valX2 = radius3s * cos(wavePhase * 0.8f + PI);
  float valY2 = radius3s * sin(wavePhase * 0.8f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (12 Protons + N Neutrons)
  // 12 Protons (Dodecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 12; p++) {
    float angle = (TWO_PI / 12.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Mg-24 6-Alpha Green
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // Mg-25 NMR Blue
    } else {
      fill(192, 132, 252); // Mg-26 Radiogenic Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  resetMatrix();
  drawMagnesiumOverlay();
}

void drawMagnesiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(192, 132, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 012: MAGNESIUM (Mg)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 12 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: SYMMETRISCHER 6a-KNOTEN // Neonbrennen-Produkt unendlich stabil", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARES 1d5/2 NEUTRON // Spin 5/2 Enzym-NMR Resonator", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: RADIOGENES ZERFALLSPRODUKT // Al-26 Cosmochronometer-Standard", 35, 82);
  }
}

Das Aufbrechen der geschlossenen $3s^2$-Symmetrie führt dazu, dass die Erstionisationsenergie von Aluminium niedriger ist als die des vorhergehenden Magnesiums ($7{,}65\,\text{eV}$).

Der Zerfall hinterlässt den angeregten Zustand $^{26}\text{Mg}^*$, dessen Abregung unter Emission der charakteristischen $1{,}809\,\text{MeV}$ Gamma-Linie die fortlaufende Nukleosynthese in der Milchstraße belegt.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_013_Aluminum_Isotopes.pde - Aluminum Tridecapol & 3p1 Asymmetry Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Al-26 (Galactic Cosmochronometer), 1: Al-27 (100% Main / NMR), 2: Al-28 (Activation)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Aluminium-26 (26Al) - Radioaktiv (7.17e5a) / Galaktischer 1.809 MeV Gamma-Emitter & Cosmochronometer", 
  "Aluminium-27 (27Al) - Stabil (100%) / Magische N=14 Schale (Spin 5/2 NMR-Standard)", 
  "Aluminium-28 (28Al) - Radioaktiv (2.24m) / Neutronen-Aktivierungs-Isotop zu 28Si"
};
int[] neutronCounts = {13, 14, 15};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 013 (Aluminum) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 40, 40);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 90, 90);
  
  // Render M-Shell Subshell (3s2 Bipolar Pair)
  strokeWeight(1.8f);
  stroke(56, 189, 248, 160); // Blue 3s Subshell
  float radius3s = 120.0f;
  ellipse(0, 0, radius3s * 2, radius3s * 2);
  
  // 3s2 Antiparallel Electrons
  fill(56, 189, 248);
  noStroke();
  float sX1 = radius3s * cos(wavePhase * 0.8f);
  float sY1 = radius3s * sin(wavePhase * 0.8f);
  float sX2 = radius3s * cos(wavePhase * 0.8f + PI);
  float sY2 = radius3s * sin(wavePhase * 0.8f + PI);
  ellipse(sX1, sY1, 8, 8);
  ellipse(sX2, sY2, 8, 8);
  
  // Render 3p1 Directional Lobe Orbital (Cyan/Sky Blue on X-Axis)
  strokeWeight(2.0f);
  stroke(125, 211, 252, 200);
  noFill();
  float lobeLength = 110.0f;
  float lobeWidth = 36.0f;
  ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
  ellipse(-lobeLength * 0.5f, 0, lobeLength, lobeWidth);
  
  // Single 3p1 Valence Electron oscillating in dumbbell lobe
  fill(125, 211, 252);
  noStroke();
  float px = cos(wavePhase * 1.5f) * (lobeLength * 0.8f);
  float py = sin(wavePhase * 3.0f) * (lobeWidth * 0.3f);
  ellipse(px, py, 9, 9);
  
  // Render Nucleus Structure (13 Protons + N Neutrons)
  // 13 Protons (Tridecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 13; p++) {
    float angle = (TWO_PI / 13.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // Al-26 Deficit Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Al-27 Main Green
    } else {
      fill(56, 189, 248); // Al-28 Activation Blue
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  // Al-26 Galactic Gamma Emission Pulse
  if (isotopeMode == 0) {
    stroke(248, 113, 113, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 70, 70);
  }
  
  resetMatrix();
  drawAluminumOverlay();
}

void drawAluminumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(125, 211, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 013: ALUMINIUM (Al)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 13 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: GALAKTISCHER GAMMA-EMITTER // 1.809 MeV Strahlung aktiver Supernovae", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHE N=14 NEUTRONENSCHALE // Spin 5/2 Material-NMR Knoten", 35, 82);
  } else {
    fill(56, 189, 248);
    text("MATRIX-STATUS: KURZLEBIGER BETA-PURGE // Neutronenaktivierung zu stabilen 28Si", 35, 82);
  }
}

Der Übergang vom Valenzband zum Leitungsband benötigt die Überwindung des topologischen Schalenabstands zwischen der geschlossenen Neon-Kernmatrix und dem ungepaarten $3sp^3$-Gitter.

Aufgrund der geschlossenen $N=14$ Neutronenschale erreicht $^{28}\text{Si}$ einen der höchsten Bindungsenergie-Werte pro Nukleon aller leichten Atomkerne.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_014_Silicon_Isotopes.pde - Silicon Tetradecapol & 3sp3 Semiconductor Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Si-28 (7-Alpha Main), 1: Si-29 (NMR Spin 1/2), 2: Si-30 (Stable Heavy), 3: Si-32 (Cosmogenic)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Silicium-28 (28Si) - Stabil (92.23%) / 7a-Cluster Hauptisotop (Magische N=14 Schale)", 
  "Silicium-29 (29Si) - Stabil (4.68%) / Festkörper NMR-Standard (Spin 1/2)", 
  "Silicium-30 (30Si) - Stabil (3.09%) / N=16 Teil-Neutronenschalen-Abschluss", 
  "Silicium-32 (32Si) - Radioaktiv (153a) / Kosmogenes Sediment- & Ozean-Chronometer"
};
int[] neutronCounts = {14, 15, 16, 18};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 014 (Silicon) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 36, 36);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 80, 80);
  
  // Render 3sp3 Tetrahedral Hybridization 4-Lobe Orbitals (Semiconductor Matrix)
  strokeWeight(1.8f);
  stroke(56, 189, 248, 180); // Silicon Sky-Blue 3sp3 Lobes
  noFill();
  float lobeLength = 115.0f;
  float lobeWidth = 40.0f;
  
  // 4 Tetrahedral Lobes (109.47 degrees separation)
  for (int i = 0; i < 4; i++) {
    pushMatrix();
    rotate((TWO_PI / 4.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    // 1 Valence Electron per 3sp3 lobe in semiconductor state
    fill(56, 189, 248);
    noStroke();
    float ex = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 6.0f;
    ellipse(ex, 0, 7, 7);
    popMatrix();
  }
  
  // Render Nucleus Structure (14 Protons + N Neutrons)
  // 14 Protons (Tetradecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 14; p++) {
    float angle = (TWO_PI / 14.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Si-28 7-Alpha Green
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // Si-29 NMR Blue
    } else if (isotopeMode == 2) {
      fill(192, 132, 252); // Si-30 Heavy Purple
    } else {
      fill(248, 113, 113); // Si-32 Cosmogenic Red
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  // Si-28 Magisch-Symmetrischer Halo-Impuls
  if (isotopeMode == 0) {
    stroke(52, 211, 153, 120 + sin(wavePhase * 4.0f) * 80);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawSiliconOverlay();
}

void drawSiliconOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(56, 189, 248);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 014: SILICIUM (Si)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 14 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHER 7a-KNOTEN (N=14) // Sauerstoffbrennen-Produkt unendlich stabil", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARES 2s1/2 NEUTRON // Spin 1/2 Festkörper-NMR Resonator", 35, 82);
  } else if (isotopeMode == 2) {
    fill(192, 132, 252);
    text("MATRIX-STATUS: N=16 NEUTRONENSCHALEN-ABSCHLUSS // Meteoritischer Isotopen-Standard", 35, 82);
  } else {
    fill(248, 113, 113);
    text("MATRIX-STATUS: KOSMOGENER BETA-EMITTER // 153a Glaziologischer & Tiefsee-Tracer", 35, 82);
  }
}

Wie bei Stickstoff ($Z=7$) erzwingt die parallele Spin-Ausrichtung aller drei $3p$-Elektronen eine orthogonale 3D-Gitter-Konfiguration mit minimierter Coulomb-Repulsion.

Der reine Betazerfall transformiert ein scherendes EVM-Neutron im $^{32}\text{P}$-Kern direkt in ein Proton und führt exotherm in das doppelt-geradzahlige Hauptisotop Schwefel-32 über.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_015_Phosphorus_Isotopes.pde - Phosphorus Pentadecapol & 3p3 Tripod Simulator
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: P-30 (Hist. b+), 1: P-31 (100% Main / NMR), 2: P-32 (Hard b- Tracer), 3: P-33 (Soft b- Tracer)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Phosphor-30 (30P) - Radioaktiv (2.50m) / Erste künstliche Radioaktivität (Joliot-Curie 1934)", 
  "Phosphor-31 (31P) - Stabil (100%) / Magische N=16 Schale (Bio-NMR Spin 1/2 Standard)", 
  "Phosphor-32 (32P) - Radioaktiv (14.26d) / Hochenergie 1.71 MeV Beta-Tracer für DNA/RNA", 
  "Phosphor-33 (33P) - Radioaktiv (25.34d) / Weicher 0.25 MeV Beta-Tracer für hochauflösende Autoradiographie"
};
int[] neutronCounts = {15, 16, 17, 18};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 015 (Phosphorus) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 34, 34);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 75, 75);
  
  // Render M-Subshell (3s2 Bipolar Pair)
  strokeWeight(1.8f);
  stroke(251, 191, 36, 160); // Amber 3s Subshell
  float radius3s = 110.0f;
  ellipse(0, 0, radius3s * 2, radius3s * 2);
  
  // 3s2 Antiparallel Electrons
  fill(251, 191, 36);
  noStroke();
  float sX1 = radius3s * cos(wavePhase * 0.8f);
  float sY1 = radius3s * sin(wavePhase * 0.8f);
  float sX2 = radius3s * cos(wavePhase * 0.8f + PI);
  float sY2 = radius3s * sin(wavePhase * 0.8f + PI);
  ellipse(sX1, sY1, 7, 7);
  ellipse(sX2, sY2, 7, 7);
  
  // Render 3p3 Orthogonal Tripod Lobes (px, py, pz at 120-degree projections)
  strokeWeight(2.0f);
  stroke(245, 158, 11, 200); // Phosphorus Amber/Gold 3p Lobes
  noFill();
  float lobeLength = 110.0f;
  float lobeWidth = 36.0f;
  
  for (int i = 0; i < 3; i++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    // 1 Electron per 3p lobe (Hund's Rule parallel spin alignment)
    fill(251, 191, 36);
    noStroke();
    float ex = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 6.0f;
    ellipse(ex, 0, 7, 7);
    popMatrix();
  }
  
  // Render Nucleus Structure (15 Protons + N Neutrons)
  // 15 Protons (Pentadecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 15; p++) {
    float angle = (TWO_PI / 15.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // P-30 Deficit Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // P-31 Main Green
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // P-32 Hard Beta Blue
    } else {
      fill(192, 132, 252); // P-33 Soft Beta Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  // P-32 Hard Beta Radiation Pulse Effect
  if (isotopeMode == 2) {
    stroke(56, 189, 248, 140 + sin(wavePhase * 5.0f) * 100);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 70, 70);
  }
  
  resetMatrix();
  drawPhosphorusOverlay();
}

void drawPhosphorusOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(251, 191, 36);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 015: PHOSPHOR (P)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 15 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: HISTORISCHER b+ KNOTEN // Erste künstliche Radioaktivität (Joliot-Curie 1934)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHE N=16 TEILSCHALE // Spin 1/2 Biomolekularer ATP/DNA NMR-Knoten", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: HOCHENERGIE BETA-PURGE (1.71 MeV) // Nukleinsäure-Tracer & Radiotherapie", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: WEICHER BETA-PURGE (0.25 MeV) // Hochauflösende Bio-Autoradiographie", 35, 82);
  }
}

Die gepaarte $3p_x^2$-Welle schirmt den Kern ab, während die zwei ungepaarten $3p_y^1$- und $3p_z^1$-Valenzkeulen genau zwei Elektronen binden oder kovalente Disulfidbrücken schlagen können.

Mit 8 verankerten Alpha-Teilchen und der geschlossenen $N=16$ Teil-Neutronenschale weist $^{32}\text{S}$ eine der höchsten energetischen Stabilitäten im gesamten Periodensystem auf.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_016_Sulfur_Isotopes.pde - Sulfur Hexadecapol & 3p4 Chalcogen Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: S-32 (8-Alpha Main), 1: S-33 (NMR & MIF-S Marker), 2: S-34 (Biogeo delta34S Standard), 3: S-35 (Protein Beta Tracer)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Schwefel-32 (32S) - Stabil (94.99%) / 8a-Cluster Hauptisotop & Siliciumbrennen (N=16 Schale)", 
  "Schwefel-33 (33S) - Stabil (0.75%) / Spin 3/2 NMR-Isotop & MIF-S Paläo-Sauerstoff Marker", 
  "Schwefel-34 (34S) - Stabil (4.25%) / Biogeochemischer delta34S CDT-Temperatur-Standard", 
  "Schwefel-35 (35S) - Radioaktiv (87.37d) / Weicher 0.167 MeV Beta-Tracer für Protein-Analytik"
};
int[] neutronCounts = {16, 17, 18, 19};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 016 (Sulfur) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 32, 32);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 70, 70);
  
  // Render M-Subshell (3s2 Bipolar Pair)
  strokeWeight(1.8f);
  stroke(253, 224, 71, 160); // Sulfur Yellow 3s Subshell
  float radius3s = 105.0f;
  ellipse(0, 0, radius3s * 2, radius3s * 2);
  
  // 3s2 Antiparallel Electrons
  fill(253, 224, 71);
  noStroke();
  float sX1 = radius3s * cos(wavePhase * 0.8f);
  float sY1 = radius3s * sin(wavePhase * 0.8f);
  float sX2 = radius3s * cos(wavePhase * 0.8f + PI);
  float sY2 = radius3s * sin(wavePhase * 0.8f + PI);
  ellipse(sX1, sY1, 7, 7);
  ellipse(sX2, sY2, 7, 7);
  
  // Render 3p4 Chalcogen Lobes (1 paired lobe, 2 unpaired acceptor lobes)
  strokeWeight(2.0f);
  stroke(234, 179, 8, 200); // Yellow/Gold 3p Lobes
  noFill();
  float lobeLength = 110.0f;
  float lobeWidth = 36.0f;
  
  for (int i = 0; i < 3; i++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    fill(253, 224, 71);
    noStroke();
    float ex1 = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 5.0f;
    ellipse(ex1, 0, 7, 7);
    
    // Paired electrons on the first 3p_x lobe
    if (i == 0) {
      ellipse(ex1 - 10, 0, 7, 7);
    }
    popMatrix();
  }
  
  // Render Nucleus Structure (16 Protons + N Neutrons)
  // 16 Protons (Hexadecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 16; p++) {
    float angle = (TWO_PI / 16.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // S-32 8-Alpha Green
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // S-33 MIF-S Blue
    } else if (isotopeMode == 2) {
      fill(192, 132, 252); // S-34 CDT Purple
    } else {
      fill(248, 113, 113); // S-35 Tracer Red
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  // S-32 Magisch-Symmetrischer Halo-Impuls
  if (isotopeMode == 0) {
    stroke(52, 211, 153, 120 + sin(wavePhase * 4.0f) * 80);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawSulfurOverlay();
}

void drawSulfurOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(253, 224, 71);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 016: SCHWEFEL (S)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 16 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHER 8a-KNOTEN (N=16) // Siliciumbrennen-Produkt unendlich stabil", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARES 1d3/2 NEUTRON // Spin 3/2 MIF-S Sauerstoff-Anstieg Marker", 35, 82);
  } else if (isotopeMode == 2) {
    fill(192, 132, 252);
    text("MATRIX-STATUS: N=18 NEUTRONENSCHALEN-ABSCHLUSS // Geochemischer delta34S CDT-Standard", 35, 82);
  } else {
    fill(248, 113, 113);
    text("MATRIX-STATUS: WEICHER BETA-PURGE (0.167 MeV) // Biochemischer Protein-Puls-Chase Tracer", 35, 82);
  }
}

Aufgrund des optimalen Verhältnisses zwischen Kernanziehung und M-Schalen-Radius übertrifft die Elektronenaffinität von Chlor sogar die von Fluor ($3{,}40\,\text{eV}$).

Ein solares Neutrino verwandelt ein Neutron des magischen $N=20$ Kerns in ein Proton und überführt den Chlor-37-Knoten in das radioaktive Argon-37 ($T_{1/2} = 35\,\text{Tage}$).

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_017_Chlorine_Isotopes.pde - Chlorine Heptadecapol & 3p5 Halogen Trap Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Cl-35 (75.76% Main / N=18), 1: Cl-36 (Cosmogenic 301ka Tracer), 2: Cl-37 (24.24% / N=20 Magic)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Chlor-35 (35Cl) - Stabil (75.76%) / N=18 Geschlossene Subschale & NMR-Standard (Spin 3/2)", 
  "Chlor-36 (36Cl) - Radioaktiv (301ka) / Kosmogen & Fallout Hydrochronologie-Tracer", 
  "Chlor-37 (37Cl) - Stabil (24.24%) / Magische N=20 Schale & Homestake Solar-Neutrino Detektor"
};
int[] neutronCounts = {18, 19, 20};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 017 (Chlorine) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 30, 30);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 65, 65);
  
  // Render M-Subshell (3s2 Bipolar Pair)
  strokeWeight(1.8f);
  stroke(163, 230, 53, 160); // Chlorine Lime 3s Subshell
  float radius3s = 100.0f;
  ellipse(0, 0, radius3s * 2, radius3s * 2);
  
  // 3s2 Antiparallel Electrons
  fill(163, 230, 53);
  noStroke();
  float sX1 = radius3s * cos(wavePhase * 0.8f);
  float sY1 = radius3s * sin(wavePhase * 0.8f);
  float sX2 = radius3s * cos(wavePhase * 0.8f + PI);
  float sY2 = radius3s * sin(wavePhase * 0.8f + PI);
  ellipse(sX1, sY1, 7, 7);
  ellipse(sX2, sY2, 7, 7);
  
  // Render 3p5 Halogen Lobes (3 Lobes: 2 paired, 1 with single electron & open vacuum hole)
  strokeWeight(2.0f);
  stroke(132, 204, 22, 200); // Chlorine Yellow-Green 3p Lobes
  noFill();
  float lobeLength = 110.0f;
  float lobeWidth = 36.0f;
  
  for (int i = 0; i < 3; i++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    fill(163, 230, 53);
    noStroke();
    float ex1 = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 5.0f;
    ellipse(ex1, 0, 7, 7);
    
    // Paired electrons on first two lobes
    if (i < 2) {
      ellipse(ex1 - 10, 0, 7, 7);
    } else {
      // Third lobe has an open Vacuum Hole indicator!
      stroke(239, 68, 68, 220);
      strokeWeight(1.5f);
      noFill();
      ellipse(ex1 - 12, 0, 9, 9); // Open Phase Hole
    }
    popMatrix();
  }
  
  // Render Nucleus Structure (17 Protons + N Neutrons)
  // 17 Protons (Heptadecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 17; p++) {
    float angle = (TWO_PI / 17.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Cl-35 Main Green
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Cl-36 Cosmogenic Red
    } else {
      fill(192, 132, 252); // Cl-37 Magic N=20 Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  // Cl-37 Magisch-Symmetrischer N=20 Halo-Impuls
  if (isotopeMode == 2) {
    stroke(192, 132, 252, 140 + sin(wavePhase * 4.0f) * 80);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawChlorineOverlay();
}

void drawChlorineOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(163, 230, 53);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 017: CHLOR (Cl)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 17 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (N=18) // Spin 3/2 Festkörper-NMR Resonator", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: KOSMOGENER TRACER (301ka) // Grundwasser- & Eisbohrkern Hydrochronometer", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: MAGISCHE N=20 SCHALE // Homestake Solar-Neutrino Detektorknoten", 35, 82);
  }
}

Die vollkommene Symmetrie aller 8 Valenzelektronen führt zu einer vollständigen energetischen Entkopplung vom umgebenden Vakuum-Gitter.

Das Messen des akkumulierten $^{40}\text{Ar}$-Gases in kristallisiertem Lava-Gestein erlaubt die präzise Altersbestimmung geologischer Schichten von $100\,000$ bis $4{,}5$ Milliarden Jahren.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_018_Argon_Isotopes.pde - Argon Octadecapol & 3p6 Noble Gas Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 3; // 0: Ar-36 (Primordial Cosmic), 1: Ar-38 (N=20 Magic), 2: Ar-39 (Cosmogenic 269a Tracer), 3: Ar-40 (Terrestrial 99.6% Main / K-Ar)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Argon-36 (36Ar) - Stabil (0.34% Erd- / >84% Kosmisch) / 9a-Cluster Primordial-Knoten", 
  "Argon-38 (38Ar) - Stabil (0.06%) / Magische N=20 Schalen-Symmetrie", 
  "Argon-39 (39Ar) - Radioaktiv (269a) / Kosmogenes Ozeanographie- & Eis-Chronometer", 
  "Argon-40 (40Ar) - Stabil (99.60%) / Radiogenes 40K-Zerfallsprodukt & K-Ar Geochronometer"
};
int[] neutronCounts = {18, 20, 21, 22};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 018 (Argon) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 28, 28);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.5f);
  stroke(249, 115, 22, 140); // Neon-Core Orange Glow
  ellipse(0, 0, 60, 60);
  
  // Render M-Subshell (3s2 Bipolar Pair)
  strokeWeight(1.8f);
  stroke(129, 140, 248, 160); // Argon Indigo 3s Subshell
  float radius3s = 95.0f;
  ellipse(0, 0, radius3s * 2, radius3s * 2);
  
  // 3s2 Antiparallel Electrons
  fill(129, 140, 248);
  noStroke();
  float sX1 = radius3s * cos(wavePhase * 0.8f);
  float sY1 = radius3s * sin(wavePhase * 0.8f);
  float sX2 = radius3s * cos(wavePhase * 0.8f + PI);
  float sY2 = radius3s * sin(wavePhase * 0.8f + PI);
  ellipse(sX1, sY1, 6, 6);
  ellipse(sX2, sY2, 6, 6);
  
  // Render 3p6 Closed Octet Shell (6 Symmetrical Violet/Indigo Plasma Lobes)
  strokeWeight(1.8f);
  stroke(165, 180, 252, 200); // Argon Violet/Blue Plasma 3p Lobes
  noFill();
  float lobeLength = 105.0f;
  float lobeWidth = 34.0f;
  
  for (int i = 0; i < 6; i++) {
    pushMatrix();
    rotate((TWO_PI / 6.0f) * i + wavePhase * 0.1f);
    ellipse(lobeLength * 0.5f, 0, lobeLength, lobeWidth);
    
    // Paired Electrons on all 6 lobes (Complete M-Shell Octet)
    fill(165, 180, 252);
    noStroke();
    float ex1 = lobeLength * 0.75f + sin(wavePhase * 2.0f + i) * 4.0f;
    ellipse(ex1, -4, 6, 6);
    ellipse(ex1, 4, 6, 6);
    popMatrix();
  }
  
  // Render Nucleus Structure (18 Protons + N Neutrons)
  // 18 Protons (Octadecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 18; p++) {
    float angle = (TWO_PI / 18.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Ar-36 Primordial Blue
    } else if (isotopeMode == 1) {
      fill(192, 132, 252); // Ar-38 Magic N=20 Purple
    } else if (isotopeMode == 2) {
      fill(248, 113, 113); // Ar-39 Cosmogenic Red
    } else {
      fill(52, 211, 153); // Ar-40 Terrestrial Green
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  // Argon High-Voltage Violet Plasma Glow Halo Effect
  stroke(129, 140, 248, 120 + sin(wavePhase * 3.0f) * 70);
  strokeWeight(2.5f);
  noFill();
  ellipse(0, 0, 120, 120);
  
  resetMatrix();
  drawArgonOverlay();
}

void drawArgonOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(165, 180, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 018: ARGON (Ar)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 18 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: PRIMORDIALER 9a-KNOTEN // Kosmisches Hauptisotop des interstellaren Raums", 35, 82);
  } else if (isotopeMode == 1) {
    fill(192, 132, 252);
    text("MATRIX-STATUS: MAGISCHE N=20 SCHALE // Doppelt-magische Stabilitätskomponente", 35, 82);
  } else if (isotopeMode == 2) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: KOSMOGENER BETA-PURGE (269a) // Ozeanographisches Tiefenwasser-Chronometer", 35, 82);
  } else {
    fill(52, 211, 153);
    text("MATRIX-STATUS: TERRESTRISEHER HAUPTKNOTEN (99.6%) // Radiogenes 40K-Produkt & K-Ar Geochronometer", 35, 82);
  }
}

Der edelgasartig geschlossene Argon-Rumpf schirmt 18 der 19 Kernladungen ab ($\sigma_{\text{core}} \approx 16{,}8$), woraus der sehr große $4s$-Orbitalradius resultiert.

Der ungerade-ungerade Kern zerfällt vorwiegend über $\beta^-$ zum stabilen Calcium-40, während der $10{,}72\,\%$-Elektroneinfang-Zweig unter Emission eines charakteristischen $1{,}461\,\text{MeV}$ Gamma-Quants das geochronologische Argon-40 erzeugt.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_019_Potassium_Isotopes.pde - Potassium Nonadecapol & 4s1 Valence Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: K-39 (Main 93.26% / Magic N=20), 1: K-40 (Radioactive Primordial 1.25Ga), 2: K-41 (Stable Heavy 6.73%)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Kalium-39 (39K) - Stabil (93.26%) / Magische N=20 Neutronenschale & Bio-Knoten", 
  "Kalium-40 (40K) - Radioaktiv (1.25Ga) / Primordiales Verzweigungsisotop (b- zu 40Ca / EC zu 40Ar)", 
  "Kalium-41 (41K) - Stabil (6.73%) / N=22 Überpufferter Geochemie-Standard"
};
int[] neutronCounts = {20, 21, 22};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 019 (Potassium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 3;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 24, 24);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 52, 52);
  
  // Render M-Shell (3s2 3p6 - Argon Core)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140); // Argon Core Indigo Glow
  ellipse(0, 0, 95, 95);
  
  // Render N-Shell (4s1 Outer Valence Shell)
  strokeWeight(2.0f);
  stroke(192, 132, 252, 220); // Lilac Potassium Valence Wave
  float radius4s = 140.0f;
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s1 Single Outer Valence Electron
  fill(216, 180, 254);
  noStroke();
  float valX = radius4s * cos(wavePhase * 0.7f);
  float valY = radius4s * sin(wavePhase * 0.7f);
  ellipse(valX, valY, 10, 10);
  
  // Render Nucleus Structure (19 Protons + N Neutrons)
  // 19 Protons (Nonadecapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 19; p++) {
    float angle = (TWO_PI / 19.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // K-39 Magic Green
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // K-40 Radioactive Red
    } else {
      fill(192, 132, 252); // K-41 Heavy Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 9, 9);
  }
  
  // K-39 Magisch-Symmetrischer N=20 Halo-Impuls
  if (isotopeMode == 0) {
    stroke(52, 211, 153, 120 + sin(wavePhase * 4.0f) * 80);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  // K-40 Dual Branching Radiation Pulse
  if (isotopeMode == 1) {
    stroke(248, 113, 113, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 70, 70);
  }
  
  resetMatrix();
  drawPotassiumOverlay();
}

void drawPotassiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(216, 180, 254);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 019: KALIUM (K)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 19 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHER N=20 KNOTEN // Intrazelluläres Hauptisotop unendlich stabil", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: PRIMORDIALE B- / EC-VERZWEIGUNG // Natürliche Körperstrahlung & K-Ar Geochronometer", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: STABILE N=22 ÜBERPUFFERUNG // Magmatischer Isotopenfraktionierungs-Standard", 35, 82);
  }
}

Das gleichzeitige Schließen der Protonen- und Neutronenschale bei 20 Teilchen erzeugt ein lokales Maximum im DTIM-Energie-Graphen, was die gigantische Häufigkeit von $96{,}94\,\%$ erklärt.

Die Bipolar-Paarung der zwei $4s$-Elektronen erhöht die Erstionisationsenergie im Vergleich zum Kalium ($4{,}34\,\text{eV}$), ermöglicht aber das leichte Abspalten beider Elektronen zu $\text{Ca}^{2+}$.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_020_Calcium_Isotopes.pde - Calcium Icosapol & 4s2 Doubly Magic Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Ca-40 (Doubly Magic N=20 Main 96.94%), 1: Ca-41 (Cosmogenic 99.4ka), 2: Ca-43 (NMR Spin 7/2), 3: Ca-48 (Doubly Magic N=28 Superheavy Target)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Calcium-40 (40Ca) - Stabil (96.94%) / Doppelt Magische N=20 Schale & 10a-Cluster Hauptknoten", 
  "Calcium-41 (41Ca) - Radioaktiv (99.4ka) / Kosmogenes Knochen- & Meteoritengeschichte Chronometer", 
  "Calcium-43 (43Ca) - Stabil (0.135%) / Unpaarer Spin 7/2 Biochemie-NMR Standard", 
  "Calcium-48 (48Ca) - Stabil (0.187%) / Doppelt Magische N=28 Schale (Superheavy Element Target)"
};
int[] neutronCounts = {20, 21, 23, 28};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 020 (Calcium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 22, 22);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 48, 48);
  
  // Render M-Shell (3s2 3p6 - Argon Core)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 88, 88);
  
  // Render N-Shell (4s2 Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 220); // Emerald Calcium 4s Subshell
  float radius4s = 135.0f;
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Valence Electrons
  fill(110, 231, 183);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.7f);
  float valY1 = radius4s * sin(wavePhase * 0.7f);
  float valX2 = radius4s * cos(wavePhase * 0.7f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.7f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (20 Protons + N Neutrons)
  // 20 Protons (Icosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 20; p++) {
    float angle = (TWO_PI / 20.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 10, 10);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Ca-40 Doubly Magic Green
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Ca-41 Cosmogenic Red
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // Ca-43 NMR Blue
    } else {
      fill(192, 132, 252); // Ca-48 Doubly Magic N=28 Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Ca-40 & Ca-48 Doppelt-Magischer Resonator Halo Glow
  if (isotopeMode == 0 || isotopeMode == 3) {
    stroke((isotopeMode == 0) ? color(52, 211, 153) : color(192, 132, 252), 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawCalciumOverlay();
}

void drawCalciumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(110, 231, 183);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 020: CALCIUM (Ca)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 20 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: DOPPELT MAGISCHER 10a-KNOTEN (Z=20, N=20) // Schwerster stabilst-symmetrischer Z=N Kern", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: KOSMOGENER TRACER (99.4ka) // Fossile Knochen- & Meteoritendatierung", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARES 1f7/2 NEUTRON // Spin 7/2 Biochemie & Knochen-NMR Resonator", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: DOPPELT MAGISCHE N=28 OVERBUFFERING // Projektil zur Synthese superschwerer Elemente", 35, 82);
  }
}

Das Vorhandensein von 21 Protonen zieht die $3d$-Subschale energetisch unter das Niveau der $4s$-Schale, wodurch der $3d$-Block offiziell initiiert wird.

Der Positronenzerfall erzeugt mit hoher Effizienz Anisotropie-Quanten zur hochauflösenden Molekulardiagnostik malignor Tumore.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_021_Scandium_Isotopes.pde - Scandium Henicosapol & 3d1 Transition Block Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Sc-44 (PET Tracer), 1: Sc-45 (100% Main / Monoisotopic), 2: Sc-46 (Industrial Gamma), 3: Sc-47 (Theranostic Beta)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Scandium-44 (44Sc) - Radioaktiv (3.97h) / High-Resolution PET-Onkologie Diagnostik Standard", 
  "Scandium-45 (45Sc) - Stabil (100%) / Monoisotop & Al3Sc Leichtbau-Legierungs-Anker (Spin 7/2)", 
  "Scandium-46 (46Sc) - Radioaktiv (83.79d) / Reaktor-Aktivierter Industrie- & Leckage-Tracer", 
  "Scandium-47 (47Sc) - Radioaktiv (3.35d) / Theranostischer Beta-Therapeut für Mikrometastasen"
};
int[] neutronCounts = {23, 24, 25, 26};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 021 (Scandium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 20, 20);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 44, 44);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 80, 80);
  
  // Render NEW 3d1 INNER DIRECTIONAL ORBITAL LOBE (Cyan/Teal d-orbital dumbbell + donut ring)
  pushMatrix();
  rotate(wavePhase * 0.4f);
  strokeWeight(2.0f);
  stroke(34, 211, 238, 220); // Cyan 3d1 Lobe
  noFill();
  ellipse(0, 0, 105, 30); // Central Torus Ring
  ellipse(0, 0, 30, 105);
  
  // 3d1 Single Inner Electron
  fill(34, 211, 238);
  noStroke();
  float dX = 52.5f * cos(wavePhase * 1.2f);
  float dY = 15.0f * sin(wavePhase * 1.2f);
  ellipse(dX, dY, 8, 8);
  popMatrix();
  
  // Render N-Shell (4s2 Outer Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Outer 4s Green Shell
  float radius4s = 140.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (21 Protons + N Neutrons)
  // 21 Protons (Henicosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 21; p++) {
    float angle = (TWO_PI / 21.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // Sc-44 PET Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Sc-45 Monoisotop Green
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // Sc-46 Gamma Blue
    } else {
      fill(192, 132, 252); // Sc-47 Theranostic Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Sc-44 Positron Radiation Pulse Effect
  if (isotopeMode == 0) {
    stroke(248, 113, 113, 140 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.0f);
    noFill();
    ellipse(0, 0, 70, 70);
  }
  
  resetMatrix();
  drawScandiumOverlay();
}

void drawScandiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(34, 211, 238);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 021: SCANDIUM (Sc) - 3d-BLOCK INITIATOR", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 21 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: b+ PET-DIAGNOSTIK KNOTEN // Hochauflösender Tumor-Marker (3.97h)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MONOISOTOPISCHES GLOBO-HAUPTISOTOP // Al3Sc Luftfahrt-Legierung & Spin 7/2 NMR", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: INDUSTRIELLER ACTIVATOR // Doppelter g-Kaskaden-Leckage-Tracer (83.8d)", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: THERANOSTISCHER BETA-THERAPEUT // Gezielte Mikrometastasen-Bestrahlung", 35, 82);
  }
}

Das vollkommene Ablösen aller vier Valenzelektronen ($3d^2 4s^2$) führt zur energetisch hochstabilen $[\text{Ar}]$-Rumpfmatrix des $\text{Ti}^{4+}$-Kations.

Die geschlossene $1f_{7/2}$-Neutronenschale ($N=28$) verleiht $^{50}\text{Ti}$ eine außerordentliche strukturelle Invarianz gegen Spaltung bei Schwerionen-Fusionen.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_022_Titanium_Isotopes.pde - Titanium Docosapol & 3d2 Double-d Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Ti-46 (Stable 8.25%), 1: Ti-47 (NMR Spin 5/2), 2: Ti-48 (Main 73.72%), 3: Ti-50 (Magic N=28 Target)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Titan-46 (46Ti) - Stabil (8.25%) / N=24 Symmetrische Basiskonfiguration", 
  "Titan-47 (47Ti) - Stabil (7.44%) / Unpaarer Spin 5/2 Festkörper NMR-Standard", 
  "Titan-48 (48Ti) - Stabil (73.72%) / Dominierendes 26-Neutronen Hauptisotop (8.72 MeV/u)", 
  "Titan-50 (50Ti) - Stabil (5.18%) / Magische N=28 Schale & Superheavy Element Fusions-Projektil"
};
int[] neutronCounts = {24, 25, 26, 28};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 022 (Titanium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 40, 40);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 75, 75);
  
  // Render TWO 3d2 INNER ORBITAL LOBES (Orthogonal Teal/Emerald d-orbitals)
  for (int d = 0; d < 2; d++) {
    pushMatrix();
    rotate((HALF_PI * d) + wavePhase * 0.3f);
    strokeWeight(2.0f);
    stroke(45, 212, 191, 220); // Teal 3d2 Lobes
    noFill();
    ellipse(0, 0, 100, 28);
    ellipse(0, 0, 28, 100);
    
    // 1 Inner Electron per 3d lobe
    fill(45, 212, 191);
    noStroke();
    float dX = 50.0f * cos(wavePhase * 1.2f + d * PI);
    float dY = 14.0f * sin(wavePhase * 1.2f + d * PI);
    ellipse(dX, dY, 7, 7);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Outer Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Outer 4s Green Shell
  float radius4s = 138.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (22 Protons + N Neutrons)
  // 22 Protons (Docosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 22; p++) {
    float angle = (TWO_PI / 22.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Ti-46 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Ti-47 NMR Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Ti-48 Main Green
    } else {
      fill(192, 132, 252); // Ti-50 Magic N=28 Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Ti-50 Magisch-Symmetrischer N=28 Resonator Halo Glow
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawTitaniumOverlay();
}

void drawTitaniumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(45, 212, 191);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 022: TITAN (Ti)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 22 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: STABILE N=24 CONFIGURED BASE // Luftfahrt- & Biokompatibilitäts-Anker", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: UNPAARES 1f7/2 NEUTRON // Spin 5/2 Titanat- & Katalysator-NMR", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: DOMINIERENDER HAUPTKNOTEN (73.7%) // Hohe Bindungsenergie (8.72 MeV/u)", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: MAGISCHER N=28 NEUTRONENSCHILD // Projektil zur Synthese von Element 119", 35, 82);
  }
}

Die drei ungepaarten $3d$-Elektronen richten ihre Spins gemäß der Hund'schen Regel parallel aus ($S = 3/2$) und bilden das Fundament der reaktiven Koordinationschemie von Vanadium.

Trotz der ungeraden Protonenzahl $Z=23$ garantiert der magische $N=28$ Neutronenabschluss eine außergewöhnlich hohe Kernstabilität und die gewaltige Dominanz ($99{,}75\,\%$) von $^{51}\text{V}$.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_023_Vanadium_Isotopes.pde - Vanadium Tricosapol & 3d3 Tripod Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: V-48 (Tracer 15.97d), 1: V-50 (Primordial 1.4e17a), 2: V-51 (Main 99.75% / Magic N=28), 3: V-52 (Activation 3.74m)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Vanadium-48 (48V) - Radioaktiv (15.97d) / Industrie-Dünnschicht Verschleiß-Tracer", 
  "Vanadium-50 (50V) - Radioaktiv (1.4e17a) / Primordiales Natur-Isotop (Spin 6+ b-/EC Verzweigung)", 
  "Vanadium-51 (51V) - Stabil (99.75%) / Magische N=28 Schale & 51V-NMR Katalyse Standard", 
  "Vanadium-52 (52V) - Radioaktiv (3.74m) / Reaktor-Neutronenaktivierungs-Isotop zu 52Cr"
};
int[] neutronCounts = {25, 27, 28, 29};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 023 (Vanadium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 38, 38);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 72, 72);
  
  // Render THREE 3d3 TRIPOD INNER ORBITAL LOBES (Purple/Violet 120-degree orientation)
  for (int d = 0; d < 3; d++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * d + wavePhase * 0.3f);
    strokeWeight(2.0f);
    stroke(192, 132, 252, 220); // Purple 3d3 Tripod Lobes
    noFill();
    ellipse(0, 0, 98, 26);
    ellipse(0, 0, 26, 98);
    
    // 1 Inner Electron per 3d lobe (Hund's Rule parallel spin alignment)
    fill(192, 132, 252);
    noStroke();
    float dX = 49.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 3.0f));
    float dY = 13.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 3.0f));
    ellipse(dX, dY, 7, 7);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Outer Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Outer 4s Green Shell
  float radius4s = 136.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (23 Protons + N Neutrons)
  // 23 Protons (Tricosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 23; p++) {
    float angle = (TWO_PI / 23.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // V-48 Red
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // V-50 Blue
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // V-51 Magic Green
    } else {
      fill(192, 132, 252); // V-52 Activation Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // V-51 Magisch-Symmetrischer N=28 Resonator Halo Glow
  if (isotopeMode == 2) {
    stroke(52, 211, 153, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawVanadiumOverlay();
}

void drawVanadiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(192, 132, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 023: VANADIUM (V)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 23 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: INDUSTRIE-TRACER (15.97d) // Motoren- & Turbinen-Dünnschicht-Verschleißmessung", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: PRIMORDIALE B-/EC VERZWEIGUNG // Langlebiges Naturisotop (1.4e17 Jahre)", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHER N=28 KNOTEN (99.75%) // Metallorganische Katalyse & Redox-Flow-Batterien", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: PURGE-ACTIVATOR (3.74m) // Reaktor-Aktivierung zu stabilen 52Cr", 35, 82);
  }
}

Mit 10 möglichen parallelen Spin-Paarungen erreicht die Austausch-Energie bei der $3d^5 4s^1$-Konfiguration ihren absoluten Höchstwert, was den Übergang des 4s-Elektrons energetisch begünstigt.

Die doppelt geschlossene $1f_{7/2}$-Neutronenschale erzeugt ein lokales Stabilitätsmaximum im DTIM-Graphen, woraus die massive natürliche Dominanz ($83{,}79\,\%$) von $^{52}\text{Cr}$ resultiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_024_Chromium_Isotopes.pde - Chromium Tetracosapol & 3d5 4s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Cr-50 (Stable 4.35%), 1: Cr-52 (Magic N=28 Main 83.79%), 2: Cr-53 (NMR Spin 3/2 & Paleo-O2), 3: Cr-54 (Meteorite Anomaly Marker)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Chrom-50 (50Cr) - Stabil (4.35%) / N=26 Doppel-geradzahlige Kern-Geometrie", 
  "Chrom-52 (52Cr) - Stabil (83.79%) / Magische N=28 Neutronenschale & Hauptisotop (8.78 MeV/u)", 
  "Chrom-53 (53Cr) - Stabil (9.50%) / Unpaarer Spin 3/2 & Paläo-Ozean delta53Cr Sauerstoff-Proxy", 
  "Chrom-54 (54Cr) - Stabil (2.37%) / Kohlige Chondriten Supernova-Injektions-Marker"
};
int[] neutronCounts = {26, 28, 29, 30};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 024 (Chromium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 36, 36);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 70, 70);
  
  // Render FIVE 3d5 HALF-FILLED PENTAGRAM INNER LOBES (Emerald/Green 72-degree orientation)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.3f);
    strokeWeight(1.8f);
    stroke(52, 211, 153, 220); // Emerald 3d5 Lobes
    noFill();
    ellipse(0, 0, 96, 24);
    ellipse(0, 0, 24, 96);
    
    // Exactly 1 Inner Electron per 3d lobe (Hund's Exchange Maximum)
    fill(52, 211, 153);
    noStroke();
    float dX = 48.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    float dY = 12.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 6, 6);
    popMatrix();
  }
  
  // Render N-Shell (4s1 ANOMALOUS SINGLE OUTER VALENCE SHELL)
  strokeWeight(2.0f);
  stroke(56, 189, 248, 200); // Sky-Blue 4s1 Single Shell
  float radius4s = 135.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s1 SINGLE Outer Valence Electron (Anomalous promotion)
  fill(56, 189, 248);
  noStroke();
  float valX = radius4s * cos(wavePhase * 0.7f);
  float valY = radius4s * sin(wavePhase * 0.7f);
  ellipse(valX, valY, 10, 10);
  
  // Render Nucleus Structure (24 Protons + N Neutrons)
  // 24 Protons (Tetracosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 24; p++) {
    float angle = (TWO_PI / 24.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Cr-50 Blue
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Cr-52 Magic Green
    } else if (isotopeMode == 2) {
      fill(248, 113, 113); // Cr-53 NMR Red
    } else {
      fill(192, 132, 252); // Cr-54 Meteorite Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Cr-52 Magisch-Symmetrischer N=28 Resonator Halo Glow
  if (isotopeMode == 1) {
    stroke(52, 211, 153, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawChromiumOverlay();
}

void drawChromiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(52, 211, 153);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 024: CHROM (Cr) - 3d5 4s1 SONDERKNOTEN", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 24 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: STABILES BASESISOTOP (N=26) // Doppelter Elektroneinfang-Kandidat (2EC)", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHER N=28 KNOTEN (83.79%) // Höchste Bindungsenergie (8.78 MeV/u) & Stahl-Anker", 35, 82);
  } else if (isotopeMode == 2) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: UNPAARES 2p3/2 NEUTRON // Spin 3/2 & Paläo-Ozean Sauerstoff-Proxymarker", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: METEORITISCHER ANOMALIE-TRACER // Nachweis präsolarer Supernova-Injektionen", 35, 82);
  }
}

Durch die exakt halbgefüllte $3d^5$-Halbschale ist der Bahndrehimpuls Null ($L = 0, \, ^6S_{5/2}$-Grundzustand), was zu einer isotrop-kugelförmigen Ladungsverteilung des $\text{Mn}^{2+}$-Kations führt.

Das Schließen der $2p_{3/2}$-Neutronenschale ($N=30$) kompensiert die Protonen-Asymmetrie von $Z=25$ vollständig und garantiert die 100%-ige Monoisotopie von $^{55}\text{Mn}$.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_025_Manganese_Isotopes.pde - Manganese Pentacosapol & 3d5 4s2 High-Spin Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Mn-53 (Cosmogenic 3.7Ma), 1: Mn-54 (Gamma Tracer 312d), 2: Mn-55 (100% Monoisotopic Main), 3: Mn-56 (Activation 2.58h)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Mangan-53 (53Mn) - Radioaktiv (3.7Ma) / Kosmogenes Spallations-Chronometer für Meteoriten", 
  "Mangan-54 (54Mn) - Radioaktiv (312.3d) / Reaktor-Aktivierter 835 keV Gamma-Aktivierungsmarker", 
  "Mangan-55 (55Mn) - Stabil (100%) / Monoisotopischer N=30 Schalen-Knoten (Photosystem II & Stahl)", 
  "Mangan-56 (56Mn) - Radioaktiv (2.58h) / Reaktor-Neutronenaktivierungs-Purge zu 56Fe"
};
int[] neutronCounts = {28, 29, 30, 31};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 025 (Manganese) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 36, 36);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 70, 70);
  
  // Render FIVE 3d5 HALF-FILLED PENTAGRAM INNER LOBES (Pink/Magenta 72-degree High-Spin orientation)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.3f);
    strokeWeight(1.8f);
    stroke(244, 114, 182, 220); // Pink/Magenta 3d5 Lobes
    noFill();
    ellipse(0, 0, 94, 24);
    ellipse(0, 0, 24, 94);
    
    // Exactly 1 Inner Electron per 3d lobe (High-Spin S = 5/2)
    fill(244, 114, 182);
    noStroke();
    float dX = 47.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    float dY = 12.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 6, 6);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Outer Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Emerald Green 4s2 Shell
  float radius4s = 135.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (25 Protons + N Neutrons)
  // 25 Protons (Pentacosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 25; p++) {
    float angle = (TWO_PI / 25.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Mn-53 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Mn-54 Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Mn-55 Monoisotop Green
    } else {
      fill(192, 132, 252); // Mn-56 Activation Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Mn-55 Symmetrischer N=30 Monoisotop-Halo Glow
  if (isotopeMode == 2) {
    stroke(52, 211, 153, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawManganeseOverlay();
}

void drawManganeseOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(244, 114, 182);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 025: MANGAN (Mn)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 25 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: KOSMOGENES CHRONOMETER (3.7Ma) // Spallation-Metrik extraterrestrischer Meteoriten", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: REAKTOR-GAMMA-TRACER (312.3d) // Fast-Neutron-Aktivierungsmarker (835 keV)", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MONOISOTOPISCHER HAUPTKNOTEN (100%) // Fotosystem II Wasserspaltung & Stahl-Anker", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: KURZLEBIGER ACTIVATOR (2.58h) // Neutronenaktivierung und Purge zu 56Fe", 35, 82);
  }
}

Die Entkopplung von High-Spin ($S=2$) und Low-Spin ($S=0$) Ligandenfeldern bildet das schaltbare Fundament bioinorganischer Hämo-Systeme.

Die Symmetrie der $2p_{3/2}$-Neutronenschale ($N=30$) garantiert das energetische Minimum, bei dem exoenergetische Fusionsprozesse im Kosmos endgültig erlöschen.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_026_Iron_Isotopes.pde - Iron Hexacosapol & 3d6 4s2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Fe-54 (Magic N=28 / 5.85%), 1: Fe-56 (Stellar Peak 91.75%), 2: Fe-57 (Mössbauer Spin 1/2 / 2.12%), 3: Fe-60 (Supernova Tracer 2.6Ma)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Eisen-54 (54Fe) - Stabil (5.85%) / Magische N=28 Neutronenschale & Reaktor-Aktivierungsbasis", 
  "Eisen-56 (56Fe) - Stabil (91.75%) / Stellares Fusions-Maximum (8.79 MeV/u Peak & Erdkern)", 
  "Eisen-57 (57Fe) - Stabil (2.12%) / Unpaarer Spin 1/2 & 14.4 keV Mössbauer-Spektroskopie Standard", 
  "Eisen-60 (60Fe) - Radioaktiv (2.6Ma) / Extraterrestrischer Supernova-Spuren-Tracer in Ozeansedimenten"
};
int[] neutronCounts = {28, 30, 31, 34};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 026 (Iron) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 36, 36);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 68, 68);
  
  // Render FIVE 3d6 INNER LOBES (Red/Orange - 1st lobe has 2 paired electrons, 4 lobes have 1 electron)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.3f);
    strokeWeight(1.8f);
    stroke(248, 113, 113, 220); // Iron Red/Orange 3d Lobes
    noFill();
    ellipse(0, 0, 92, 24);
    ellipse(0, 0, 24, 92);
    
    fill(248, 113, 113);
    noStroke();
    float dX = 46.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    float dY = 12.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 6, 6);
    
    // First Lobe (d=0) carries the 6th electron (antiparallel pair!)
    if (d == 0) {
      fill(251, 146, 60); // Orange Highlight for Paired Electron
      ellipse(-dX, -dY, 6, 6);
    }
    popMatrix();
  }
  
  // Render N-Shell (4s2 Outer Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Emerald Green 4s2 Shell
  float radius4s = 134.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (26 Protons + N Neutrons)
  // 26 Protons (Hexacosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 26; p++) {
    float angle = (TWO_PI / 26.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Fe-54 Magic N=28 Blue
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Fe-56 Stellar Main Green
    } else if (isotopeMode == 2) {
      fill(248, 113, 113); // Fe-57 Mössbauer Red
    } else {
      fill(192, 132, 252); // Fe-60 Supernova Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Fe-56 Stellar Equilibrium Peak Resonator Halo Glow
  if (isotopeMode == 1) {
    stroke(52, 211, 153, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawIronOverlay();
}

void drawIronOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(248, 113, 113);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 026: EISEN (Fe)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 26 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: MAGISCHER N=28 SCHALENKNOTEN // Reaktor-Aktivierungsbasis für 54Mn", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STELLARES NUKLEOSYNTHESE-MAXIMUM (91.75%) // Maximum der Bindungsenergie (8.79 MeV/u)", 35, 82);
  } else if (isotopeMode == 2) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: UNPAARES SPIN 1/2 ISOTOP // 14.4 keV Mössbauer-Spektroskopie Standard", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: EXTRATERRESTRISCHER TRACER (2.6Ma) // Nachweis präsolarer Supernova-Sedimentation", 35, 82);
  }
}

Zwei doppelt besetzte und drei einfach besetzte $3d$-Traktoren erzeugen den charakteristischen $S = 3/2$ High-Spin-Grundzustand des $\text{Co}^{2+}$-Ions.

Der Beta-Zerfall führt in das $4^+$-Niveau von $^{60}\text{Ni}$, welches unter aufeinanderfolgender Emission zweier hochenergetischer Gamma-Quanten in den Grundzustand relaxiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_027_Cobalt_Isotopes.pde - Cobalt Heptacosapol & 3d7 4s2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Co-57 (Mössbauer Parent 271d), 1: Co-58 (Reactor Tracer 70.8d), 2: Co-59 (100% Main / Monoisotopic), 3: Co-60 (High-Gamma Radiation Source 5.27a)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Cobalt-57 (57Co) - Radioaktiv (271.7d) / Mössbauer-Mutterisotop (14.41 keV 57Fe* Gamma-Quelle)", 
  "Cobalt-58 (58Co) - Radioaktiv (70.86d) / Reaktor-Aktivierungs-Neutronentracer aus 58Ni", 
  "Cobalt-59 (59Co) - Stabil (100%) / Monoisotopischer N=32 Schalen-Knoten (Vitamin B12 & Akkus)", 
  "Cobalt-60 (60Co) - Radioaktiv (5.271a) / Industrie- & Medizin-Strahler (1.17 & 1.33 MeV g-Kaskade)"
};
int[] neutronCounts = {30, 31, 32, 33};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 027 (Cobalt) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 36, 36);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 68, 68);
  
  // Render FIVE 3d7 INNER LOBES (Cobalt Blue - Lobes 0 & 1 carry 2 paired electrons, Lobes 2,3,4 carry 1 electron)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.3f);
    strokeWeight(1.8f);
    stroke(59, 130, 246, 220); // Cobalt Blue 3d Lobes
    noFill();
    ellipse(0, 0, 90, 24);
    ellipse(0, 0, 24, 90);
    
    fill(59, 130, 246);
    noStroke();
    float dX = 45.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    float dY = 12.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 6, 6);
    
    // First two Lobes (d=0 and d=1) carry antiparallel paired electrons!
    if (d < 2) {
      fill(147, 197, 253); // Light Blue Highlight for Paired Electrons
      ellipse(-dX, -dY, 6, 6);
    }
    popMatrix();
  }
  
  // Render N-Shell (4s2 Outer Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Emerald Green 4s2 Shell
  float radius4s = 132.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (27 Protons + N Neutrons)
  // 27 Protons (Heptacosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 27; p++) {
    float angle = (TWO_PI / 27.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Co-57 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Co-58 Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Co-59 Monoisotop Green
    } else {
      fill(192, 132, 252); // Co-60 High-Gamma Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Co-60 High-Energy Double Gamma Cascade Pulse Effect
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 140 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 70, 70);
    stroke(56, 189, 248, 120 + sin(wavePhase * 5.0f + PI) * 80);
    ellipse(0, 0, 90, 90);
  }
  
  resetMatrix();
  drawCobaltOverlay();
}

void drawCobaltOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(96, 165, 250);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 027: COBALT (Co)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 27 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: MÖSSBAUER-MUTTERISOTOP (271.7d) // 14.41 keV Gammaquelle für 57Fe Spektroskopie", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: REAKTOR-AKTIVATIONSTRACER (70.86d) // Schwellenreaktions-Spur aus 58Ni", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MONOISOTOPISCHER HAUPTKNOTEN (100%) // Cobalamin Vitamin B12 & Akku-Katalysator", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: HIGH-GAMMA STRAHLER (5.27a) // Kaskadierende 1.17 & 1.33 MeV Bestrahlungsquelle", 35, 82);
  }
}

Drei antiparallele $3d^2$-Elektronenpaare schirmen die Kerneffektivladung ab, während zwei ungepaarte Traktoren den Ferromagnetismus des reinen Nickels tragen.

Aufgrund des optimalen Verhältnisses von Protonenabstossung zur starken Kernkraft der magischen $Z=28$-Schale besitzt $^{62}\text{Ni}$ den höchsten Energieertrag pro Nukleon im Universum.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_028_Nickel_Isotopes.pde - Nickel Octacosapol & 3d8 4s2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Ni-58 (Magic Z=28 / Main 68.08%), 1: Ni-60 (Supernova End-Product 26.22%), 2: Ni-62 (Max Binding Energy Peak 8.7945 MeV/u), 3: Ni-63 (Betavoltaic 101.2a)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Nickel-58 (58Ni) - Stabil (68.08%) / Magische Z=28 Protonenschale & N=30 Hauptisotop", 
  "Nickel-60 (60Ni) - Stabil (26.22%) / N=32 Schalenabschluss & Zerfallssenke von 60Fe", 
  "Nickel-62 (62Ni) - Stabil (3.63%) / ABSOLUTES BINDUNGSENERGIE-MAXIMUM DES UNIVERSUMS (8.7945 MeV/u)", 
  "Nickel-63 (63Ni) - Radioaktiv (101.2a) / Betavoltaik-Tracer für langlebige Nuklearbatterien"
};
int[] neutronCounts = {30, 32, 34, 35};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 028 (Nickel) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 36, 36);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 68, 68);
  
  // Render FIVE 3d8 INNER LOBES (Teal/Cyan - Lobes 0,1,2 carry 2 paired electrons, Lobes 3,4 carry 1 electron)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.3f);
    strokeWeight(1.8f);
    stroke(20, 184, 166, 220); // Nickel Teal 3d Lobes
    noFill();
    ellipse(0, 0, 88, 24);
    ellipse(0, 0, 24, 88);
    
    fill(20, 184, 166);
    noStroke();
    float dX = 44.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    float dY = 12.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 6, 6);
    
    // First three Lobes (d=0, d=1, d=2) carry antiparallel paired electrons!
    if (d < 3) {
      fill(99, 102, 241); // Indigo Highlight for Paired Electrons
      ellipse(-dX, -dY, 6, 6);
    }
    popMatrix();
  }
  
  // Render N-Shell (4s2 Outer Bipolar Subshell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Emerald Green 4s2 Shell
  float radius4s = 130.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (28 Protons + N Neutrons)
  // 28 Protons (Octacosapol Green - Magische Z=28 Schale)
  fill(52, 211, 153);
  for (int p = 0; p < 28; p++) {
    float angle = (TWO_PI / 28.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Ni-58 Main Green
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // Ni-60 Blue
    } else if (isotopeMode == 2) {
      fill(248, 113, 113); // Ni-62 Maximum Binding Energy Red/Gold
    } else {
      fill(192, 132, 252); // Ni-63 Betavoltaic Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Ni-62 Universal Binding Energy Peak Resonator Halo Glow
  if (isotopeMode == 2) {
    stroke(248, 113, 113, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(3.0f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(251, 191, 36, 140 + sin(wavePhase * 5.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawNickelOverlay();
}

void drawNickelOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(56, 189, 248);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 028: NICKEL (Ni)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 28 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHER Z=28 PROTONENKNOTEN (68.08%) // Edelstahl- & Akkumulator-Hauptanker", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: SUPERNOVA-ZERFALLSSENKE (26.22%) // Endprodukt der kosmischen 60Fe-Reihe", 35, 82);
  } else if (isotopeMode == 2) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: UNIVERSALER BINDUNGSENERGIE-GIPFEL // Maximale Kernstabilität (8.7945 MeV/u)", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: BETAVOLTAIK-ENERGIETRÄGER (101.2a) // Reine b- Emission für Raumfahrt-Nuklearbatterien", 35, 82);
  }
}

Durch die vollständige Besetzung der 5 $d$-Traktoren mit 10 Elektronen schließt sich die M-Schale spingesättigt ab. Das ungepaarte $4s^1$-Elektronen-Zentrum bestimmt den Gesamtspin $S=1/2$.

Der ungerade-ungerade Kern $^{64}\text{Cu}$ zerfällt simultan über Positronen-Emission ($\beta^+$), Elektroneinfang ($\text{EC}$) und Elektronen-Emission ($\beta^-$) – eine einzigartige Kombination für die Onkologie.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_029_Copper_Isotopes.pde - Copper Nonacosapol & 3d10 4s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Cu-63 (Main 69.15% / NMR Standard), 1: Cu-64 (Theranostic Triplet PET 12.7h), 2: Cu-65 (Stable 30.85%), 3: Cu-67 (Radioimmunotherapy 61.8h)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Kupfer-63 (63Cu) - Stabil (69.15%) / N=34 Symmetrische Neutronenschale & Cuprat-NMR Standard", 
  "Kupfer-64 (64Cu) - Radioaktiv (12.70h) / Theranostisches Triplet-Isotop (17.5% b+ / 43.5% EC / 39.0% b-)", 
  "Kupfer-65 (65Cu) - Stabil (30.85%) / N=36 Geschlossene Subschale & delta65Cu Geochemie-Marker", 
  "Kupfer-67 (67Cu) - Radioaktiv (61.83h) / Gezielter b- Radioimmuntherapie-Strahler für Tumore"
};
int[] neutronCounts = {34, 35, 36, 38};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 029 (Copper) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 36, 36);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 68, 68);
  
  // Render FIVE FULLY FILLED 3d10 INNER LOBES (Copper Orange - All 5 lobes carry 2 antiparallel electrons)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.3f);
    strokeWeight(1.8f);
    stroke(249, 115, 22, 220); // Copper Orange 3d Lobes
    noFill();
    ellipse(0, 0, 86, 24);
    ellipse(0, 0, 24, 86);
    
    // Antiparallel Electron Pair on ALL 5 lobes (3d10 Complete Shell!)
    fill(249, 115, 22);
    noStroke();
    float dX = 43.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    float dY = 12.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 6, 6);
    
    fill(251, 146, 60); // Bright Copper-Gold Highlight for 2nd Paired Electron
    ellipse(-dX, -dY, 6, 6);
    popMatrix();
  }
  
  // Render N-Shell (4s1 ANOMALOUS SINGLE OUTER VALENCE SHELL)
  strokeWeight(2.0f);
  stroke(56, 189, 248, 200); // Sky-Blue 4s1 Single Conduction Shell
  float radius4s = 130.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s1 SINGLE Outer Conduction Electron
  fill(56, 189, 248);
  noStroke();
  float valX = radius4s * cos(wavePhase * 0.7f);
  float valY = radius4s * sin(wavePhase * 0.7f);
  ellipse(valX, valY, 10, 10);
  
  // Render Nucleus Structure (29 Protons + N Neutrons)
  // 29 Protons (Nonacosapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 29; p++) {
    float angle = (TWO_PI / 29.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Cu-63 Main Green
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Cu-64 Theranostic Red
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // Cu-65 Blue
    } else {
      fill(192, 132, 252); // Cu-67 Radioimmunotherapy Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Cu-64 Theranostic Triple Radiation Pulse
  if (isotopeMode == 1) {
    stroke(248, 113, 113, 140 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(56, 189, 248, 120 + sin(wavePhase * 5.0f + HALF_PI) * 80);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawCopperOverlay();
}

void drawCopperOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(251, 146, 60);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 029: KUPFER (Cu) - 3d10 4s1 SONDERKNOTEN", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 29 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (69.15%) // Elektrische Leitfähigkeit & Cuprat-Supraleiter NMR", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: THERANOSTISCHER PET-TRIPLEKNOTEN (12.7h) // Synchrone Onkologie-Diagnostik & Therapie", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: SCHWERES STABILES ISOTOP (30.85%) // delta65Cu Geochemie- & Kosmochemie-Tracer", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: TARGET-RADIOIMMUNTHERAPEUT (61.8h) // Gezielte Tumorbestrahlung mit SPECT-Monitoring", 35, 82);
  }
}

Mit dem vollständigen Auffüllen der 5 $d$-Traktoren und der $4s$-Subschale schließt sich die $3d$-Reihe. Sämtliche Elektronenspins sind paarweise kompensiert ($S=0, L=0$).

Das Schließen der $1f_{5/2}$-Neutronensubschale ($N=34$) in Kombination mit der geradzahligen Protonenzahl $Z=30$ garantiert die extrem hohe Dominanz ($49{,}17\,\%$) von $^{64}\text{Zn}$.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_030_Zinc_Isotopes.pde - Zinc Triacontapol & 3d10 4s2 Block Closure Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Zn-64 (Main 49.17% / Cyclotron Target), 1: Zn-65 (Tracer 243.9d), 2: Zn-67 (NMR Spin 5/2 / 4.04%), 3: Zn-70 (Superheavy Target N=40)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Zink-64 (64Zn) - Stabil (49.17%) / N=34 Geschlossene Subschale & Zyklotron-Target für 64Cu", 
  "Zink-65 (65Zn) - Radioaktiv (243.9d) / Ökotoxikologie- & Stoffwechsel-Tracer (1115 keV g)", 
  "Zink-67 (67Zn) - Stabil (4.04%) / Unpaarer Spin 5/2 & Festkörper-NMR Zinkfinger Standard", 
  "Zink-70 (70Zn) - Stabil (0.61%) / N=40 Neutronenreiche Schale & Schwerionen-Fusionsprojektil"
};
int[] neutronCounts = {34, 35, 37, 40};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 030 (Zinc) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 18, 18);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 36, 36);
  
  // Render M-Shell (3s2 3p6 - Argon Core Base)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 68, 68);
  
  // Render FIVE FULLY FILLED 3d10 INNER LOBES (Purple/Violet - All 5 lobes carry 2 antiparallel electrons)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.3f);
    strokeWeight(1.8f);
    stroke(192, 132, 252, 220); // Purple/Violet 3d Lobes
    noFill();
    ellipse(0, 0, 84, 24);
    ellipse(0, 0, 24, 84);
    
    // Antiparallel Electron Pair on ALL 5 lobes (3d10 Complete Shell!)
    fill(192, 132, 252);
    noStroke();
    float dX = 42.0f * cos(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    float dY = 12.0f * sin(wavePhase * 1.2f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 6, 6);
    
    fill(168, 85, 247); // Violet Highlight for 2nd Paired Electron
    ellipse(-dX, -dY, 6, 6);
    popMatrix();
  }
  
  // Render N-Shell (4s2 CLOSED OUTER VALENCE SHELL)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Emerald Green 4s2 Shell
  float radius4s = 128.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (30 Protons + N Neutrons)
  // 30 Protons (Triacontapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 30; p++) {
    float angle = (TWO_PI / 30.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Zn-64 Main Green
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Zn-65 Red
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // Zn-67 NMR Blue
    } else {
      fill(192, 132, 252); // Zn-70 Target Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Zn-64 3d-Block Closure Resonator Halo Glow
  if (isotopeMode == 0) {
    stroke(192, 132, 252, 140 + sin(wavePhase * 4.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawZincOverlay();
}

void drawZincOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(192, 132, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 030: ZINK (Zn) - 3d-BLOCK ABSCHLUSS", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 30 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (49.17%) // Galvanik-Opferanode & Zyklotron-Target für 64Cu", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: REAKTOR-STOFFWECHSEL-TRACER (243.9d) // Ökotoxikologische Zinktransport-Analyse", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: UNPAARES SPIN 5/2 ISOTOP // Festkörper-NMR Spektroskopie für Zinkfinger-Proteine", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: NEUTRONENREICHE N=40 SCHALE // Schwerionen-Fusionsprojektil für Copernicium", 35, 82);
  }
}

Das Vorhandensein des einzelnen $4p_x^1$-Elektrons bricht die Kugel-Symmetrie der $3d^{10} 4s^2$-Unterstruktur und leitet den Eintritt in die p-Block-Kovalent-Chemie ein.

Ein solares pp-Neutrino transformiert ein Neutron der magischen $N=40$ Schale von $^{71}\text{Ga}$ unter Aussendung eines Elektrons in das radioaktive Germanium-71 ($T_{1/2} = 11{,}43\,\text{Tage}$).

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_031_Gallium_Isotopes.pde - Gallium Hentriacontapol & 4p1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Ga-67 (SPECT 3.26d), 1: Ga-68 (PET Generator 67.7m), 2: Ga-69 (Main 60.11%), 3: Ga-71 (GALLEX Solar Neutrino N=40)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Gallium-67 (67Ga) - Radioaktiv (3.26d) / SPECT Entzündungs- & Lymphom-Diagnostik Standard", 
  "Gallium-68 (68Ga) - Radioaktiv (67.71m) / Theranostisches Generator PET/CT-Isotop (PSMA-Marker)", 
  "Gallium-69 (69Ga) - Stabil (60.11%) / N=38 Symmetrischer Schalen-Knoten (GaAs/GaN Halbleiter)", 
  "Gallium-71 (71Ga) - Stabil (39.89%) / N=40 Geschlossene Schale & GALLEX Solar-Neutrinodetektor"
};
int[] neutronCounts = {36, 37, 38, 40};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 031 (Gallium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 16, 16);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 34, 34);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 65, 65);
  
  // Render 3d10 Inner Shell (5 Lobes Orange/Teal)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.2f);
    strokeWeight(1.2f);
    stroke(129, 140, 248, 160);
    noFill();
    ellipse(0, 0, 80, 20);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Bipolar Inner Subshell)
  strokeWeight(1.8f);
  stroke(52, 211, 153, 180); // Emerald Green 4s2 Shell
  float radius4s = 120.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render NEW 4p1 DIRECTIONAL OUT-OF-PLANE VALENCE LOBE (Sky-Blue p-orbital dumbbell)
  pushMatrix();
  rotate(wavePhase * 0.5f);
  strokeWeight(2.2f);
  stroke(56, 189, 248, 230); // Sky-Blue 4p1 Lobe
  noFill();
  float radius4p = 142.0f;
  ellipse(0, 0, radius4p * 2, 30);
  
  // 4p1 Single Outer Valence Electron
  fill(56, 189, 248);
  noStroke();
  float pX = radius4p * cos(wavePhase * 1.5f);
  float pY = 15.0f * sin(wavePhase * 1.5f);
  ellipse(pX, pY, 9, 9);
  popMatrix();
  
  // Render Nucleus Structure (31 Protons + N Neutrons)
  // 31 Protons (Hentriacontapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 31; p++) {
    float angle = (TWO_PI / 31.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Ga-67 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Ga-68 PET Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Ga-69 Main Green
    } else {
      fill(192, 132, 252); // Ga-71 GALLEX Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Ga-71 GALLEX Solar Neutrino Detector Resonator Halo Glow
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 140 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawGalliumOverlay();
}

void drawGalliumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(56, 189, 248);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 031: GALLIUM (Ga) - 4p-BLOCK INITIATOR", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 31 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: SPECT-ENTZÜNDUNGSMARKER (3.26d) // Binds an Transferrin in Tumorgeweben", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: GENERATOR-PET-ISOTOP (67.71m) // PSMA-Prostatakarzinom Theranostik-Standard", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (60.11%) // Optoelektronische III-V Halbleiter (GaAs/GaN)", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: SOLAR-NEUTRINO DETEKTOR (N=40) // GALLEX pp-Neutrinofang in Gran Sasso", 35, 82);
  }
}

Zwei ungepaarte $4p$-Elektronen in orthogonalen Raumrichtungen ($p_x, p_y$) bilden die kovalente Basis für die tetraedrische $sp^3$-Gitterstruktur des Germanium-Halbleiters.

Beim hypothetischen neutrinolosen doppelten Beta-Zerfall zerfallen zwei Neutronen von $^{76}\text{Ge}$ simultan in zwei Protonen und zwei Elektronen ohne Neutrinoemission – der Nachweis würde die Erhaltung der Leptonenzahl brechen und die effektive Majorana-Neutrinomasse $\langle m_{\beta\beta} \rangle$ direkt bestimmen.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_032_Germanium_Isotopes.pde - Germanium Dotriacontapol & 4p2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Ge-68 (PET Generator Parent 270.9d), 1: Ge-70 (Stable 20.57%), 2: Ge-74 (Main 36.54%), 3: Ge-76 (Majorana 0vbb Physics 2.1e21a)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Germanium-68 (68Ge) - Radioaktiv (270.95d) / PET-Generator Mutterisotop für 68Ga Nuklearmedizin", 
  "Germanium-70 (70Ge) - Stabil (20.57%) / N=38 Symmetrischer Schalen-Knoten für Festkörperkristalle", 
  "Germanium-74 (74Ge) - Stabil (36.54%) / N=42 Lithosphären-Hauptisotop (Transistoren & IR-Optik)", 
  "Germanium-76 (76Ge) - Selten Instabil (7.75%) / 0vbb Neutrinoloser doppelter Beta-Zerfall (LEGEND)"
};
int[] neutronCounts = {36, 38, 42, 44};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 032 (Germanium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 16, 16);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 34, 34);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 65, 65);
  
  // Render 3d10 Inner Shell (5 Lobes)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.2f);
    strokeWeight(1.2f);
    stroke(129, 140, 248, 160);
    noFill();
    ellipse(0, 0, 78, 20);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Bipolar Inner Subshell)
  strokeWeight(1.8f);
  stroke(52, 211, 153, 180); // Emerald Green 4s2 Shell
  float radius4s = 118.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render TWO ORTHOGONAL 4p2 VALENCE LOBES (4px and 4py - Violet/Purple p-orbitals)
  float radius4p = 140.0f;
  
  // 4px Lobe
  pushMatrix();
  rotate(wavePhase * 0.4f);
  strokeWeight(2.0f);
  stroke(192, 132, 252, 220); // Purple 4px Lobe
  noFill();
  ellipse(0, 0, radius4p * 2, 28);
  fill(192, 132, 252);
  noStroke();
  float pxX = radius4p * cos(wavePhase * 1.4f);
  float pxY = 14.0f * sin(wavePhase * 1.4f);
  ellipse(pxX, pxY, 8, 8);
  popMatrix();
  
  // 4py Lobe (90 degrees rotated / Orthogonal)
  pushMatrix();
  rotate(wavePhase * 0.4f + HALF_PI);
  strokeWeight(2.0f);
  stroke(168, 85, 247, 220); // Violet 4py Lobe
  noFill();
  ellipse(0, 0, radius4p * 2, 28);
  fill(168, 85, 247);
  noStroke();
  float pyX = radius4p * cos(wavePhase * 1.4f + PI);
  float pyY = 14.0f * sin(wavePhase * 1.4f + PI);
  ellipse(pyX, pyY, 8, 8);
  popMatrix();
  
  // Render Nucleus Structure (32 Protons + N Neutrons)
  // 32 Protons (Dotriacontapol Green)
  fill(52, 211, 153);
  for (int p = 0; p < 32; p++) {
    float angle = (TWO_PI / 32.0f) * p + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // Ge-68 PET Red
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // Ge-70 Blue
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Ge-74 Main Green
    } else {
      fill(192, 132, 252); // Ge-76 0vbb Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Ge-76 Neutrinoless Double Beta Decay Pulse Effect
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 150 + sin(wavePhase * 6.0f) * 95);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(248, 113, 113, 120 + sin(wavePhase * 6.0f + PI) * 85);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawGermaniumOverlay();
}

void drawGermaniumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(192, 132, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 032: GERMANIUM (Ge) - 4p2 HALBLEITER", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 32 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: PET-GENERATOR MUTTERISOTOP (270.9d) // Reiner EC-Zerfall zu 68Ga für Tumordiagnostik", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: LEICHTES STABILES ISOTOP (20.57%) // Angereicherte Kristalle für Gitterdynamik-Studien", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (36.54%) // Transistoren, Infrarot-Optiken & Glasfaser-Lichtleiter", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: MAJORANA NEUTRINOPHYSIK-ISOTOP // Suche nach dem neutrinolosen doppelten Beta-Zerfall (0vbb)", 35, 82);
  }
}

Durch die exakt halbgefüllte $4p^3$-Valenzschale ergibt sich ein kugelsymmetrischer $^{4}S_{3/2}$-Grundzustand mit maximaler Austauschenergie und hoher chemischer Bindungsstabilität.

Die stabile $N=42$ Neutronenkonfiguration arretiert den ungeraden $Z=33$ Protonenknoten vollständig, wodurch $^{75}\text{As}$ als einziges stabiles natürlich vorkommendes Isotop existiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_033_Arsenic_Isotopes.pde - Arsenic Tritriacontapol & 4p3 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: As-72 (PET Positron Emitter 26h), 1: As-73 (Geo Tracer 80.3d), 2: As-75 (100% Main / Monoisotopic), 3: As-76 (Reactor Activation 26.74h)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Arsen-72 (72As) - Radioaktiv (26.0h) / Positronen-Emitter (b+) für experimentelle PET-Bildgebung", 
  "Arsen-73 (73As) - Radioaktiv (80.3d) / Hydrologischer Tracer zur Modellierung von Grundwasser-Migration", 
  "Arsen-75 (75As) - Stabil (100%) / Monoisotopischer N=42 Schalen-Knoten (GaAs Halbleiter & ICP-MS)", 
  "Arsen-76 (76As) - Radioaktiv (26.74h) / Reaktor-Neutronenaktivierungs-Marker mit hochenergetischem b-"
};
int[] neutronCounts = {39, 40, 42, 43};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 033 (Arsenic) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 16, 16);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 34, 34);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 65, 65);
  
  // Render 3d10 Inner Shell (5 Lobes)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.2f);
    strokeWeight(1.2f);
    stroke(129, 140, 248, 160);
    noFill();
    ellipse(0, 0, 78, 20);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Bipolar Inner Subshell)
  strokeWeight(1.8f);
  stroke(52, 211, 153, 180); // Emerald Green 4s2 Shell
  float radius4s = 118.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render THREE SYMMETRIC 4p3 HALF-FILLED VALENCE LOBES (Emerald/Teal - 120 degrees apart)
  float radius4p = 138.0f;
  for (int p = 0; p < 3; p++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * p + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(16, 185, 129, 220); // Emerald Green 4p3 Lobes
    noFill();
    ellipse(0, 0, radius4p * 2, 28);
    
    // 1 Electron per 4p lobe (High-Spin S = 3/2 Half-Shell)
    fill(16, 185, 129);
    noStroke();
    float pX = radius4p * cos(wavePhase * 1.3f + p);
    float pY = 14.0f * sin(wavePhase * 1.3f + p);
    ellipse(pX, pY, 8, 8);
    popMatrix();
  }
  
  // Render Nucleus Structure (33 Protons + N Neutrons)
  // 33 Protons (Tritriacontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 33; pr++) {
    float angle = (TWO_PI / 33.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // As-72 PET Red
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // As-73 Blue
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // As-75 Monoisotop Green
    } else {
      fill(192, 132, 252); // As-76 Activation Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // As-75 Monoisotopic Symmetrical Halo Glow
  if (isotopeMode == 2) {
    stroke(52, 211, 153, 150 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawArsenicOverlay();
}

void drawArsenicOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(52, 211, 153);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 033: ARSEN (As) - 4p3 HALBSCHALE", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 33 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: POSITRONEN-EMITTER (26.0h) // b+ Nuklid für experimentelle PET-Bildgebung", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: HYDROLOGISCHER TRACER (80.3d) // Modellierung von Grundwasser-Verunreinigungen", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MONOISOTOPISCHER HAUPTKNOTEN (100%) // GaAs Mikrowellen-Halbleiter & ICP-MS Standard", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: REAKTOR-AKTIVIERUNGSMARKER (26.74h) // Hochenergetischer b- Purge zu 76Se", 35, 82);
  }
}

Die doppelt besetzte $4p_x^2$-Traktorwelle erzeugt zusammen mit den beiden ungepaarten $4p_y^1 4p_z^1$-Traktoren den charakteristischen $^3P_2$-Grundzustand des Chalcogen-Systems.

Das Schließen der $N=46$-Subschale sichert die hohe Dominanz von $^{80}\text{Se}$, während $^{82}\text{Se}$ unter doppelter Protonentransformation ($Z: 34 \to 36$) langsam in das Edelgas Krypton-82 relaxiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_034_Selenium_Isotopes.pde - Selenium Tetratriacontapol & 4p4 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Se-74 (Light p-Process 0.89%), 1: Se-77 (NMR Spin 1/2 / 7.63%), 2: Se-80 (Main 49.61%), 3: Se-82 (Double Beta Decay 2vbb 8.73%)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Selen-74 (74Se) - Stabil (0.89%) / Seltenes p-Prozess Nuklid & Geschlossene N=40 Subschale", 
  "Selen-77 (77Se) - Stabil (7.63%) / Unpaarer Spin 1/2 & Bioinorganischer Selenocystein NMR-Marker", 
  "Selen-80 (80Se) - Stabil (49.61%) / N=46 Hauptisotop (CIGS Photovoltaik & Selenoenzyme)", 
  "Selen-82 (82Se) - Selten Instabil (8.73%) / 2vbb Doppelter Beta-Zerfall zu 82Kr (T1/2 = 9.2e19a)"
};
int[] neutronCounts = {40, 43, 46, 48};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 034 (Selenium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 16, 16);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 34, 34);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 65, 65);
  
  // Render 3d10 Inner Shell (5 Lobes)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.2f);
    strokeWeight(1.2f);
    stroke(129, 140, 248, 160);
    noFill();
    ellipse(0, 0, 78, 20);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Bipolar Inner Subshell)
  strokeWeight(1.8f);
  stroke(52, 211, 153, 180); // Emerald Green 4s2 Shell
  float radius4s = 118.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render THREE 4p4 VALENCE LOBES (120 deg apart)
  // Lobe 0 has 2 paired electrons (4px2), Lobes 1 and 2 have 1 electron each (4py1, 4pz1)
  float radius4p = 138.0f;
  for (int p = 0; p < 3; p++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * p + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(234, 179, 8, 220); // Yellow 4p4 Lobes
    noFill();
    ellipse(0, 0, radius4p * 2, 28);
    
    // Electron 1
    fill(234, 179, 8);
    noStroke();
    float pX = radius4p * cos(wavePhase * 1.3f + p);
    float pY = 14.0f * sin(wavePhase * 1.3f + p);
    ellipse(pX, pY, 8, 8);
    
    // First Lobe (p=0) carries the 4th electron (antiparallel pair in 4px!)
    if (p == 0) {
      fill(250, 204, 21); // Bright Gold Highlight for Paired Electron
      ellipse(-pX, -pY, 8, 8);
    }
    popMatrix();
  }
  
  // Render Nucleus Structure (34 Protons + N Neutrons)
  // 34 Protons (Tetratriacontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 34; pr++) {
    float angle = (TWO_PI / 34.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Se-74 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Se-77 NMR Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Se-80 Main Green
    } else {
      fill(192, 132, 252); // Se-82 2vbb Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Se-82 Double Beta Decay Pulse Effect
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 150 + sin(wavePhase * 6.0f) * 95);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(234, 179, 8, 120 + sin(wavePhase * 6.0f + PI) * 85);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawSeleniumOverlay();
}

void drawSeleniumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(250, 204, 21);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 034: SELEN (Se) - 4p4 CHALCOGEN", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 34 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: SELTENES p-PROZESS NUKLID (0.89%) // N=40 Geschlossene Subschale & Doppel-EC Kanal", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: UNPAARES SPIN 1/2 ISOTOP (7.63%) // Bioinorganischer Selenoprotein NMR-Marker", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (49.61%) // Photoleitfähigkeit, CIGS-Solarzellen & Selenocystein", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: 2vbb DOPPELTER BETA-EMITTER // NEMO-3 Standardzerfall (9.2e19a) zu 82Kr", 35, 82);
  }
}

Zwei doppelt besetzte Traktoren ($4p_x^2, 4p_y^2$) und eine ungepaarte Valenzlücke ($4p_z^1$) erzeugen den charakteristischen $^2P_{3/2}$-Grundzustand des Brom-Halogensystems.

Durch die Aufnahme eines Elektrons relaxiert die $4p^5$-Konfiguration in das spingesättigte $4p^6$-Halbleiter-Edelgasgitter mit $S=0$.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_035_Bromine_Isotopes.pde - Bromine Pentatriacontapol & 4p5 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Br-77 (Auger Therapy 57.0h), 1: Br-79 (Main 50.69%), 2: Br-81 (Duet Main 49.31%), 3: Br-82 (Reactor Tracer 35.3h)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Brom-77 (77Br) - Radioaktiv (57.0h) / Auger-Elektronen-Therapeut für Molekular-Onkologie", 
  "Brom-79 (79Br) - Stabil (50.69%) / N=44 Symmetrisches Hauptisotop (Halogen-Organik & NMR)", 
  "Brom-81 (81Br) - Stabil (49.31%) / N=46 Duett-Partnerschafts-Isotop (MS Doppelpeak-Muster)", 
  "Brom-82 (82Br) - Radioaktiv (35.28h) / Reaktor-Aktivierter Tracer für Strömungsprozesse"
};
int[] neutronCounts = {42, 44, 46, 47};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 035 (Bromine) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 16, 16);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 34, 34);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 65, 65);
  
  // Render 3d10 Inner Shell (5 Lobes)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.2f);
    strokeWeight(1.2f);
    stroke(129, 140, 248, 160);
    noFill();
    ellipse(0, 0, 78, 20);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Bipolar Inner Subshell)
  strokeWeight(1.8f);
  stroke(52, 211, 153, 180); // Emerald Green 4s2 Shell
  float radius4s = 118.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render THREE 4p5 VALENCE LOBES (120 deg apart)
  // Lobes 0 and 1 have 2 paired electrons each (4px2, 4py2), Lobe 2 has 1 electron (4pz1)
  float radius4p = 138.0f;
  for (int p = 0; p < 3; p++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * p + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(239, 68, 68, 220); // Bromine Red 4p5 Lobes
    noFill();
    ellipse(0, 0, radius4p * 2, 28);
    
    // Electron 1
    fill(239, 68, 68);
    noStroke();
    float pX = radius4p * cos(wavePhase * 1.3f + p);
    float pY = 14.0f * sin(wavePhase * 1.3f + p);
    ellipse(pX, pY, 8, 8);
    
    // Lobes 0 and 1 carry antiparallel paired electrons!
    if (p < 2) {
      fill(248, 113, 113); // Bright Red Highlight for Paired Electron
      ellipse(-pX, -pY, 8, 8);
    }
    popMatrix();
  }
  
  // Render Nucleus Structure (35 Protons + N Neutrons)
  // 35 Protons (Pentatriacontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 35; pr++) {
    float angle = (TWO_PI / 35.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Br-77 Blue
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Br-79 Main Green
    } else if (isotopeMode == 2) {
      fill(248, 113, 113); // Br-81 Duet Red
    } else {
      fill(192, 132, 252); // Br-82 Activation Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Br-79 / Br-81 Duet Resonator Halo Glow
  if (isotopeMode == 1 || isotopeMode == 2) {
    stroke(239, 68, 68, 150 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawBromineOverlay();
}

void drawBromineOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(248, 113, 113);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 035: BROM (Br) - 4p5 HALOGEN", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 35 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: AUGER-ELEKTRONEN-THERAPEUT (57.0h) // Molekularonkologische Tumor-Bestrahlung", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (50.69%) // Flüssige Elementarphase, Flammschutzmittel & Organik", 35, 82);
  } else if (isotopeMode == 2) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: STABILES DUETT-PARTNERISOTOP (49.31%) // Massenspektrometrische 1:1 Doppelpeak-Signatur", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: REAKTOR-AKTIVATIONSTRACER (35.28h) // Gamma-Kaskadenquelle für Industrieprozesse", 35, 82);
  }
}

Mit dem vollständigen Auffüllen aller drei $4p$-Traktoren mit 6 Elektronen schließt sich die 4. Periode des Periodensystems ab. Sämtliche Spins sind kompensiert ($S=0$).

Das Erreichen der magischen $N=50$ Neutronenschale verleiht $^{86}\text{Kr}$ eine unübertroffene Spektrallinien-Stabilität, welche die historische Vakuum-Meterdefinition schuf.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_036_Krypton_Isotopes.pde - Krypton Hexatriacontapol & 4p6 Period 4 Closure Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 4
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 3; // 0: Kr-78 (Double EC 0.35%), 1: Kr-83 (NMR Spin 9/2 / 11.50%), 2: Kr-85 (Radioactive Tracer 10.78a), 3: Kr-86 (Magic N=50 Meter Standard 17.30%)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Krypton-78 (78Kr) - Selten Instabil (0.35%) / Doppelter EC-Kanal (2v2EC) zu Selen-78 (9.2e21a)", 
  "Krypton-83 (83Kr) - Stabil (11.50%) / Unpaarer Spin 9/2+ & Hyperpolarisiertes MRT-Lungendiagnostikum", 
  "Krypton-85 (85Kr) - Radioaktiv (10.776a) / Troposphärischer Kernbrennstoff-Tracer aus Wiederaufarbeitung", 
  "Krypton-86 (86Kr) - Stabil (17.30%) / MAGISCHE N=50 NEUTRONENSCHALE & Historischer SI-Meterstandard"
};
int[] neutronCounts = {42, 47, 49, 50};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 036 (Krypton) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 16, 16);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.2f);
  stroke(249, 115, 22, 120);
  ellipse(0, 0, 34, 34);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.5f);
  stroke(129, 140, 248, 140);
  ellipse(0, 0, 65, 65);
  
  // Render 3d10 Inner Shell (5 Lobes)
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.2f);
    strokeWeight(1.2f);
    stroke(129, 140, 248, 160);
    noFill();
    ellipse(0, 0, 78, 20);
    popMatrix();
  }
  
  // Render N-Shell (4s2 Bipolar Inner Subshell)
  strokeWeight(1.8f);
  stroke(52, 211, 153, 180); // Emerald Green 4s2 Shell
  float radius4s = 118.0f;
  noFill();
  ellipse(0, 0, radius4s * 2, radius4s * 2);
  
  // 4s2 Antiparallel Outer Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius4s * cos(wavePhase * 0.6f);
  float valY1 = radius4s * sin(wavePhase * 0.6f);
  float valX2 = radius4s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius4s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render THREE FULLY CLOSED 4p6 VALENCE LOBES (Indigo/Cyan - ALL 3 Lobes carry antiparallel electron pairs!)
  float radius4p = 138.0f;
  for (int p = 0; p < 3; p++) {
    pushMatrix();
    rotate((TWO_PI / 3.0f) * p + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(99, 102, 241, 220); // Indigo 4p6 Lobes
    noFill();
    ellipse(0, 0, radius4p * 2, 28);
    
    // Electron Pair on ALL 3 lobes (4p6 Complete Noble Gas Shell)
    fill(99, 102, 241);
    noStroke();
    float pX = radius4p * cos(wavePhase * 1.3f + p);
    float pY = 14.0f * sin(wavePhase * 1.3f + p);
    ellipse(pX, pY, 8, 8);
    
    fill(129, 140, 248); // Cyan-Indigo Highlight for 2nd Paired Electron
    ellipse(-pX, -pY, 8, 8);
    popMatrix();
  }
  
  // Render Nucleus Structure (36 Protons + N Neutrons)
  // 36 Protons (Hexatriacontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 36; pr++) {
    float angle = (TWO_PI / 36.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Kr-78 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Kr-83 NMR Red
    } else if (isotopeMode == 2) {
      fill(192, 132, 252); // Kr-85 Tracer Purple
    } else {
      fill(52, 211, 153); // Kr-86 Magic N=50 Main Green
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Kr-86 Magic N=50 Resonator Halo Glow
  if (isotopeMode == 3) {
    stroke(99, 102, 241, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(52, 211, 153, 130 + sin(wavePhase * 5.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawKryptonOverlay();
}

void drawKryptonOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(129, 140, 248);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 036: KRYPTON (Kr) - 4. PERIODE EDELGAS-ABSCHLUSS", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 36 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: DOPPELTER EC-KANAL (0.35%) // Seltenes Primordial-Isotop mit 9.2e21a Halbwertszeit", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: UNPAARES SPIN 9/2+ ISOTOP (11.50%) // Hyperpolarisiertes MRT-Lungenkontrastmittel", 35, 82);
  } else if (isotopeMode == 2) {
    fill(192, 132, 252);
    text("MATRIX-STATUS: ATMOSPHÄRISCHER TRACER (10.78a) // Nukleare Wiederaufarbeitungs-Überwachung", 35, 82);
  } else {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHES N=50 NUKLID (17.30%) // Historischer 605.7 nm SI-Meter-Wellenlängenstandard", 35, 82);
  }
}

Das isolierte $5s^1$-Valenzelektron erzeugt über dem spingesättigten $4p^6$-Kryptonrumpf den typischen $^2S_{1/2}$-Grundzustand aller schweren Alkalimetalle.

Der extrem langsame Zerfall von $^{87}\text{Rb}$ in das magische $N=49 / Z=38$ Strontium-87 dient über die Isochronen-Methode zur Bestimmung des Alters des Sonnensystems.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_037_Rubidium_Isotopes.pde - Rubidium Heptatriacontapol & 5s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Rb-82 (PET Myocardial 1.27m), 1: Rb-85 (Main Stable 72.17%), 2: Rb-86 (Biological Tracer 18.6d), 3: Rb-87 (BEC & Geochronology N=50 4.97e10a)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Rubidium-82 (82Rb) - Radioaktiv (1.27m) / PET-Myokard-Perfusionsdiagnostik aus 82Sr Generator", 
  "Rubidium-85 (85Rb) - Stabil (72.17%) / N=48 Hauptisotop (Alkalimetall-Frequenzstandard & Atomuhren)", 
  "Rubidium-86 (86Rb) - Radioaktiv (18.64d) / Physiologischer b- Tracer für zelluläre Na+/K+-Pumpen", 
  "Rubidium-87 (87Rb) - Primordial (27.83%) / MAGISCHE N=50 NEUTRONENSCHALE (Bose-Einstein-Kondensat & Rb-Sr Altersbestimmung)"
};
int[] neutronCounts = {45, 48, 49, 50};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 037 (Rubidium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 96, 96);
  
  // Render NEW O-Shell (5s1 SPHERICAL VALENCE SHELL - Extended Outer Sphere)
  strokeWeight(2.2f);
  stroke(244, 63, 94, 220); // Rubidium Rose 5s1 Shell
  float radius5s = 142.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s1 SINGLE OUTER VALENCE ELECTRON
  fill(244, 63, 94);
  noStroke();
  float valX = radius5s * cos(wavePhase * 0.5f);
  float valY = radius5s * sin(wavePhase * 0.5f);
  ellipse(valX, valY, 10, 10);
  
  // Render Nucleus Structure (37 Protons + N Neutrons)
  // 37 Protons (Heptatriacontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 37; pr++) {
    float angle = (TWO_PI / 37.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // Rb-82 PET Red
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Rb-85 Main Green
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // Rb-86 Tracer Blue
    } else {
      fill(192, 132, 252); // Rb-87 BEC & Geochronology Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Rb-87 BEC Coherence & Magic N=50 Resonator Halo Glow
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(244, 63, 94, 130 + sin(wavePhase * 5.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawRubidiumOverlay();
}

void drawRubidiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(251, 113, 133);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 037: RUBIDIUM (Rb) - BAND 5 (5s1 INITIATOR)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 37 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: PET-MYOKARD-PERFUSIONSTRACER (1.27m) // Herzmuskel-Diagnostik aus 82Sr Generator", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (72.17%) // Atomuhren-Frequenzstandard & Alkalimetall-Spektroskopie", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: PHYSIOLOGISCHER TRACER (18.64d) // b- Analyse zellulärer Ionenpumpsysteme", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: MAGISCHES N=50 PRIMORDIAL-ISOTOP // Bose-Einstein-Kondensation & Rb-Sr Geochronologie", 35, 82);
  }
}

Das vollbesetzte antiparallele $5s^2$-Elektronenpaar schließt die äußere S-Subschale ab ($S=0$). Es schirmt den Kern ab und definiert die extrem leichte Zwei-Elektronen-Ionisierbarkeit.

Das magische $N=50$-Isotop $^{88}\text{Sr}$ bildet die Stabilitätsspitze, während das nukleare Spaltprodukt $^{90}\text{Sr}$ schrittweise über Yttrium-90 in das stabile Zirconium-90 zerfällt.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_038_Strontium_Isotopes.pde - Strontium Octatriacontapol & 5s2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Sr-86 (Forensic Anchor 9.86%), 1: Sr-87 (Optical Clock Standard Spin 9/2+ / 7.00%), 2: Sr-88 (Main Stable / Magic N=50 Shell 82.58%), 3: Sr-90 (Fission Radioisotope 28.9a)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Strontium-86 (86Sr) - Stabil (9.86%) / N=48 Geochronologisches & Forensisches Herkunfts-Referenzisotop", 
  "Strontium-87 (87Sr) - Stabil (7.00%) / Unpaarer Spin 9/2+ & PTB/NIST Optischer Atomuhr-Gitterstandard", 
  "Strontium-88 (88Sr) - Stabil (82.58%) / MAGISCHE N=50 NEUTRONENSCHALE (Hauptisotop der Lithosphäre)", 
  "Strontium-90 (90Sr) - Radioaktiv (28.90a) / Fissions-Spaltprodukt & Osteotrover b- Emitter zu 90Y"
};
int[] neutronCounts = {48, 49, 50, 52};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 038 (Strontium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 96, 96);
  
  // Render O-Shell (5s2 CLOSED SPHERICAL VALENCE SHELL - Antiparallel Pair)
  strokeWeight(2.2f);
  stroke(251, 146, 60, 220); // Strontium Orange/Karmin 5s2 Shell
  float radius5s = 140.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s2 Antiparallel Outer Valence Electrons
  fill(251, 146, 60);
  noStroke();
  float valX1 = radius5s * cos(wavePhase * 0.6f);
  float valY1 = radius5s * sin(wavePhase * 0.6f);
  float valX2 = radius5s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius5s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (38 Protons + N Neutrons)
  // 38 Protons (Octatriacontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 38; pr++) {
    float angle = (TWO_PI / 38.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Sr-86 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Sr-87 Clock Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Sr-88 Magic N=50 Main Green
    } else {
      fill(192, 132, 252); // Sr-90 Fission Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Sr-88 Magic N=50 Resonator & Sr-87 Clock Laser Interlocking Halo Glow
  if (isotopeMode == 2) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  } else if (isotopeMode == 1) {
    stroke(248, 113, 113, 160 + sin(wavePhase * 6.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(251, 146, 60, 130 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawStrontiumOverlay();
}

void drawStrontiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(251, 146, 60);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 038: STRONTIUM (Sr) - 5s2 ERDALKALI", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 38 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: FORENSISCHES REFERENZISOTOP (9.86%) // Herkunftsbestimmung via 87Sr/86Sr Isotropie", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: OPTISCHER ATOMUHR-STANDARD (7.00%) // PTB/NIST Gitteruhr mit 10^-18 Präzision", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHES N=50 HAUPTISOTOP (82.58%) // Maximales Schalenstabilitäts-Minimum", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: FISSIONS-SPALTPRODUKT (28.90a) // Osteotrover b- Emitter mit Knochen-Retention", 35, 82);
  }
}

Das Vorhandensein des ersten ungepaarten $4d^1$-Traktors zusammen mit der $5s^2$-Hülle erzeugt den charakteristischen $^2D_{3/2}$-Grundzustand des Yttrium-Knotens.

Das magische $N=50$-Monoisotop $^{89}\text{Y}$ arretiert die Stabilität im Raumgitter, während $^{90}\text{Y}$ über reine hochreine Beta-Emission schadfrei ohne störende Gamma-Begleitstrahlung in das stabile Zirconium-90 relaxiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_039_Yttrium_Isotopes.pde - Yttrium Enneatriacontapol & 4d1 5s2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Y-87 (SPECT Tracer 79.8h), 1: Y-88 (Gamma Standard 106.6d), 2: Y-89 (Main 100% Monoisotopic / Magic N=50), 3: Y-90 (Theranostic High-Beta 2.28 MeV / 64.1h)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Yttrium-87 (87Y) - Radioaktiv (79.8h) / SPECT/PET Diagnostik-Vorläufer-Tracer vor 90Y-Therapie", 
  "Yttrium-88 (88Y) - Radioaktiv (106.6d) / Kosmischer Aktivierungs-Standard & HPGe-Kalibrierquelle", 
  "Yttrium-89 (89Y) - Stabil (100%) / MAGISCHE N=50 NEUTRONENSCHALE (YBCO Supraleiter & YAG-Laser)", 
  "Yttrium-90 (90Y) - Radioaktiv (64.10h) / Theranostischer Hochenergie b- Emitter (2.28 MeV SIRT & Zevalin)"
};
int[] neutronCounts = {48, 49, 50, 51};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 039 (Yttrium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render NEW 4d1 INNER ORBITAL LOBE (Violet d-orbital dumbbell)
  pushMatrix();
  rotate(wavePhase * 0.4f);
  strokeWeight(2.0f);
  stroke(167, 139, 250, 220); // Purple/Violet 4d1 Lobe
  noFill();
  float radius4d = 114.0f;
  ellipse(0, 0, radius4d * 2, 26);
  
  // 4d1 Single Inner Valence Electron
  fill(167, 139, 250);
  noStroke();
  float dX = radius4d * cos(wavePhase * 1.4f);
  float dY = 13.0f * sin(wavePhase * 1.4f);
  ellipse(dX, dY, 8, 8);
  popMatrix();
  
  // Render O-Shell (5s2 Bipolar Outer Valence Shell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 180); // Emerald Green 5s2 Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius5s * cos(wavePhase * 0.6f);
  float valY1 = radius5s * sin(wavePhase * 0.6f);
  float valX2 = radius5s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius5s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (39 Protons + N Neutrons)
  // 39 Protons (Enneatriacontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 39; pr++) {
    float angle = (TWO_PI / 39.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Y-87 SPECT Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Y-88 Gamma Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Y-89 Magic N=50 Main Green
    } else {
      fill(192, 132, 252); // Y-90 High-Beta Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Y-89 Magic N=50 Resonator & Y-90 High-Energy Beta Therapy Halo Pulse
  if (isotopeMode == 2) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  } else if (isotopeMode == 3) {
    stroke(192, 132, 252, 160 + sin(wavePhase * 6.0f) * 95);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(167, 139, 250, 130 + sin(wavePhase * 6.0f + PI) * 85);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawYttriumOverlay();
}

void drawYttriumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(196, 181, 253);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 039: YTTRIUM (Y) - 4d-BLOCK INITIATOR", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 39 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: SPECT/PET DIAGNOSTIK-TRACER (79.8h) // Dosimetrie-Vorläufer für 90Y-Radioimmuntherapie", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: GAMMA-KALIBRIERSTANDARD (106.6d) // Präzisions-Referenzquelle für HPGe-Detektoren", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHES N=50 MONOISOTOP (100%) // YBCO HT-Supraleiter & YAG-Festkörperlaser", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: HOCHENEERGIE-b- THERAPEUT (64.10h) // Selektive Tumorbestrahlung (SIRT & Zevalin)", 35, 82);
  }
}

Zwei ungepaarte $4d$-Traktoren bilden zusammen mit der $5s^2$-Hülle den spintripletten $^3F_2$-Grundzustand des Zirconium-Knotens.

Das magische $N=50$-Hauptisotop $^{90}\text{Zr}$ definiert das lokale Schalenstabilitätsminimum, während $^{96}\text{Zr}$ unter zweifacher Protonen-Transformation in den stabilen Molybdän-96-Knoten übergeht.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_040_Zirconium_Isotopes.pde - Zirconium Tetragontapol & 4d2 5s2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Zr-90 (Main Stable 51.45% / Magic N=50 Zircaloy Standard), 1: Zr-91 (NMR Spin 5/2+ / 11.22%), 2: Zr-94 (Stable 17.38%), 3: Zr-96 (Double Beta Decay 2v2b 2.3e19a / 2.80%)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Zirconium-90 (90Zr) - Stabil (51.45%) / MAGISCHE N=50 NEUTRONENSCHALE (Zircaloy Reaktor-Hüllrohre)", 
  "Zirconium-91 (91Zr) - Stabil (11.22%) / Unpaarer Spin 5/2+ & NMR-Anker für Zirkonia-Hochleistungskeramik", 
  "Zirconium-94 (94Zr) - Stabil (17.38%) / Symmetrisch gepuffertes EVM-Gitterisotop der Geochemie", 
  "Zirconium-96 (96Zr) - Primordial (2.80%) / 2vbb Doppelter Beta-Zerfall zu Molybdän-96 (2.3e19a)"
};
int[] neutronCounts = {50, 51, 54, 56};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 040 (Zirconium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render TWO 4d2 INNER ORBITAL LOBES (Orthogonal Violet/Cyan d-orbitals)
  float radius4d = 114.0f;
  for (int d = 0; d < 2; d++) {
    pushMatrix();
    rotate((HALF_PI) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(167, 139, 250, 220); // Violet 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 26);
    
    // Single Electron per 4d lobe (4d2 Parallel Spin Configuration)
    fill(167, 139, 250);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * PI);
    float dY = 13.0f * sin(wavePhase * 1.4f + d * PI);
    ellipse(dX, dY, 8, 8);
    popMatrix();
  }
  
  // Render O-Shell (5s2 Bipolar Outer Valence Shell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 180); // Emerald Green 5s2 Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius5s * cos(wavePhase * 0.6f);
  float valY1 = radius5s * sin(wavePhase * 0.6f);
  float valX2 = radius5s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius5s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (40 Protons + N Neutrons)
  // 40 Protons (Tetragontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 40; pr++) {
    float angle = (TWO_PI / 40.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(52, 211, 153); // Zr-90 Magic N=50 Green
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Zr-91 NMR Red
    } else if (isotopeMode == 2) {
      fill(56, 189, 248); // Zr-94 Stable Blue
    } else {
      fill(192, 132, 252); // Zr-96 2vbb Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Zr-90 Magic N=50 Resonator & Zr-96 Double Beta Decay Pulse Effect
  if (isotopeMode == 0) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  } else if (isotopeMode == 3) {
    stroke(192, 132, 252, 160 + sin(wavePhase * 6.0f) * 95);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(167, 139, 250, 130 + sin(wavePhase * 6.0f + PI) * 85);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawZirconiumOverlay();
}

void drawZirconiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(103, 232, 249);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 040: ZIRCONIUN (Zr) - 4d2 5s2 TITAN-HOMOLOG", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 40 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: MAGISCHES N=50 HAUPTISOTOP (51.45%) // Minimaler Neutroneneinfang für Reaktor-Hüllrohre", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: NMR-SPINNUKLID 5/2+ (11.22%) // Spektroskopischer Anker für Zirkonia-Hochleistungskeramik", 35, 82);
  } else if (isotopeMode == 2) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: SYMMETRISCHES EVM-ISOTOP (17.38%) // Stabilisierender Matrixknoten der Geochemie", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: 2vbb DOPPELTER BETA-EMITTER (2.3e19a) // Primordiale Transformation zu Molybdän-96", 35, 82);
  }
}

Durch das Anheben eines $5s$-Elektrons in die $4d$-Schale bilden sich vier ungepaarte $4d$-Traktoren und eine ungepaarte $5s$-Kugelwelle, woraus der maximale Spin $S=5/2$ der 5. Nebengruppe resultiert.

Das stabile Monoisotop $^{93}\text{Nb}$ garantiert die Stabilität supraleitender Matrizen, während der extrem langsame Zerfall von $^{92}\text{Nb}$ zu Zirconium-92 die chronologische Auflösung der Frühphase des Sonnensystems ermöglicht.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_041_Niobium_Isotopes.pde - Niobium Hentetragontapol & 4d4 5s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Nb-91 (Cyclotron Isotope N=50 / 680a), 1: Nb-92 (Extinct Early Solar Chronometer / 34.7 Ma), 2: Nb-93 (Main Stable 100% Monoisotopic / Superconductor Anchor), 3: Nb-94 (Long-lived Reactor Activation Tracer / 20300a)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Niob-91 (91Nb) - Radioaktiv (680a) / MAGISCHE N=50 NEUTRONENSCHALE (Zyklotron-Reaktionsprodukt)", 
  "Niob-92 (92Nb) - Extinkt (34.7 Ma) / Kosmochemisches p-Prozess Isotop & Frühsonnensystem-Chronometer", 
  "Niob-93 (93Nb) - Stabil (100%) / UNPAARER SPIN 9/2+ (Gitterfundament für NbTi/Nb3Sn Supraleiter)", 
  "Niob-94 (94Nb) - Radioaktiv (20300a) / Reaktor-Aktivierungs-Tracer für Atommüll-Konditionierung"
};
int[] neutronCounts = {50, 51, 52, 53};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 041 (Niobium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FOUR 4d4 INNER ORBITAL LOBES (Anomalous 4d4 Configuration - Violet d-orbitals at 45 deg intervals)
  float radius4d = 114.0f;
  for (int d = 0; d < 4; d++) {
    pushMatrix();
    rotate((QUARTER_PI) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(167, 139, 250, 220); // Violet 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 24);
    
    // Single Electron per 4d lobe (4d4 Unpaired High-Spin State)
    fill(167, 139, 250);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * HALF_PI);
    float dY = 12.0f * sin(wavePhase * 1.4f + d * HALF_PI);
    ellipse(dX, dY, 8, 8);
    popMatrix();
  }
  
  // Render O-Shell (Anomalous 5s1 SINGLE OUTER VALENCE SHELL - Rose/Cyan)
  strokeWeight(2.0f);
  stroke(56, 189, 248, 200); // Cyan 5s1 Anomalous Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s1 Single Outer Valence Electron
  fill(56, 189, 248);
  noStroke();
  float valX = radius5s * cos(wavePhase * 0.6f);
  float valY = radius5s * sin(wavePhase * 0.6f);
  ellipse(valX, valY, 9, 9);
  
  // Render Nucleus Structure (41 Protons + N Neutrons)
  // 41 Protons (Hentetragontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 41; pr++) {
    float angle = (TWO_PI / 41.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Nb-91 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Nb-92 Chronometer Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Nb-93 Main Green
    } else {
      fill(192, 132, 252); // Nb-94 Reactor Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Nb-93 Monoisotopic Resonator & Nb-92 Cosmogenic Pulse Effect
  if (isotopeMode == 2) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  } else if (isotopeMode == 1) {
    stroke(248, 113, 113, 160 + sin(wavePhase * 6.0f) * 95);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(56, 189, 248, 130 + sin(wavePhase * 6.0f + PI) * 85);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawNiobiumOverlay();
}

void drawNiobiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(125, 211, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 041: NIOB (Nb) - 4d4 5s1 SONDERELEKTRONENKONFIGURATION", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 41 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: MAGISCHES N=50 ISOTOP (680a) // Zyklotron-Reaktionsprodukt mit reinem EC-Zerfall", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: EXTINKTES KOSMOCHEMISCHES NUKLID (34.7 Ma) // Chronometer der frühen Planetenentstehung", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES MONOISOTOP (100%) // Gitterfundament für Typ-II-Supraleiter (NbTi / Nb3Sn)", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: REAKTORAKTIVIERUNGS-TRACER (20300a) // Langzeit-Marker für Atommüll-Konditionierung", 35, 82);
  }
}

Fünf ungepaarte $4d$-Traktoren und ein unpaares $5s$-Valenzelektron koppeln spinsymmetrisch zum maximalen Grundzustand $S=3$ ($^7S_3$) der Chromgruppe.

Das magische $N=50$-Isotop $^{92}\text{Mo}$ sichert die Stabilität im p-Prozess, während $^{99}\text{Mo}$ die kontinuierliche Generierung des diagnostischen $140\,\text{keV}$-Gammastrahlers Technetium-99m ermöglicht.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_042_Molybdenum_Isotopes.pde - Molybdenum Dodecatragontapol & 4d5 5s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Mo-92 (Magic N=50 / 14.65%), 1: Mo-95 (NMR Spin 5/2+ / 15.84%), 2: Mo-98 (Main Stable 24.29%), 3: Mo-99 (Medical SPECT Mother Isotope 65.94h), 4: Mo-100 (Double Beta 2v2b / 9.82%)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Molybdän-92 (92Mo) - Stabil (14.65%) / MAGISCHE N=50 NEUTRONENSCHALE (Protonenreiches p-Prozess Nuklid)", 
  "Molybdän-95 (95Mo) - Stabil (15.84%) / Unpaarer Spin 5/2+ & NMR-Marker für Molybdän-Cofaktoren (Moco)", 
  "Molybdän-98 (98Mo) - Stabil (24.29%) / N=56 Hauptisotop der Erdkruste & Target für 99Mo-Synthese", 
  "Molybdän-99 (99Mo) - Radioaktiv (65.94h) / SPECT-Mutterisotop zur kontinuierlichen Erzeugung von 99mTc", 
  "Molybdän-100 (100Mo) - Primordial (9.82%) / 2vbb Doppelter Beta-Zerfall zu Ruthenium-100 (7.1e18a)"
};
int[] neutronCounts = {50, 53, 56, 57, 58};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 042 (Molybdenum) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 5;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE 4d5 INNER ORBITAL LOBES (Half-filled 4d5 High-Spin Star Pattern at 72 deg intervals)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(167, 139, 250, 220); // Violet 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 22);
    
    // Single Electron per 4d lobe (4d5 Symmetric High-Spin Half-Shell)
    fill(167, 139, 250);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 11.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 8, 8);
    popMatrix();
  }
  
  // Render O-Shell (Anomalous 5s1 SINGLE OUTER VALENCE SHELL - Emerald/Cyan)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 200); // Emerald Green 5s1 Anomalous Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s1 Single Outer Valence Electron
  fill(52, 211, 153);
  noStroke();
  float valX = radius5s * cos(wavePhase * 0.6f);
  float valY = radius5s * sin(wavePhase * 0.6f);
  ellipse(valX, valY, 9, 9);
  
  // Render Nucleus Structure (42 Protons + N Neutrons)
  // 42 Protons (Dodecatragontapol Green)
  fill(52, 211, 153);
  for (int pr = 0; pr < 42; pr++) {
    float angle = (TWO_PI / 42.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Mo-92 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Mo-95 NMR Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Mo-98 Main Green
    } else if (isotopeMode == 3) {
      fill(234, 179, 8); // Mo-99 SPECT Gold/Yellow
    } else {
      fill(192, 132, 252); // Mo-100 2vbb Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Mo-99 Medical SPECT Pulse & Mo-92 Magic N=50 Halo Effect
  if (isotopeMode == 3) {
    stroke(234, 179, 8, 160 + sin(wavePhase * 6.0f) * 95);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(52, 211, 153, 130 + sin(wavePhase * 6.0f + PI) * 85);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 0) {
    stroke(56, 189, 248, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawMolybdenumOverlay();
}

void drawMolybdenumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(110, 231, 183);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 042: MOLYBDÄN (Mo) - 4d5 5s1 HALBGEFÜLLTE CHROMGRUPPE", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 42 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: MAGISCHES N=50 ISOTOP (14.65%) // Protonenreiches p-Prozess Nuklid mit Schalenstabilität", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: NMR-ENZYM-SPINNUKLID 5/2+ (15.84%) // Spektroskopischer Anker für Nitrogenase & Moco", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (24.29%) // Hochtemperatur-Legierungen & Target für 99Mo-Synthese", 35, 82);
  } else if (isotopeMode == 3) {
    fill(234, 179, 8);
    text("MATRIX-STATUS: SPECT-MUTTERISOTOP (65.94h) // Nuklearmedizinisches Herzstück zur 99mTc-Erzeugung", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: 2vbb DOPPELTER BETA-EMITTER (7.1e18a) // Primordiale Transformation zu Ruthenium-100", 35, 82);
  }
}

Fünf ungepaarte $4d$-Traktoren und ein spingesättigtes $5s^2$-Bipolarpaar erzeugen den spingekoppelten $^6S_{5/2}$-Grundzustand des Technetium-Knotens.

Die Mattauchsche Regel verbietet das Existieren stabiler Isotope für $Z=43$, während der metastabile Zustand $^{99\text{m}}\text{Tc}$ unter Abgabe eines $140{,}5\,\text{keV}$-Gammaquants stoßfrei zum Grundzustand relaxiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_043_Technetium_Isotopes.pde - Technetium Tredecimtragontapol & 4d5 5s2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 3; // 0: Tc-97 (Longest EC / 4.21 Ma), 1: Tc-98 (Extinct Beta / 4.20 Ma), 2: Tc-99 (Reactor Fission Product / 211.1 ka), 3: Tc-99m (SPECT Gold Standard Isomer 140.5 keV / 6.01h)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Technetium-97 (97Tc) - Radioaktiv (4.21 Ma) / Langlebigstes EC-Isotop & Solarer Neutrinodetektor", 
  "Technetium-98 (98Tc) - Radioaktiv (4.20 Ma) / Extinktes b- Nuklid (Mattauchsche Isotopenregel-Sperre)", 
  "Technetium-99 (99Tc) - Radioaktiv (211.1 ka) / Reaktorspaltprodukt (6.1% Ausbeute) & Pertechnetat Korrosionsschutz", 
  "Technetium-99m (99mTc) - Metastabil (6.01h) / GLOBELER NUKLEARMEDIZINISCHER SPECT-DIAGNOSTIK-STANDARD (140.5 keV g)"
};
int[] neutronCounts = {54, 55, 56, 56};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 043 (Technetium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE 4d5 INNER ORBITAL LOBES (Half-filled 4d5 Star Pattern at 72 deg intervals)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(236, 72, 153, 220); // Pink 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 22);
    
    // Single Electron per 4d lobe (4d5 Symmetric High-Spin Half-Shell)
    fill(236, 72, 153);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 11.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 8, 8);
    popMatrix();
  }
  
  // Render O-Shell (5s2 Bipolar Outer Valence Shell)
  strokeWeight(2.0f);
  stroke(52, 211, 153, 180); // Emerald Green 5s2 Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s2 Antiparallel Outer Valence Electrons
  fill(52, 211, 153);
  noStroke();
  float valX1 = radius5s * cos(wavePhase * 0.6f);
  float valY1 = radius5s * sin(wavePhase * 0.6f);
  float valX2 = radius5s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius5s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (43 Protons + N Neutrons)
  // 43 Protons (Tredecimtragontapol Pink/Magenta)
  fill(244, 114, 182);
  for (int pr = 0; pr < 43; pr++) {
    float angle = (TWO_PI / 43.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Tc-97 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Tc-98 Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Tc-99 Green
    } else {
      fill(236, 72, 153); // Tc-99m SPECT Pink Glow
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Tc-99m SPECT 140.5 keV Gamma Isomer Pulse Effect
  if (isotopeMode == 3) {
    stroke(236, 72, 153, 170 + sin(wavePhase * 6.0f) * 85);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(251, 207, 232, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  }
  
  resetMatrix();
  drawTechnetiumOverlay();
}

void drawTechnetiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(244, 114, 182);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 043: TECHNETIUM (Tc) - ERSTES KÜNSTLICHES ELEMENT", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 43 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: LANGLEBIGSTES EC-ISOTOP (4.21 Ma) // Geochemischer Detektor für solaren Neutrinofluss", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: UNGERADE-UNGERADES BETA-ISOTOP (4.20 Ma) // Mattauchsche Isobar-Blockade zwischen Mo/Ru", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: REAKTORSPALTPRODUKT (211.1 ka) // Pertechnetat-Anion als Anodenschutz gegen Korrosion", 35, 82);
  } else {
    fill(236, 72, 153);
    text("MATRIX-STATUS: GLOBELER SPECT-DIAGNOSTIK-STANDARD (6.01h) // Reine 140.5 keV g-Quanten-Emission", 35, 82);
  }
}

Zwei doppelt besetzte $4d$-Traktoren, drei einfach besetzte $4d$-Traktoren und ein ungepaartes $5s^1$-Elektron koppeln spinsymmetrisch zum $^5F_5$-Grundzustand des Ruthenium-Knotens.

Das Hauptisotop $^{102}\text{Ru}$ definiert den kollektiven Platingruppen-Stabilitätsanker, während $^{106}\text{Ru}$ als Mutterisotop fungiert, das über Rhodium-106 extrem tiefe tumorizide Beta-Dosen in Augenmelanomen deponiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_044_Ruthenium_Isotopes.pde - Ruthenium Tetratetragontapol & 4d7 5s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Ru-96 (Light p-Nuclide N=52 / 5.54%), 1: Ru-99 (NMR Spin 5/2+ / 12.76%), 2: Ru-102 (Main Stable 31.55% PGM Anchor), 3: Ru-106 (Brachytherapy Beta Emitter for Ophthalmic Oncology 373.6d)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Ruthenium-96 (96Ru) - Stabil (5.54%) / N=52 Leichtes p-Prozess Isotop mit doppelter EC-Sperre", 
  "Ruthenium-99 (99Ru) - Stabil (12.76%) / UNPAARER SPIN 5/2+ (NMR-Anker für Grubbs-Katalysatoren & DSSC)", 
  "Ruthenium-102 (102Ru) - Stabil (31.55%) / N=58 HAUPTISOTOP DER PLATINGRUPPE (Maximale Korrosionsdichte)", 
  "Ruthenium-106 (106Ru) - Radioaktiv (373.6d) / Brachytherapie-Quelle für Augen-Aderhautmelanome (via 106Rh 3.54 MeV b-)"
};
int[] neutronCounts = {52, 55, 58, 62};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 044 (Ruthenium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE 4d7 INNER ORBITAL LOBES (2 Paired Lobes + 3 Unpaired Lobes at 72 deg intervals)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(192, 132, 252, 220); // Purple 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 22);
    
    // Electron 1
    fill(192, 132, 252);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 11.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 8, 8);
    
    // Lobes 0 and 1 carry antiparallel paired electrons (2x2 + 3x1 = 7 electrons in 4d!)
    if (d < 2) {
      fill(233, 213, 255); // Bright Lavender Highlight for Paired Electron
      ellipse(-dX, -dY, 8, 8);
    }
    popMatrix();
  }
  
  // Render O-Shell (Anomalous 5s1 SINGLE OUTER VALENCE SHELL - Violet/Cyan)
  strokeWeight(2.0f);
  stroke(168, 85, 247, 200); // Purple 5s1 Anomalous Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s1 Single Outer Valence Electron
  fill(168, 85, 247);
  noStroke();
  float valX = radius5s * cos(wavePhase * 0.6f);
  float valY = radius5s * sin(wavePhase * 0.6f);
  ellipse(valX, valY, 9, 9);
  
  // Render Nucleus Structure (44 Protons + N Neutrons)
  // 44 Protons (Tetratetragontapol Purple)
  fill(168, 85, 247);
  for (int pr = 0; pr < 44; pr++) {
    float angle = (TWO_PI / 44.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Ru-96 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Ru-99 NMR Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Ru-102 Main Green
    } else {
      fill(192, 132, 252); // Ru-106 Therapy Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Ru-106 Ophthalmic Brachytherapy Radiation Pulse Effect
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 170 + sin(wavePhase * 6.0f) * 85);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(233, 213, 255, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 2) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawRutheniumOverlay();
}

void drawRutheniumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(216, 180, 254);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 044: RUTHENIUM (Ru) - 4d7 5s1 PLATINMETALL", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 44 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: LEICHTES p-PROZESS ISOTOP (5.54%) // N=52 Geschlossenes Subschalen-Gitter", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: NMR-SPINNUKLID 5/2+ (12.76%) // Spektroskopischer Anker für Grubbs-Katalysatoren & DSSC", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (31.55%) // Höchste Platingruppen-Dichte & Verschleißfestigkeit", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: AUGEN-BRACHYTHERAPIE-QUELLE (373.6d) // Hochenergetischer 3.54 MeV b- Strahler via 106Rh", 35, 82);
  }
}

Drei doppelt besetzte $4d$-Traktoren, zwei einfach besetzte $4d$-Traktoren und ein ungepaartes $5s^1$-Elektron koppeln spinsymmetrisch zum $^4F_{9/2}$-Grundzustand des Rhodium-Knotens.

Das Monoisotop $^{103}\text{Rh}$ garantiert die Stabilität homogen-katalytischer Netze, während $^{106}\text{Rh}$ im Säkulargleichgewicht mit $^{106}\text{Ru}$ als hochenergetische Beta-Quelle fungiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_045_Rhodium_Isotopes.pde - Rhodium Pentatetragontapol & 4d8 5s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 1; // 0: Rh-101 (Cyclotron EC Isotope 3.3a), 1: Rh-103 (Main Stable 100% Monoisotopic Anchor), 2: Rh-105 (Therapeutic Beta Emitter 35.36h), 3: Rh-106 (Brachytherapy 3.54 MeV Beta Emitter 30.07s)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Rhodium-101 (101Rh) - Radioaktiv (3.30a) / Langlebiges Zyklotron-Isotop mit reinem EC-Zerfall zu 101Ru", 
  "Rhodium-103 (103Rh) - Stabil (100%) / UNPAARER SPIN 1/2- (Gitterfundament für TWK & Wilkinson-Katalyse)", 
  "Rhodium-105 (105Rh) - Radioaktiv (35.36h) / Onkologischer b- Radioimmuntherapeut für monoklonale Antikörper", 
  "Rhodium-106 (106Rh) - Radioaktiv (30.07s) / Ultraschneller 3.54 MeV b- Strahler für Augen-Brachytherapie (im Säkulargleichgewicht mit 106Ru)"
};
int[] neutronCounts = {56, 58, 60, 61};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 045 (Rhodium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE 4d8 INNER ORBITAL LOBES (3 Paired Lobes + 2 Unpaired Lobes at 72 deg intervals)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(244, 63, 94, 220); // Rose/Crimson 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 22);
    
    // Electron 1
    fill(244, 63, 94);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 11.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 8, 8);
    
    // Lobes 0, 1 and 2 carry antiparallel paired electrons (3x2 + 2x1 = 8 electrons in 4d!)
    if (d < 3) {
      fill(251, 113, 133); // Bright Rose Highlight for Paired Electron
      ellipse(-dX, -dY, 8, 8);
    }
    popMatrix();
  }
  
  // Render O-Shell (Anomalous 5s1 SINGLE OUTER VALENCE SHELL - Crimson/Rose)
  strokeWeight(2.0f);
  stroke(225, 29, 72, 200); // Darker Rose 5s1 Anomalous Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s1 Single Outer Valence Electron
  fill(225, 29, 72);
  noStroke();
  float valX = radius5s * cos(wavePhase * 0.6f);
  float valY = radius5s * sin(wavePhase * 0.6f);
  ellipse(valX, valY, 9, 9);
  
  // Render Nucleus Structure (45 Protons + N Neutrons)
  // 45 Protons (Pentatetragontapol Rose)
  fill(244, 63, 94);
  for (int pr = 0; pr < 45; pr++) {
    float angle = (TWO_PI / 45.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Rh-101 Blue
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // Rh-103 Main Green
    } else if (isotopeMode == 2) {
      fill(192, 132, 252); // Rh-105 Purple
    } else {
      fill(244, 63, 94); // Rh-106 High-Energy Beta Crimson
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Rh-106 High-Energy 3.54 MeV Beta Pulse Effect
  if (isotopeMode == 3) {
    stroke(244, 63, 94, 180 + sin(wavePhase * 6.0f) * 75);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(251, 113, 133, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 1) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawRhodiumOverlay();
}

void drawRhodiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(253, 164, 175);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 045: RHODIUM (Rh) - 4d8 5s1 PLATINGRUPPE", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 45 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: LANGLEBIGES ZYKLOTRON-ISOTOP (3.30a) // Reiner EC-Zerfallskanal zu Ruthenium-101", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES MONOISOTOP (100%) // Drei-Wege-Katalyse, Wilkinson-Komplex & Pt-Rh Thermoelemente", 35, 82);
  } else if (isotopeMode == 2) {
    fill(192, 132, 252);
    text("MATRIX-STATUS: b- RADIOIMMUNTHERAPEUT (35.36h) // Monoklonale Antikörperkopplung für Tumore", 35, 82);
  } else {
    fill(244, 63, 94);
    text("MATRIX-STATUS: HOCHENERGETISCHER b- STRAHLER (30.07s) // 3.54 MeV Dosisabgabe bei Augenbrachytherapie", 35, 82);
  }
}

Alle fünf $4d$-Traktoren sind mit jeweils 2 antiparallelen Elektronen besetzt, während der $5s$-Kanal vollständig entleert ist ($\mathbf{0}^{(5s^0)}$), was die edelgasgleiche $^1S_0$-Symmetrie der Valenzschale erzeugt.

Das Hauptisotop $^{106}\text{Pd}$ verankert die mechanische Dichte im Raumgraphen, während $^{103}\text{Pd}$ über Elektroneinfang mikrokontrollierte Auger-Elektronen direkt im Tumorgewebe deponiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_046_Palladium_Isotopes.pde - Palladium Hexatetragontapol & 4d10 5s0 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Pd-103 (Auger Seed 16.99d), 1: Pd-105 (NMR Spin 5/2+ 22.33%), 2: Pd-106 (Main Stable 27.33% H2 Sponge), 3: Pd-107 (Long-lived Fission Product 6.5 Ma)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Palladium-103 (103Pd) - Radioaktiv (16.99d) / EC/Auger-Prostatakrebs Brachytherapie Seeds (20-23 keV X-Ray)", 
  "Palladium-105 (105Pd) - Stabil (22.33%) / UNPAARER SPIN 5/2+ (NMR-Anker für Suzuki/Heck C-C Kupplungskatalyse)", 
  "Palladium-106 (106Pd) - Stabil (27.33%) / N=60 HAUPTISOTOP DER PLATINGRUPPE (Reversibler Wasserstoff-Schwamm)", 
  "Palladium-107 (107Pd) - Radioaktiv (6.5 Ma) / Langlebiges LLFP Reaktorspaltprodukt & Kosmochemischer Chronometer"
};
int[] neutronCounts = {57, 59, 60, 61};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 046 (Palladium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE FULLY CLOSED 4d10 INNER ORBITAL LOBES (All 5 Lobes carry antiparallel electron pairs!)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(34, 211, 238, 220); // Cyan 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 22);
    
    // Electron Pair on ALL 5 lobes (4d10 Complete Subshell)
    fill(34, 211, 238);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 11.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 8, 8);
    
    fill(165, 243, 252); // Bright Cyan-White Highlight for 2nd Paired Electron
    ellipse(-dX, -dY, 8, 8);
    popMatrix();
  }
  
  // Render EMPTY 5s0 SPHERICAL OUTER VAKUUM SHELL (Dashed Cyan/Gray ring - No outer electrons!)
  strokeWeight(1.5f);
  stroke(148, 163, 184, 120); // Faint Slate dashed ring for 5s0
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // SIMULATE HYDROGEN INTERCALATION (Protonic H+ particles floating into 5s0 vacuum gap)
  for (int h = 0; h < 4; h++) {
    float hAngle = wavePhase * 0.8f + h * HALF_PI;
    float hDist = radius5s + sin(wavePhase * 2.0f + h) * 12.0f;
    fill(248, 250, 252, 200); // White Hydrogen Ions
    noStroke();
    ellipse(hDist * cos(hAngle), hDist * sin(hAngle), 5, 5);
  }
  
  // Render Nucleus Structure (46 Protons + N Neutrons)
  // 46 Protons (Hexatetragontapol Cyan/Green)
  fill(34, 211, 238);
  for (int pr = 0; pr < 46; pr++) {
    float angle = (TWO_PI / 46.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(248, 113, 113); // Pd-103 Seed Red
    } else if (isotopeMode == 1) {
      fill(56, 189, 248); // Pd-105 NMR Blue
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Pd-106 Main Green
    } else {
      fill(192, 132, 252); // Pd-107 Fission Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Pd-103 Auger Brachytherapie X-Ray Pulse & Pd-106 Hydrogen Coherence Halo Glow
  if (isotopeMode == 0) {
    stroke(248, 113, 113, 180 + sin(wavePhase * 6.0f) * 75);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(251, 146, 60, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 2) {
    stroke(34, 211, 238, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawPalladiumOverlay();
}

void drawPalladiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(103, 232, 249);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 046: PALLADIUM (Pd) - EXTREME 4d10 5s0 ANOMALIE", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 46 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: BRACHYTHERAPIE AUGER-SEED (16.99d) // 20-23 keV Röntgenstrahlung für Prostatatumore", 35, 82);
  } else if (isotopeMode == 1) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: NMR-SPINNUKLID 5/2+ (22.33%) // Spektroskopischer Anker für C-C Kupplungskatalysen", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES HAUPTISOTOP (27.33%) // Reversibler H2-Schwamm via leeren 5s0-Vakuumkanal", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: LLFP REAKTORSPALTPRODUKT (6.5 Ma) // Chronometer für Eisenmeteorite (Pd-107 / Ag-107)", 35, 82);
  }
}

Das Vorhandensein der geschlossenen $4d^{10}$-Schale in Kombination mit der schwach gebundenen $5s^1$-Valenzwelle induziert den charakteristischen $^2S_{1/2}$-Grundzustand aller Kupfergruppen-Münzmetalle.

Das Hauptisotop $^{109}\text{Ag}$ bildet den stabilen Schalenanker, während die Übertragungs-Isochrone $^{107}\text{Ag}/^{108}\text{Pd}$ die exakte Zeitachse der Planetenkern-Formation im frühen Sonnensystem definiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_047_Silver_Isotopes.pde - Silver Heptatetragontapol & 4d10 5s1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 0; // 0: Ag-107 (Main Stable 51.84% / Pd-Ag Chronometer), 1: Ag-108m (Nuclear Isomer 438a), 2: Ag-109 (Stable 48.16% NMR Anchor), 3: Ag-110m (Reactor Gamma Tracer 249.76d)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Silber-107 (107Ag) - Stabil (51.84%) / Radiogenes Zerfallsprodukt von 107Pd (Pd-Ag Meteoriten-Chronometer)", 
  "Silber-108m (108mAg) - Radioaktiv (438a) / Langlebiges Kernisomer aus Reaktor-Steuerstäben (Ag-In-Cd)", 
  "Silber-109 (109Ag) - Stabil (48.16%) / UNPAARER SPIN 1/2- (Hochempfindlicher NMR-Katalyse-Anker)", 
  "Silber-110m (110mAg) - Radioaktiv (249.76d) / Hochaktiver g-Tracer für Kernkraftwerk-Kühlkreislaufanalysen"
};
int[] neutronCounts = {60, 61, 62, 63};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 047 (Silver) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE FULLY CLOSED 4d10 INNER ORBITAL LOBES (Silver/Cyan 4d10 Subshell)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(203, 213, 225, 220); // Metallic Silver-Slate 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 22);
    
    // Electron Pair on ALL 5 lobes (4d10 Complete Subshell)
    fill(203, 213, 225);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 11.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 8, 8);
    
    fill(241, 245, 249); // White Highlight for 2nd Paired Electron
    ellipse(-dX, -dY, 8, 8);
    popMatrix();
  }
  
  // Render O-Shell (5s1 SINGLE HIGHLY CONDUCTIVE VALENCE SHELL - Bright Silver-White)
  strokeWeight(2.2f);
  stroke(248, 250, 252, 220); // Pure White-Silver 5s1 Shell
  float radius5s = 140.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s1 Single Outer Valence Electron (High mobility conducton wave)
  fill(255, 255, 255);
  noStroke();
  float valX = radius5s * cos(wavePhase * 0.7f);
  float valY = radius5s * sin(wavePhase * 0.7f);
  ellipse(valX, valY, 10, 10);
  
  // Render Nucleus Structure (47 Protons + N Neutrons)
  // 47 Protons (Heptatetragontapol Silver/Cyan)
  fill(226, 232, 240);
  for (int pr = 0; pr < 47; pr++) {
    float angle = (TWO_PI / 47.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Ag-107 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Ag-108m Isomer Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Ag-109 Main Green
    } else {
      fill(192, 132, 252); // Ag-110m Gamma Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Ag-110m Gamma Radiation Pulse Effect & Ag-107 Cosmogenic Halo
  if (isotopeMode == 3) {
    stroke(192, 132, 252, 180 + sin(wavePhase * 6.0f) * 75);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(226, 232, 240, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 0) {
    stroke(56, 189, 248, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawSilverOverlay();
}

void drawSilverOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(241, 245, 249);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 047: SILBER (Ag) - 4d10 5s1 MAXIMALKONDUKTIVITÄT", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 47 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: HAUPTISOTOP (51.84%) // Radiogenes Zerfallsprodukt von 107Pd für Eisenmeteorite-Chronometrie", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: LANGLEBIGES KERNISOMER (438a) // Aktivierungsprodukt in Druckwasserreaktor-Steuerstäben", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES MONOISOTOP-PÄRCHEN (48.16%) // NMR-Anker für Koordinationspolymere", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: HOCHAKTIVER g-TRACER (249.76d) // Indikator für Kühlkreislauf-Dichtheitsanalysen", 35, 82);
  }
}

Das spingesättigte Schließen der $4d^{10}$-Subschale zusammen mit dem antiparallelen $5s^2$-Bipolarpaar beendet den $4d$-Block des Periodensystems ($^1S_0$).

Das Hauptisotop $^{114}\text{Cd}$ arretiert die kristalline Dünnschichtstabilität, während die Breit-Wigner-Resonanz von $^{113}\text{Cd}$ bei $0{,}178\,\text{eV}$ den gigantischen Absorptionsquerschnitt für thermische Reaktor-Neutronen erzeugt.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_048_Cadmium_Isotopes.pde - Cadmium Octatetragontapol & 4d10 5s2 4d-Block Closure Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 3; // 0: Cd-106 (2v2EC Primordial 1.25%), 1: Cd-111 (NMR Spin 1/2+ 12.80%), 2: Cd-113 (Colossal 20000 Barn Neutron Absorber 12.22%), 3: Cd-114 (Main Stable 28.73% 4d-Closure), 4: Cd-116 (Double Beta 2v2b 7.49%)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Cadmium-106 (106Cd) - Primordial (1.25%) / Seltenes protonenreiches Nuklid mit 2v2EC Doppel-EC Zerfall", 
  "Cadmium-111 (111Cd) - Stabil (12.80%) / UNPAARER SPIN 1/2- (Bioinorganischer NMR-Ersatz für Zn2+ Enzymzentren)", 
  "Cadmium-113 (113Cd) - Primordial (12.22%) / GIGANTISCHER THERMISCHER NEUTRONENABSORBER (20000 Barn Reaktor-Steuerstäbe)", 
  "Cadmium-114 (114Cd) - Stabil (28.73%) / HAUPTISOTOP DER ERDKRUSTE (Verankerung der CdTe Photovoltaik & CdSe Quantenpunkte)", 
  "Cadmium-116 (116Cd) - Primordial (7.49%) / 2vbb Doppelter Beta-Zerfall zu Zinn-116 (2.8e19a)"
};
int[] neutronCounts = {58, 63, 65, 66, 68};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 048 (Cadmium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 5;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE FULLY CLOSED 4d10 INNER ORBITAL LOBES (Yellow/Gold Cadmium 4d10 Subshell)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(2.0f);
    stroke(234, 179, 8, 220); // Cadmium Yellow 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 22);
    
    // Electron Pair on ALL 5 lobes (4d10 Complete Subshell)
    fill(234, 179, 8);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 11.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 8, 8);
    
    fill(254, 240, 138); // Yellow-White Highlight for 2nd Paired Electron
    ellipse(-dX, -dY, 8, 8);
    popMatrix();
  }
  
  // Render O-Shell (5s2 CLOSED SPHERICAL VALENCE SHELL - Cadmium Bipolar Pair)
  strokeWeight(2.2f);
  stroke(250, 204, 21, 220); // Bright Yellow 5s2 Shell
  float radius5s = 140.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  // 5s2 Antiparallel Outer Valence Electrons
  fill(250, 204, 21);
  noStroke();
  float valX1 = radius5s * cos(wavePhase * 0.6f);
  float valY1 = radius5s * sin(wavePhase * 0.6f);
  float valX2 = radius5s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius5s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 9, 9);
  ellipse(valX2, valY2, 9, 9);
  
  // Render Nucleus Structure (48 Protons + N Neutrons)
  // 48 Protons (Octatetragontapol Cadmium Yellow)
  fill(234, 179, 8);
  for (int pr = 0; pr < 48; pr++) {
    float angle = (TWO_PI / 48.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Cd-106 Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Cd-111 Red
    } else if (isotopeMode == 2) {
      fill(234, 179, 8); // Cd-113 20000 Barn Yellow Glow
    } else if (isotopeMode == 3) {
      fill(52, 211, 153); // Cd-114 Main Green
    } else {
      fill(192, 132, 252); // Cd-116 2vbb Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Cd-113 Colossal 20.000 Barn Thermal Neutron Absorber Resonator Halo Glow
  if (isotopeMode == 2) {
    stroke(234, 179, 8, 180 + sin(wavePhase * 6.0f) * 85);
    strokeWeight(3.0f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(250, 204, 21, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 3) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawCadmiumOverlay();
}

void drawCadmiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(253, 224, 71);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 048: CADMIUM (Cd) - 4d-BLOCK ABSCHLUSS (4d10 5s2)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 48 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: PRIMORDIALES 2v2EC ISOTOP (1.25%) // Doppelter Elektroneinfang-Kanal zu Palladium-106", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: NMR-SPINNUKLID 1/2- (12.80%) // Spektroskopischer Isomorph-Ersatz für Zn2+ Enzymzentren", 35, 82);
  } else if (isotopeMode == 2) {
    fill(234, 179, 8);
    text("MATRIX-STATUS: NEUTRONENABSORBER (20000 Barn) // 0.178 eV Kernresonanz für Reaktor-Steuerstäbe", 35, 82);
  } else if (isotopeMode == 3) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: HAUPTISOTOP DES 4d-ABSCHLUSSES (28.73%) // CdTe Photovoltaik & CdSe Quantenpunkte", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: 2vbb DOPPELTER BETA-EMITTER (2.8e19a) // Primordiale Transformation zu Zinn-116", 35, 82);
  }
}

Das Ankoppeln des ersten $5p_x^1$-Orbitaltraktors über dem spingesättigten $4d^{10} 5s^2$-Rumpf erzeugt den $^2P_{1/2}^\circ$-Grundzustand des Indium-Knotens.

Das dominierende Hauptisotop $^{115}\text{In}$ verankert das Gitter der ITO-Halbleitertechnologie, während sein extrem langsamer Beta-Zerfall eine zeitlich nahezu unbegrenzte Phasenstabilität garantiert.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_049_Indium_Isotopes.pde - Indium Enneatetragontapol & 4d10 5s2 5p1 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 3; // 0: In-111 (SPECT Diagnostic Tracer 2.80d), 1: In-113 (Main Stable NMR Anchor 4.29%), 2: In-114m (Therapeutic Isomer 49.51d), 3: In-115 (Primordial Main Isotope 95.71% / 4.41e14a)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Indium-111 (111In) - Radioaktiv (2.80d) / SPECT Diagnostik-Tracer (OctreoScan Somatostatin & Leukozyten)", 
  "Indium-113 (113In) - Stabil (4.29%) / UNPAARER SPIN 9/2+ (NMR-Referenzanker für III-V Halbleiterkomplexe)", 
  "Indium-114m (114mIn) - Radioaktiv (49.51d) / Langlebiges Kernisomer für radiotherapeutische Synovektomie", 
  "Indium-115 (115In) - Primordial (95.71%) / HAUPTISOTOP DER NATUR (ITO Touchscreens & InP Optoelektronik)"
};
int[] neutronCounts = {62, 64, 65, 66};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 049 (Indium) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE FULLY CLOSED 4d10 INNER ORBITAL LOBES (Slate/Indigo Subshell)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(1.8f);
    stroke(148, 163, 184, 180); // Slate 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 20);
    
    fill(148, 163, 184);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 10.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 7, 7);
    ellipse(-dX, -dY, 7, 7);
    popMatrix();
  }
  
  // Render O-Shell (5s2 CLOSED SPHERICAL VALENCE SHELL - Antiparallel Pair)
  strokeWeight(2.0f);
  stroke(129, 140, 248, 200); // Indigo 5s2 Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  fill(129, 140, 248);
  noStroke();
  float valX1 = radius5s * cos(wavePhase * 0.6f);
  float valY1 = radius5s * sin(wavePhase * 0.6f);
  float valX2 = radius5s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius5s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render NEW 5p1 OUTER ORBITAL LOBE (Deep Indigo/Violet p-orbital dumbbell)
  pushMatrix();
  rotate(wavePhase * 0.3f);
  strokeWeight(2.2f);
  stroke(99, 102, 241, 240); // Deep Indigo 5p1 Lobe
  noFill();
  float radius5p = 158.0f;
  ellipse(0, 0, radius5p * 2, 28);
  
  // 5p1 Single Outer Valence Electron
  fill(129, 140, 248);
  noStroke();
  float pX = radius5p * cos(wavePhase * 1.2f);
  float pY = 14.0f * sin(wavePhase * 1.2f);
  ellipse(pX, pY, 10, 10);
  popMatrix();
  
  // Render Nucleus Structure (49 Protons + N Neutrons)
  // 49 Protons (Enneatetragontapol Indigo)
  fill(129, 140, 248);
  for (int pr = 0; pr < 49; pr++) {
    float angle = (TWO_PI / 49.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // In-111 SPECT Blue
    } else if (isotopeMode == 1) {
      fill(52, 211, 153); // In-113 Stable Green
    } else if (isotopeMode == 2) {
      fill(248, 113, 113); // In-114m Therapy Red
    } else {
      fill(192, 132, 252); // In-115 Primordial Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // In-111 SPECT Pulse & In-115 Primordial Coherence Halo
  if (isotopeMode == 0) {
    stroke(56, 189, 248, 180 + sin(wavePhase * 6.0f) * 75);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(129, 140, 248, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 3) {
    stroke(192, 132, 252, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawIndiumOverlay();
}

void drawIndiumOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(165, 180, 252);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 049: INDIUM (In) - 5p-BLOCK INITIATOR (4d10 5s2 5p1)", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 49 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: SPECT DIAGNOSTIK-TRACER (2.80d) // OctreoScan Somatostatin-Rezeptor-Szintigraphie", 35, 82);
  } else if (isotopeMode == 1) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: STABILES NMR-ISOTOP (4.29%) // Spektroskopischer Phasenanker für organische III-V Vorläufer", 35, 82);
  } else if (isotopeMode == 2) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: THERAPEUTISCHES KERNISOMER (49.51d) // b- Strahler für nuklearmedizinische Synovektomie", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: PRIMORDIALES HAUPTISOTOP (95.71%) // ITO-Touchscreens, OLEDs & InP/InGaAs Optoelektronik", 35, 82);
  }
}

Zwei orthogonale ungepaarte $5p$-Traktoren und das $5s^2$-Bipolarpaar über dem $4d^{10}$-Pseudorumpf erzeugen den spintripletten $^3P_0$-Grundzustand der Kohlenstoffgruppe.

Die doppelt-magischen Shell-Abschlüsse bei $N=50$ und $N=82$ bewirken scharfe Schalenbrüche in den Massenflächen und arretieren die Stabilität der WAM-Nuklidkarte.

/**
 * DTIM-ZEC MODULAR PHYSICS FRAMEWORK (DAMTP ACADEMIC STANDARD)
 * DTIM_Element_050_Tin_Isotopes.pde - Tin Pentacontapol & Magic Z=50 4d10 5s2 5p2 Engine
 * Target: Processing 4.5.6 / Astronomical & Chemical Compendium Band 5
 * License: CC0 1.0 Universal / MIT
 * Copyright (c) 2026 Jan Bühring
 */

int isotopeMode = 2; // 0: Sn-100 (Double-Magic Z=50 N=50 Exiotic / 1.16s), 1: Sn-119 (Mössbauer & NMR Standard Spin 1/2+ / 8.59%), 2: Sn-120 (Main Stable 32.58%), 3: Sn-132 (Double-Magic Z=50 N=82 Fission Product / 39.7s)
float wavePhase = 0.0f;
String[] isotopeNames = {
  "Zinn-100 (100Sn) - Radioaktiv (1.16s) / DOPPELT-MAGISCHES NUKLID (Z=50, N=50) mit stärkstem GT Betazerfall", 
  "Zinn-119 (119Sn) - Stabil (8.59%) / UNPAARER SPIN 1/2+ (Weltweiter Mößbauer- 23.87 keV & NMR Spektroskopie-Standard)", 
  "Zinn-120 (120Sn) - Stabil (32.58%) / HAUPTISOTOP DER ERDKRUSTE (Gitterfundament für Nb3Sn Supraleiter & Elektroniklot)", 
  "Zinn-132 (132Sn) - Radioaktiv (39.7s) / DOPPELT-MAGISCHES FISSIONS-SPALTPRODUKT (Z=50, N=82) für r-Prozess Physik"
};
int[] neutronCounts = {50, 69, 70, 82};

void setup() {
  size(800, 380);
  println("[DTIM-CHEMISTRY] Initializing Element 050 (Tin) Engine...");
}

void draw() {
  background(11, 15, 25);
  wavePhase += 0.03f;
  
  // Switch isotope mode automatically every 3.5 seconds
  if (frameCount % 210 == 0) {
    isotopeMode = (isotopeMode + 1) % 4;
  }
  
  translate(width/2, height/2 + 10);
  
  int neutrons = neutronCounts[isotopeMode];
  
  // Render K-Shell (1s2)
  strokeWeight(1.0f);
  stroke(251, 191, 36, 100);
  noFill();
  ellipse(0, 0, 14, 14);
  
  // Render L-Shell (2s2 2p6 - Neon Core)
  strokeWeight(1.1f);
  stroke(249, 115, 22, 110);
  ellipse(0, 0, 30, 30);
  
  // Render M-Shell (3s2 3p6 3d10 - Full Argon + 3d10 Pseudocore)
  strokeWeight(1.3f);
  stroke(129, 140, 248, 130);
  ellipse(0, 0, 58, 58);
  
  // Render N-Shell (4s2 4p6 - Closed Krypton Core Base)
  strokeWeight(1.6f);
  stroke(99, 102, 241, 160); // Krypton Indigo Shell
  ellipse(0, 0, 94, 94);
  
  // Render FIVE FULLY CLOSED 4d10 INNER ORBITAL LOBES (Slate Subshell)
  float radius4d = 114.0f;
  for (int d = 0; d < 5; d++) {
    pushMatrix();
    rotate((TWO_PI / 5.0f) * d + wavePhase * 0.4f);
    strokeWeight(1.8f);
    stroke(148, 163, 184, 180); // Slate 4d Lobes
    noFill();
    ellipse(0, 0, radius4d * 2, 20);
    
    fill(148, 163, 184);
    noStroke();
    float dX = radius4d * cos(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    float dY = 10.0f * sin(wavePhase * 1.4f + d * (TWO_PI / 5.0f));
    ellipse(dX, dY, 7, 7);
    ellipse(-dX, -dY, 7, 7);
    popMatrix();
  }
  
  // Render O-Shell (5s2 CLOSED SPHERICAL VALENCE SHELL - Cyan Pair)
  strokeWeight(2.0f);
  stroke(56, 189, 248, 200); // Cyan 5s2 Shell
  float radius5s = 138.0f;
  noFill();
  ellipse(0, 0, radius5s * 2, radius5s * 2);
  
  fill(56, 189, 248);
  noStroke();
  float valX1 = radius5s * cos(wavePhase * 0.6f);
  float valY1 = radius5s * sin(wavePhase * 0.6f);
  float valX2 = radius5s * cos(wavePhase * 0.6f + PI);
  float valY2 = radius5s * sin(wavePhase * 0.6f + PI);
  ellipse(valX1, valY1, 8, 8);
  ellipse(valX2, valY2, 8, 8);
  
  // Render TWO 5p2 OUTER ORBITAL LOBES (Orthogonal Light-Blue p-orbital dumbbells)
  float radius5p = 158.0f;
  for (int p = 0; p < 2; p++) {
    pushMatrix();
    rotate((HALF_PI) * p + wavePhase * 0.3f);
    strokeWeight(2.2f);
    stroke(186, 230, 253, 240); // Light Sky-Blue 5p Lobes
    noFill();
    ellipse(0, 0, radius5p * 2, 26);
    
    // Single Electron per 5p lobe
    fill(56, 189, 248);
    noStroke();
    float pX = radius5p * cos(wavePhase * 1.2f + p * PI);
    float pY = 13.0f * sin(wavePhase * 1.2f + p * PI);
    ellipse(pX, pY, 9, 9);
    popMatrix();
  }
  
  // Render Nucleus Structure (50 Protons + N Neutrons)
  // 50 Protons (Pentacontapol Cyan/Sky Blue)
  fill(56, 189, 248);
  for (int pr = 0; pr < 50; pr++) {
    float angle = (TWO_PI / 50.0f) * pr + wavePhase * 0.2f;
    ellipse(16.0f * cos(angle), 16.0f * sin(angle), 9, 9);
  }
  
  // Core Neutrons (Slate / Color Highlight per Isotope)
  for (int n = 0; n < neutrons; n++) {
    float angle = (TWO_PI / max(1, neutrons)) * n - wavePhase * 0.2f;
    
    if (isotopeMode == 0) {
      fill(56, 189, 248); // Sn-100 Double-Magic Blue
    } else if (isotopeMode == 1) {
      fill(248, 113, 113); // Sn-119 Mössbauer Red
    } else if (isotopeMode == 2) {
      fill(52, 211, 153); // Sn-120 Main Green
    } else {
      fill(192, 132, 252); // Sn-132 Double-Magic Fission Purple
    }
    
    ellipse(25.0f * cos(angle), 25.0f * sin(angle), 8, 8);
  }
  
  // Magic Z=50 Proton Shell Halo & Double-Magic Resonator Pulse
  if (isotopeMode == 0 || isotopeMode == 3) {
    stroke(192, 132, 252, 180 + sin(wavePhase * 6.0f) * 85);
    strokeWeight(3.0f);
    noFill();
    ellipse(0, 0, 65, 65);
    stroke(56, 189, 248, 140 + sin(wavePhase * 6.0f + PI) * 80);
    ellipse(0, 0, 85, 85);
  } else if (isotopeMode == 2) {
    stroke(52, 211, 153, 160 + sin(wavePhase * 5.0f) * 90);
    strokeWeight(2.5f);
    noFill();
    ellipse(0, 0, 65, 65);
  }
  
  resetMatrix();
  drawTinOverlay();
}

void drawTinOverlay() {
  fill(15, 23, 42, 220);
  stroke(51, 65, 85);
  rect(20, 20, width - 40, 85, 6);
  
  fill(186, 230, 253);
  textSize(13);
  text("DTIM-ZEC CHEMISCHES HANDBUCH // ELEMENT 050: ZINN (Sn) - MAGISCHE Z=50 PROTONENSCHALE", 35, 42);
  
  fill(226, 232, 240);
  textSize(11);
  text("ISOTOP: " + isotopeNames[isotopeMode] + " | KNOTEN: 50 Protonen, " + neutronCounts[isotopeMode] + " Neutron(en)", 35, 62);
  
  if (isotopeMode == 0) {
    fill(56, 189, 248);
    text("MATRIX-STATUS: DOPPELT-MAGISCHES NUKLID (Z=50, N=50) // Stärkster Gamow-Teller Betazerfall der Nuklidkarte", 35, 82);
  } else if (isotopeMode == 1) {
    fill(248, 113, 113);
    text("MATRIX-STATUS: MÖSSBAUER- & NMR-SPINNUKLID 1/2+ (8.59%) // 23.87 keV Mössbauer-Resonanzstandard", 35, 82);
  } else if (isotopeMode == 2) {
    fill(52, 211, 153);
    text("MATRIX-STATUS: HAUPTISOTOP DER ERDKRUSTE (32.58%) // Nb3Sn Supraleiter, Bleifrei-Lote & Bronzen", 35, 82);
  } else {
    fill(192, 132, 252);
    text("MATRIX-STATUS: DOPPELT-MAGISCHES SPALTPRODUKT (Z=50, N=82) // Schaleneichstandard der r-Prozess Astrophysik", 35, 82);
  }
}