Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

Arduino, pomoc s pwm regulací
Jdi na stránku Předchozí  1, 2
 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Miniaturní počítače (Arduino, Raspberry a další)
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
popopepe



Založen: Oct 26, 2005
Příspěvky: 548

PříspěvekZaslal: ne prosinec 06 2015, 10:32    Předmět: Citovat

Je to takové trošku kostrbaté, jukni na funkci map, tak by ti mohla pomoci.
Jen z rychlíku..
kód:

//všechno před vstupem do podmínky (volti.., ampli..)převést na int (ivolti, iapmli atd.)
//(vynásobit 10 a zbavit se desetinné čárky)
//místo 12,5 bude 125, místo 4,1 bude 41 atd..


if (ivoltli<125 and ivoltfv>ivoltli){    //
  pwm=map(iampli,40,49,255,5)          //pokud bude rozsah ampli mezi 4-4,9, tak generuj
  analogWrite(IRFLi, pwm);            //pwm v rozsahu 255 až 5, mrkni na funkci "map"
}
else{
  pwm=0;
}
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
volente



Založen: Nov 18, 2015
Příspěvky: 171
Bydliště: Brno-venkov

PříspěvekZaslal: ne prosinec 06 2015, 11:49    Předmět: Citovat

POPOPEPE diky, diky, diky!!!!
To je presne to co jsem myslel, na takovy nakopnuti tady cekam.
Hned to jdu vyzkouset.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
volente



Založen: Nov 18, 2015
Příspěvky: 171
Bydliště: Brno-venkov

PříspěvekZaslal: ne prosinec 06 2015, 11:58    Předmět: Citovat

Cowley napsal(a):
Vypada to dobre...
Ja tam vidim:
1) nenavazuji ti jednotlive podminky na sebe (treba pro ampli==4.10 neplati zadna podminka atp., resp. beze zmeny)
2) je tam u hodne podminek parametru desetinna carka a ne tecka


No jo mas pravdu, ja to kopiroval i s chybou, desetinou carkou.
Ted jdu vyzkouset to reseni s "map", to se mi libi.

Diky za pripominku. Stale je se co ucit, i kdyz stara hlava uz to tak rychle nebere. Laughing
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
volente



Založen: Nov 18, 2015
Příspěvky: 171
Bydliště: Brno-venkov

PříspěvekZaslal: ne prosinec 06 2015, 12:09    Předmět: Citovat

popopepe napsal(a):
Je to takové trošku kostrbaté, jukni na funkci map, tak by ti mohla pomoci.
Jen z rychlíku..
kód:

//všechno před vstupem do podmínky (volti.., ampli..)převést na int (ivolti, iapmli atd.)
//(vynásobit 10 a zbavit se desetinné čárky)
//místo 12,5 bude 125, místo 4,1 bude 41 atd..


if (ivoltli<125 and ivoltfv>ivoltli){    //
  pwm=map(iampli,40,49,255,5)          //pokud bude rozsah ampli mezi 4-4,9, tak generuj
  analogWrite(IRFLi, pwm);            //pwm v rozsahu 255 až 5, mrkni na funkci "map"
}
else{
  pwm=0;
}


Prosimte slo by pouzit "pwm=map(iampli, iadjA, 255, 5)"
misto cisel pouzit hodnotu nastaveni, Nebo jak na to?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
popopepe



Založen: Oct 26, 2005
Příspěvky: 548

PříspěvekZaslal: ne prosinec 06 2015, 12:26    Předmět: Citovat

Tuším, že jsou to floaty? Pak asi nešlo..
No, nejlépe by bylo tam nacpat ty zprůměrované hodnoty, ale musí být typ int.

Ideálně načíst analogread, několikrát, zprůměrovat, ale pořád jako int, to nacpat do toho map, a podle výsledku generovat PWM. Ty floaty a podobně si nech jenom na zobrazení pro člověka Smile
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Cowley



Založen: Feb 04, 2005
Příspěvky: 3292

PříspěvekZaslal: ne prosinec 06 2015, 12:59    Předmět: Citovat

Popopepe: kostrbate, ale jeho vlastni Smile
MAP je dobra funkce, ale nemusi mapping presne splnovat jeho podminky, temi IF si po zkusenostech z praxe nastavi presne co bude chtit.


Naposledy upravil Cowley dne ne prosinec 06 2015, 14:54, celkově upraveno 1 krát.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
volente



Založen: Nov 18, 2015
Příspěvky: 171
Bydliště: Brno-venkov

