Generieren Sie eine E-Serie bevorzugter Nummern

Widerstände und andere elektronische Komponenten sind in der Regel mit Werten hergestellt, die mit einem der entsprechen E-Serie von bevorzugten Zahlen . IEC 60063 definiert die folgende E-Serie:

E6:

10 15 22 33 47 68

E12:

10 12 15 18 22 27 33 39 47 56 68 82

E24:

10 11 12 13 15 16 18 20 22 24 27 30 33 36 39 43 47 51 56 62 68 75 82 91

E48:

100 105 110 115 121 127 133 140 147 154 162 169 178 187 196 205 215 226 237 249 261 274 287 301 316 332 348 365 383 402 422 442 464 487 511 536 562 590 619 649 681 715 750 787 825 866 909 953

E96:

100 102 105 107 110 113 115 118 121 124 127 130 133 137 140 143 147 150 154 158 162 165 169 174 178 182 187 191 196 200 205 210 215 221 226 232 237 243 249 255 261 267 274 280 287 294 301 309 316 324 332 340 348 357 365 374 383 392 402 412 422 432 442 453 464 475 487 499 511 523 536 549 562 576 590 604 619 634 649 665 681 698 715 732 750 768 787 806 825 845 866 887 909 931 953 976

E192:

100 101 102 104 105 106 107 109 110 111 113 114 115 117 118 120 121 123 124 126 127 129 130 132 133 135 137 138 140 142 143 145 147 149 150 152 154 156 158 160 162 164 165 167 169 172 174 176 178 180 182 184 187 189 191 193 196 198 200 203 205 208 210 213 215 218 221 223 226 229 232 234 237 240 243 246 249 252 255 258 261 264 267 271 274 277 280 284 287 291 294 298 301 305 309 312 316 320 324 328 332 336 340 344 348 352 357 361 365 370 374 379 383 388 392 397 402 407 412 417 422 427 432 437 442 448 453 459 464 470 475 481 487 493 499 505 511 517 523 530 536 542 549 556 562 569 576 597 604 612 619 626 634 642 649 657 665 673 681 690 698 706 715 723 732 741 750 759 768 777 787 796 806 816 825 835 845 856 866 876 887 898 909 920 931 942 953 965 976 988

Geben Sie bei einer einzelnen Eingabe-Ganzzahl aus der Menge {6, 12, 24, 48, 96, 192}die entsprechende E-Serie der Reihe nach aus, die genau die Zahlen enthält, die oben für die angegebene Serie gezeigt wurden.

• Die Ausgabe kann in einem für Ihre Sprache geeigneten Format der Liste, des Arrays usw. erfolgen.
• Nur Basis 10 Ganzzahlen.
• Buildins, die diese Serien speziell implementieren, sind nicht zulässig.

Python 3, 97 Bytes

lambda n:[round(10**(i/n+2-(n<25)))+((.4<i/n<.67)-(.9<i/n<.92))*(n<25)+(i==185)for i in range(n)]

Die von 1 bis 10 skalierten Ausgabewerte werden durch eine exponentielle Interpolation gut angenähert:

10**(i/n)

Multiplizieren Sie mit 10 für 6, 12, 24und 100 für die 48, 96, 192Rundung auf die nächste ganze Zahl

round(10**(i/n+2-(n<25)))

gibt die richtigen Antworten für alle bis auf 16 Werte, was Fehler von ± 1 ergibt.

n   i   est val  diff 
6   3   32  33  -1
6   4   46  47  -1
12  5   26  27  -1
12  6   32  33  -1
12  7   38  39  -1
12  8   46  47  -1
12  11  83  82  1
24  10  26  27  -1
24  11  29  30  -1
24  12  32  33  -1
24  13  35  36  -1
24  14  38  39  -1
24  15  42  43  -1
24  16  46  47  -1
24  22  83  82  1
192 185 919 920 -1

Die n<=24meisten dieser Fehler betreffen Eingabewerte im Intervall 10/24<=i/n<=6/24. Es gibt einen weiteren Fehler, auf den n==24es ankommt n==12, und einen Fehler für n==192. Wir fummeln diese Fehler durch Addieren oder Subtrahieren 1zur Schätzung.

Mathematica, 904 879 Bytes

If[#>4!,{100,101,102,104,105,106,107,109,110,111,113,114,115,117,118,120,121,123,124,126,127,129,130,132,133,135,137,138,140,142,143,145,147,149,150,152,154,156,158,160,162,164,165,167,169,172,174,176,178,180,182,184,187,189,191,193,196,198,200,203,205,208,210,213,215,218,221,223,226,229,232,234,237,240,243,246,249,252,255,258,261,264,267,271,274,277,280,284,287,291,294,298,301,305,309,312,316,320,324,328,332,336,340,344,348,352,357,361,365,370,374,379,383,388,392,397,402,407,412,417,422,427,432,437,442,448,453,459,464,470,475,481,487,493,499,505,511,517,523,530,536,542,549,556,562,569,576,583,590,597,604,612,619,626,634,642,649,657,665,673,681,690,698,706,715,723,732,741,750,759,768,777,787,796,806,816,825,835,845,856,866,876,887,898,909,920,931,942,953,965,976,988}[[;;;;192/#]],{10,11,12,13,15,16,18,20,22,24,27,30,33,36,39,43,47,51,56,62,68,75,82,91},[[;;;;24/#]]]&

Ungolfed Massive-list-free Nur - Logik- Version:

If[#>4!,{E192}[[;;;;192/#]],{E24}[[;;;;24/#]]]&

Fast Version, 60 Bytes

Floor[Table[If[#>4!,100,10]Surd[10,#]^x,{x,0,#}]+.5][[;;-2]]

Auf ± 1 genau