A4988 protection

[Jindrich Fucik]

Tak už se točí:
https://youtu.be/a5enrqeEYYA

Podstata je v tom, že stator je namalovaný na desce. Pokud by někoho 
zajímalo, tak jsem jej namaloval v jazyce perl (uveden na konci mailu).

Experimentálně jsem zjistil, že 1Ω co má samotná "cívka" je málo,
Když jsem přidal tlumivku co jsem tu našel, tak se to strašně rozhodilo. 
Nejlepší chování bylo cívky, každá v sérii s odporem 18Ω, ale ty mám jen 
2W, takže se mi po chvíli "vyletovaly" :)
Pak jsem zkoušel odpor 3,3Ω, ale to se zase chovalo divně, magnet nebyl 
schopný běhat. Bylo celkem jedno, jaký jsem nastavil proud na driveru. 
Video je s odporama 100Ω. To není špatné.

Je to taková hezká legrácka, která je IMHO naprosto neužitečná.

Ještě tu mám namalovanou desku pro třífázový synchronní motor, ale to má 
zase chvíli čas.

Dne 26.03.2023 v 10:06 Jindrich Fucik napsal(a):
> Dne 26.03.2023 v 9:47 Lubor Otta napsal(a):
>> PS a zapoměl jsem se optat, Jindro co s tím poháníš?
> 
> Nic, já si jen hraji a experimentuji. :)
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list na list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list

print ("GRID 1 MM; # Nastavi mrizku na 1 mm
LAYER 20; # nastavi vrstvu na 20 dimension
WIRE 0 (0 0) (100 0) (100 100) (0 100) (0 0); # namaluje ctverec 10x10 
cm jako velikost desky
change drill 0.4;
SET WIRE_BEND 2; # nastavi spojovani carou
");
# vzdalenost dvou via muze byt minimalne 20mil=0,508mm (plus prumer).
# to znamena 2,0814405024729951355860126559261 stupne
# takze si dejme 2,25 stupne a to je 40 bodu na 90 stupnu
# ale to je blbost, protoze musim brat ohled na vnitrni
# takze 2,6021228110558617203777355613963 pri 20mm
# nebo 3,4704261625432940170314385457837 pri 15mm
# takze 3,6 stupne a mame 25 bodu na 90 stupnu
# minimalni vzdalenost linearne je tedy 0,508 plus prumer
# to je 0,908, takze si dame 0,91
my @xo=( -1.0, -1.0);
my @yo=( -1.0, -1.0);
my $uhel=0.02617993877991494365385536152733; # tohle je uhel pro 1mm 
vzdalenosti na polomeru 38mm (prumer 76mm)
my $uhel2=$uhel*2.0;
my $uhel3=$uhel*3.0;
my $uhel4=$uhel*4.0;
my $kruh=6.283185307179586476925286766559; # proste 3*pi
my $Lmane=1;
for(my $i = 0; $i < ($kruh - $uhel4); $i+=($uhel4)){
         my $x1 = (sin($i) * 44) + 50;
         my $y1 = (cos($i) * 44) + 50;
         my $x2 = (sin($i) * 38) + 50;
         my $y2 = (cos($i) * 38) + 50;
         my $x3 = (sin($i + $uhel2) * 38) + 50;
         my $y3 = (cos($i + $uhel2) * 38) + 50;
         my $x4 = (sin($i + $uhel2) * 44) + 50;
         my $y4 = (cos($i + $uhel2) * 44) + 50;

         my $x5 = (sin($i + $uhel) * 39) + 50;
         my $y5 = (cos($i + $uhel) * 39) + 50;
         my $x6 = (sin($i + $uhel) * 45) + 50;
         my $y6 = (cos($i + $uhel) * 45) + 50;
         my $x7 = (sin($i + $uhel3) * 45) + 50;
         my $y7 = (cos($i + $uhel3) * 45) + 50;
         my $x8 = (sin($i + $uhel3) * 39) + 50;
         my $y8 = (cos($i + $uhel3) * 39) + 50;

         print "LAYER 1;\n";
         printf "VIA 'L1' Auto Round (%.6f %.6f);\n",$x1,$y1;
         printf "VIA 'L1' Auto Round (%.6f %.6f);\n",$x4,$y4;
         printf "WIRE 'L1' 0.5 (%.6f %.6f) (%.6f %.6f) (%.6f %.6f) (%.6f 
%.6f);\n",$x1,$y1,$x2,$y2,$x3,$y3,$x4,$y4;

         printf "VIA 'L2' Auto Round (%.6f %.6f);\n",$x5,$y5;
         printf "VIA 'L2' Auto Round (%.6f %.6f);\n",$x8,$y8;
         printf "WIRE 'L2' 0.5 (%.6f %.6f) (%.6f %.6f) (%.6f %.6f) (%.6f 
%.6f);\n",$x5,$y5,$x6,$y6,$x7,$y7,$x8,$y8;

         print "LAYER 16;\n";
         if ($xo[0]>0) {printf "WIRE 'L1' 0.5 (%.6f %.6f) (%.6f 
%.6f);\n",$xo[0],$yo[0],$x1,$y1;}
         $xo[0]=$x4; $yo[0]=$y4;
         if ($xo[1]>0) {printf "WIRE 'L2' 0.5 (%.6f %.6f) (%.6f 
%.6f);\n",$xo[1],$yo[1],$x5,$y5;}
         $xo[1]=$x8; $yo[1]=$y8;

}


print ("RATSNEST L1; # udela vzdusnej spoj
RATSNEST L2 # udela vzdusnej spoj
GRID LAST; # Vrati  mrizku
WINDOW FIT; # Zoomne obraz");