PříspěvekZaslal: ne prosinec 06 2015, 13:43    Předmět: Citovat

Chlapi oba mate pravdu.
Co se tyka tech mereni tak se meri 150x, jestli se nepletu (sample).
Takze kdyz to reknu laicky tak bych potreboval do urciteho napeti drzet proud na nastavene hodnote. A potom drzet na vystupu konstantni napeti bez ohledu na velikost proudu ( tou dobou uz bude docela nizky)
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
popopepe



Založen: Oct 26, 2005
Příspěvky: 548

PříspěvekZaslal: ne prosinec 06 2015, 15:39    Předmět: Citovat

To Cowley: určitě, není nad to přijít na to sám. Nejvíc se naučíš.

myslím, že spojitost mezi analogread a pwm už byla tazateli sdělena, tudíž je jenom na něm, jak to řešit. Mně jenom přišly ty IF takové moc skokové, a bez hystereze netuším, jak se to bude chovat. Chce to trošku měřit, využít i arduino, vypsat si třeba aktuální hodnoty na sériák, a pak se zamyslet jak to co nejlépe udělat. . Ale to je na tom bastlení to nejlepší Smile
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
volente



Založen: Nov 18, 2015
Příspěvky: 171
Bydliště: Brno-venkov

PříspěvekZaslal: ne prosinec 06 2015, 17:06    Předmět: Citovat

Tady je finale. Pri simulaci na stole se mi "map" neosvedcilo, ale nechal jsem je zakomentovane pro dalsi pokusy.


#include <PWM.h>
#include <Wire.h>

#include <LiquidCrystal_SR2W.h>
#include <LiquidCrystal_SR3W.h>
#include <LiquidCrystal.h>
#include <LCD.h>
#include <I2CIO.h>
#include <FastIO.h>
#include <LiquidCrystal_I2C.h>
#include <LiquidCrystal_SR.h>

LiquidCrystal_I2C lcd(0x3F, 2,1,0,4,5,6,7,3, POSITIVE);


float voltpb=0; //napeti Pb baterie
float voltli=0; //napeti Li baterie
float voltfv=0; //napeti FV panelu
float ampli=0; //proud do Li baterie
float adjA=0; //nastaveni proudu do Li baterie ???
float sample1=0;
float sample2=0;
float sample3=0;
float sample4=0;
float sample5=0;

int IRFli = 3; //MOSFET nabijeni Li
int IRFpb = 6; //MOSFET nabijeni Pb
int IRFliv = 7; //MOSFET zateze Li
int IRFpbv = 8; //MOSFET zateze Pb

int pwm = 0; //regulace Li
int pwm1 = 0; //regulace Pb
int fadeAmount = 5;
int32_t frequency = 35;//frekvence pwm

