Séquences
  cseq          cercles des zones d'intensité
  r                  rayons descercles des zones
  rm              rayon des centres des zones
  seqF          intensité de la courbe d'assombrissement solaire
  seqFlux     flux : intensité par surface de chaque zone
  seqFlux2   flux normalisé
  seqPF        points représentatif du flux normalisé
  seqdrv       droite de repérage des centres des zones
  surf            surface des cercles
  Δsurf          surfaces des zones
  xlampe      intensité normalisée sur l'équateur (pos)
  ylampe      intensité normalisée sur l'équateur  (Int.)
  Ilampe       points représentatifs

Contenu des séquences

I = (0.9182352621874295, 0.8975504541544342)
H = (0.74913625320431, 0.9416632391065524)
F = (0.3925579081746886, 0.974747827820641)
n:6
r = Sequence(i / n, i, 0, n)
rm = Sequence((Element[r, i] + Element[r, i - 1]) / 2, i, 2, n + 1)
seqdrv = Sequence(x = Element[rm, i], i, 1, n + 1)
G = Point(seqdrv)
E = Point(seqdrv)
D = Point(seqdrv)
c_0 = Circle((0, 0), 1)
surf: (π * r^(2) / π)
Δsurf = Sequence(Element[surf, i] - Element[surf, i - 1], i, 2, n + 1)
cseq = Sequence(Circle[(0, 0), Element[r, i]], i, 2, n + 1)
A = (0, 0)
B = (1, 0)
C = (-0.0023059115483362535, 1.0500395696241065)
seqF: y({D, E, F, G, H, I})
seqFlux: (seqF * Δsurf)
Flux = Sum(seqFlux)
seqFlux2: (seqF * Δsurf / Flux)
intm = Mean(seqFlux2)
A1: x(D)
A2: x(E)
A3: x(F)
A4: x(G)
A5: x(H)
A6: x(I)
B1: y(D)
B2: y(E)
B3: y(F)
B4: y(G)
B5: y(H)
B6: y(I)
u:0.6157
a:0.419
b:0.2435
c2:1.564
c3:-1.3637
c4:0.4938
c1':0.4384
c2':0.3676
c3':-0.0268
c4':-0.0304
fI02(x) = If[0 ≤ x ≤ 1, 1 - (a * x) - (b * x^(2))]
fI01(x) = If[0 ≤ x ≤ 1, 1 - (u * x)]
fI03(x) = If[0 ≤ x ≤ 1, 1 - (c2 * x) - (c3 * (1 - (1 - x)^(1.5))) - (c4 * (1 - (1 - x)^(2)))]
fI04(x) = If[0 ≤ x ≤ 1, 1 - (c1' * (1 - (1 - x)^(0.5))) - (c2' * x) - (c3' * (1 - (1 - x)^(1.5))) - (c4' * (1 - (1 - x)^(2)))]
C697:0
D697:225
C698:10
D698:225.5
C699:20
D699:225
C700:30
D700:225.5
C701:40
D701:225.5
C702:50
D702:226
C703:60
D703:225.5
C704:70
D704:225.5
C705:80
D705:225.5
C706:90
D706:225.5
C707:100
D707:226
C708:110
D708:226.5
C709:120
D709:226
C710:130
D710:225
C711:140
D711:224.5
C712:150
D712:223.5
C713:160
D713:223.5
C714:170
D714:223
C715:180
D715:222
C716:190
D716:221.5
C717:200
D717:221.5
C718:210
D718:221.5
C719:220
D719:221
C720:230
D720:222
C721:240
D721:221.5
C722:250
D722:221.5
C723:260
D723:221
C724:270
D724:220.5
C725:280
D725:219.5
C726:290
D726:219
C727:300
D727:218.5
C728:310
D728:218
C729:320
D729:218
C730:330
D730:217.5
C731:340
D731:217.5
C732:350
D732:217
C733:360
D733:217
C734:370
D734:217
C735:380
D735:216.5
C736:390
D736:217
C737:400
D737:216.5
C738:410
D738:216.5
C739:420
D739:216
C740:430
D740:216
C741:440
D741:216
C742:450
D742:216
C743:460
D743:215
C744:470
D744:215
C745:480
D745:215
C746:490
D746:215
C747:500
D747:214.5
C748:510
D748:215
C749:520
D749:214
C750:530
D750:214
C751:540
D751:213.5
C752:550
D752:213
C753:560
D753:212
C754:570
D754:211.5
C755:580
D755:209.5
C756:590
D756:208
C757:600
D757:207.5
C758:610
D758:207
C759:620
D759:207.5
C760:630
D760:207
C761:640
D761:207
C762:650
D762:205
C763:660
D763:203
C764:670
D764:200.5
C765:680
D765:195
C766:690
D766:186
C767:700
D767:155
C768:710
D768:28
C769:720
D769:11.5
E697: C697 / 720
F697: D697 / 225.5
E698: C698 / 720
F698: D698 / 225.5
E699: C699 / 720
F699: D699 / 225.5
E700: C700 / 720
F700: D700 / 225.5
E701: C701 / 720
F701: D701 / 225.5
E702: C702 / 720
F702: D702 / 225.5
E703: C703 / 720
F703: D703 / 225.5
E704: C704 / 720
F704: D704 / 225.5
E705: C705 / 720
F705: D705 / 225.5
E706: C706 / 720
F706: D706 / 225.5
E707: C707 / 720
F707: D707 / 225.5
E708: C708 / 720
F708: D708 / 225.5
E709: C709 / 720
F709: D709 / 225.5
E710: C710 / 720
F710: D710 / 225.5
E711: C711 / 720
F711: D711 / 225.5
E712: C712 / 720
F712: D712 / 225.5
E713: C713 / 720
F713: D713 / 225.5
E714: C714 / 720
F714: D714 / 225.5
E715: C715 / 720
F715: D715 / 225.5
E716: C716 / 720
F716: D716 / 225.5
E717: C717 / 720
F717: D717 / 225.5
E718: C718 / 720
F718: D718 / 225.5
E719: C719 / 720
F719: D719 / 225.5
E720: C720 / 720
F720: D720 / 225.5
E721: C721 / 720
F721: D721 / 225.5
E722: C722 / 720
F722: D722 / 225.5
E723: C723 / 720
F723: D723 / 225.5
E724: C724 / 720
F724: D724 / 225.5
E725: C725 / 720
F725: D725 / 225.5
E726: C726 / 720
F726: D726 / 225.5
E727: C727 / 720
F727: D727 / 225.5
E728: C728 / 720
F728: D728 / 225.5
E729: C729 / 720
F729: D729 / 225.5
E730: C730 / 720
F730: D730 / 225.5
E731: C731 / 720
F731: D731 / 225.5
E732: C732 / 720
F732: D732 / 225.5
E733: C733 / 720
F733: D733 / 225.5
E734: C734 / 720
F734: D734 / 225.5
E735: C735 / 720
F735: D735 / 225.5
E736: C736 / 720
F736: D736 / 225.5
E737: C737 / 720
F737: D737 / 225.5
E738: C738 / 720
F738: D738 / 225.5
E739: C739 / 720
F739: D739 / 225.5
E740: C740 / 720
F740: D740 / 225.5
E741: C741 / 720
F741: D741 / 225.5
E742: C742 / 720
F742: D742 / 225.5
E743: C743 / 720
F743: D743 / 225.5
E744: C744 / 720
F744: D744 / 225.5
E745: C745 / 720
F745: D745 / 225.5
E746: C746 / 720
F746: D746 / 225.5
E747: C747 / 720
F747: D747 / 225.5
E748: C748 / 720
F748: D748 / 225.5
E749: C749 / 720
F749: D749 / 225.5
E750: C750 / 720
F750: D750 / 225.5
E751: C751 / 720
F751: D751 / 225.5
E752: C752 / 720
F752: D752 / 225.5
E753: C753 / 720
F753: D753 / 225.5
E754: C754 / 720
F754: D754 / 225.5
E755: C755 / 720
F755: D755 / 225.5
E756: C756 / 720
F756: D756 / 225.5
E757: C757 / 720
F757: D757 / 225.5
E758: C758 / 720
F758: D758 / 225.5
E759: C759 / 720
F759: D759 / 225.5
E760: C760 / 720
F760: D760 / 225.5
E761: C761 / 720
F761: D761 / 225.5
E762: C762 / 720
F762: D762 / 225.5
E763: C763 / 720
F763: D763 / 225.5
E764: C764 / 720
F764: D764 / 225.5
E765: C765 / 720
F765: D765 / 225.5
E766: C766 / 720
F766: D766 / 225.5
E767: C767 / 720
F767: D767 / 225.5
E768: C768 / 720
F768: D768 / 225.5
E769: C769 / 720
F769: D769 / 225.5
xlampe: {E697, E698, E699, E700, E701, E702, E703, E704, E705, E706, E707, E708, E709, E710, E711, E712, E713, E714, E715, E716, E717, E718, E719, E720, E721, E722, E723, E724, E725, E726, E727, E728, E729, E730, E731, E732, E733, E734, E735, E736, E737, E738, E739, E740, E741, E742, E743, E744, E745, E746, E747, E748, E749, E750, E751, E752, E753, E754, E755, E756, E757, E758, E759, E760, E761, E762, E763, E764, E765, E766, E767, E768, E769}
ylampe: {F697, F698, F699, F700, F701, F702, F703, F704, F705, F706, F707, F708, F709, F710, F711, F712, F713, F714, F715, F716, F717, F718, F719, F720, F721, F722, F723, F724, F725, F726, F727, F728, F729, F730, F731, F732, F733, F734, F735, F736, F737, F738, F739, F740, F741, F742, F743, F744, F745, F746, F747, F748, F749, F750, F751, F752, F753, F754, F755, F756, F757, F758, F759, F760, F761, F762, F763, F764, F765, F766, F767, F768, F769}
Ilampe = Sequence((Element[xlampe, i], Element[ylampe, i]), i, 1, Length[xlampe])
mmm: Sum[seqFlux] / π
Etapes = 0 (slider from 0 to 10, step 1)
texte1: "Flux normalisé
  " + seqFlux2 + ""
texte2: "Surfaces relatives des zones
  " + Δsurf + ""
seqPF = Sequence(((Element[r, i + 1] + Element[r, i]) / 2, Element[seqFlux2, i]), i, 1, n)
drmoy: y = intm
intm2: Sum[seqFlux2] / n
texte4: "Etapes :
  " + (If[Etapes > 0, "1 - Etoile de rayon 1", " "]) + "
  " + (If[Etapes > 1, "2 - Zones d'intensité constante", " "]) + "
  " + (If[Etapes > 2, "3 - Abscisses milieu des zones", " "]) + "
  " + (If[Etapes > 3, "4 - Surfaces relatives des zones", " "]) + "
  " + (If[Etapes > 4, "5 - Assombrissement centre-bord du Soleil", " "]) + "
  " + (If[Etapes > 5, "6 - Intensité relatives au milieu des zones", " "]) + "
  " + (If[Etapes > 6, "7 - Contribution de chaque zone (normalisé)", " "]) + "
  " + (If[Etapes > 7, "8 - Courbe théorique linéaire", " "]) + "
  " + (If[Etapes > 8, "9 - Multiparamètres", " "]) + "  
  " + (If[Etapes > 9, "10 - Lampe simulation", " "]) + ""
ftxt = false