třífázový lineární krokový motor zapojený do hvězdice

[fulda]

Ten název jsem napsal proto, aby mi moderátor nepřesunul post do lampárny
Ve skutečnosti jsem se jen chtěl vytahovat se svým bleším cirkusem:

Ale jinak ten popis sedí, na robodoupěti mohu třeba ukázat schéma, nebo i pohovořit o tom, jak to pracuje a jak se kreslí plošňáky v jazyce perl (který je na to předurčen už podle názvu PERL = Practical Extraction and Reporting Language)

[DavidO]

Héézkýý!

Jak to vypadá zespoda? Jen šikmo o tři dál?
Proč se blecha drží kraje?

[fulda]

Blechu u kraje drží vší silou pan Hendrik Antoon Lorentz. A protože veš je silnější než blecha, tak musí blecha poskakovat, jak Lorentz píská.

Tady je kousek plošňáku se zvýrazněnou jednou "cívkou".

Teda správně jsem ti měl popsat ten plošňák takto (protože tímto scriptem vzniknul):

Kód: Vybrat vše

for(my $i = $uhel; $i <= 180.0 - $uhel; $i+=$uhel){
        my $x1 = (sin($i * $radtodeg) * 15) + 25 + 50;
        my $y1 = (cos($i * $radtodeg) * 15) + 25;
        my $x2 = (sin($i * $radtodeg) * 22) + 25 + 50;
        my $y2 = (cos($i * $radtodeg) * 22) + 25;
        my $mane = "L$Lmane";
        printf "VIA '$mane' Auto Round (%.6f %.6f);\n",$x1,$y1;
        printf "VIA '$mane' Auto Round (%.6f %.6f);\n",$x2,$y2;
        printf "RATSNEST $mane; # udela vzdusnej spoj\n";
        printf "LAYER 1;\nROUTE 0.5 (%.6f %.6f) (%.6f %.6f);\n",$x1,$y1,$x2,$y2;
        printf "LAYER 16;\nROUTE 0.5 (%.6f %.6f) (%.6f %.6f);\n",$xo[$Lmane],$yo[$Lmane],$x2,$y2;
        $xo[$Lmane]=$x1; $yo[$Lmane]=$y1;
        $Lmane+=1; if ($Lmane>3) {$Lmane=1;}
}
for (my $i = (75.0); $i > (25.0); $i-=$dist){
        my $x1 = $i;
        my $y1 = 10.0;
        my $x2 = $i;
        my $y2 = 3.0;
        my $mane = "L$Lmane";
        printf "VIA '$mane' Auto Round (%.6f %.6f);\n",$x1,$y1;
        printf "VIA '$mane' Auto Round (%.6f %.6f);\n",$x2,$y2;
        printf "RATSNEST $mane; # udela vzdusnej spoj\n";
        printf "LAYER 1;\nROUTE 0.5 (%.6f %.6f) (%.6f %.6f);\n",$x1,$y1,$x2,$y2;
        printf "LAYER 16;\nROUTE 0.5 (%.6f %.6f) (%.6f %.6f);\n",$xo[$Lmane],$yo[$Lmane],$x2,$y2;
        $xo[$Lmane]=$x1; $yo[$Lmane]=$y1;
        $Lmane+=1; if ($Lmane>3) {$Lmane=1;}
}