void setup()
{
Serial.begin(9600);
lcd.begin(20,4);
pinMode(IRFpb, OUTPUT); //vystupy pro spinac P-MOSFET
pinMode(IRFli, OUTPUT);
pinMode(IRFliv, OUTPUT);
pinMode(IRFpbv, OUTPUT);
InitTimersSafe();
bool success = SetPinFrequencySafe(IRFli, frequency);
}
void loop()
{
for(int i=0;i<150;i++)
{
sample1+=analogRead(A0);
sample2+=analogRead(A1);
sample3+=analogRead(A2);
sample4+=analogRead(A3);
sample5+=analogRead(A7);
delay(4);
}
sample1=sample1/150;
sample2=sample2/150;
sample3=sample3/150;
sample4=sample4/150;
sample5=sample5/150;


voltpb = (sample1 * (5.0/1023.0)*8.3Cool;//prepocet podle delice napeti
voltli = (sample2 * (5.0/1023.0)*8.3Cool;
voltfv = (sample3 * (5.0/1023.0)*8.3Cool;
ampli = ((sample4-512)*46)/1000; //pro ACS712 20A ???
//adjA = (sample5 * (5.0/1023.0)*2);
/*
int Vpb=voltpb*100;
int Vli=voltli*100;
int Vfv=voltfv*100;
int Ali=ampli*100;
*/
Serial.println(voltli);
Serial.println(voltpb);
Serial.println(voltfv);
Serial.println(ampli);
Serial.println(adjA);

lcd.setCursor(0,0);
lcd.print("Li ");
lcd.print(voltli);
lcd.print("V");

lcd.setCursor(10,0);
lcd.print("Li ");
lcd.print(ampli);
lcd.print("A");

lcd.setCursor(0,1);
lcd.print("Pb ");
lcd.print(voltpb);
lcd.print("V");

lcd.setCursor(0,2);
lcd.print("Fv ");
lcd.print(voltfv);
lcd.print("V");

/*if ((Vli<1250)&&(Vfv>Vli))
{
pwm=map(Ali,40,49,255,5);

analogWrite(IRFli, pwm);
}
else
{
pwm=0;
}
*/

if((voltfv<voltli)||(voltli>12.50)||(ampli>5.00))
{
(pwm=0);
}

else if((voltfv>voltli)&&(voltli<12.50)&&(ampli<4.00))
{
(pwm=255);
}
else if((voltfv>voltli)&&(ampli>4.00)&&(ampli<4.10)&&(voltli<12.50))
{
(pwm=230);
}

else if((voltfv>voltli)&&(ampli>4.10)&&(ampli<4.20)&&(voltli<12.50))
{
(pwm=205);
}
else if((voltfv>voltli)&&(ampli>4.20)&&(ampli<4.30)&&(voltli<12.50))
{
(pwm=180);
}
else if((voltfv>voltli)&&(ampli>4.30)&&(ampli<4.40)&&(voltli<12.50))
{
(pwm=155);
}
else if((voltfv>voltli)&&(ampli>4.40)&&(ampli<4.50)&&(voltli<12.50))
{
(pwm=130);
}
else if((voltfv>voltli)&&(ampli>4.50)&&(ampli<4.60)&&(voltli<12.50))
{
(pwm=100);
}
else if((voltfv>voltli)&&(ampli>4.60)&&(ampli<4.70)&&(voltli<12.50))
{
(pwm=75);
}
else if((voltfv>voltli)&&(ampli>4.70)&&(ampli<4.80)&&(voltli<12.50))
{
(pwm=50);
}
else if((voltfv>voltli)&&(ampli>4.80)&&(ampli<4.90)&&(voltli<12.50))
{
(pwm=25);
}

analogWrite(IRFli, pwm);

if((voltfv<voltpb)||(voltpb>13.80))
{
(pwm1=0);
}
else if((voltfv>voltpb)&&(voltpb<12.60))
{
(pwm1=255);
}
else if((voltfv>voltpb)&&(voltpb>12.60)&&(voltpb<13.65))
{
(pwm1=128);
}
else if((voltfv>voltpb)&&(voltpb>13.65)&&(voltpb<13.80))
{
(pwm1=64);
}

analogWrite(IRFpb, pwm1);

if(voltli>11.30)
{
digitalWrite(IRFliv, HIGH);
}
if(voltpb>12.00)
{
digitalWrite(IRFpbv, HIGH);
}
if(voltli<10.80)
{
digitalWrite(IRFliv, LOW);
}
if(voltpb<10.80)
{
digitalWrite(IRFpbv, LOW);
}
}

doladeni musi probehnout az v provozu. Diky za pomoc a konstruktivni pripominky.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Cowley



Založen: Feb 04, 2005
Příspěvky: 3292

PříspěvekZaslal: ne prosinec 06 2015, 17:26    Předmět: Citovat

Jeste navazat ty podminky IF tak, aby tam nebyla dira. Tzn. z jedne strany tam dej mensi a rovno a bude to...
I ta hranicni hodnota, kdy se to lame, musi nekam patrit Smile
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
volente



Založen: Nov 18, 2015
Příspěvky: 171
Bydliště: Brno-venkov

PříspěvekZaslal: ne prosinec 06 2015, 17:45    Předmět: Citovat

myslys takto, ano?
else if((voltfv>voltli)&&(voltli<12.50)&&(ampli<=4.00))

Dik za upozorneni.
Jeste mam jeden dotaz.
Natrapil jsem se z delici, i nastavenim cidla na mereni proudu. Az jsem prisel na to ze moje cinske NANO pri napajeni z USB ma na pinu "5V" pouze necele 4V. Na USB jsem nameril 5V. Neutahne to ani displej.. Uz to napajim externe 5V a vsechno slape jak ma. Spotreba vcetne displeje, ULN2003 a 4ks LED je 120mA Je to normalni? Myslim ze snad ano, jenom podsviceni displeje bere 30mA.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Miniaturní počítače (Arduino, Raspberry a další) Časy uváděny v GMT + 1 hodina
Jdi na stránku Předchozí  1, 2
Strana 2 z 2

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.15 sekund