Я просто нашел первую статью на эту темуКРАМ писал(а): Зато странные и ошибочные выводы его про рекуперацию ты немедленно подхватил...
А нука приведите расчет выгодности реукуперации ТЭДом....
Я просто нашел первую статью на эту темуКРАМ писал(а): Зато странные и ошибочные выводы его про рекуперацию ты немедленно подхватил...
Ты сказал что цифра с потолкаКРАМ писал(а):Я разве собирался обосновывать КПД преобразования тягового двигателя?
Скажите это конструкторам ВЛ80Р. Расстрел на местеКРАМ писал(а):В серьезной
а вы....КРАМ писал(а):щенячьей самоуверенности...
Я разве тебя оскорбил?Новокузнечанин писал(а): Хватит оскорблять людей из-за того что у них другое мнение
Напоминаю, Слава, относительно формы обращения ко мне...Новокузнечанин писал(а):Ты сказал что цифра с потолкаКРАМ писал(а):Я разве собирался обосновывать КПД преобразования тягового двигателя?
Нука приводи правильную!
За слова надо отвечать!
Новокузнечанин писал(а):Как жаль что нет сторонников простоты и рационализма!
Вы не в нефтяной отрасли работаетете или так, обезнадёживаете творчество людей в своё удовольствие, может лучше по делу напишите, валерьяной злоупотребляете, или китикет опять не запиваете!?КРАМ писал(а):Цифра в 1% эффективности взята автором статьи с потолка. Никаких расчетов он не приводит, а часть качественных доводов явно ложны. Например учет потерь энергии от накопителя к тяговому двигателю (разве энергия штатного источника не имеет этих потерь?) Создается ощущение, что автор в кучу смешал аргументы самодельщика и профессиональные доводы при выработке решений.
Супер!!! На второй странице то, что надо, в приницпе я тоже самое рисовал, почти совпадаетSatyr писал(а):Минимальный ликбез http://ww1.microchip.com/downloads/en/A ... 00885a.pdf

Это кто ж вам такое сказал?КРАМ писал(а):1. Для генерации электроэнергии при торможении применять тяговый электродвигатель нельзя. Хотя бы потому, что его эффективность и выбор его типа будут ограничены. Для этого нужно применять СПЕЦИАЛЬНЫЙ генератор.

Код: Выделить всё
$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 8
$framesize = 24
Config Portd = Output
Dim Fm11 As Byte
Dim Fm12 As Byte
Dim Fm13 As Byte
Dim T1 As Integer
Dim T2 As Integer
Dim T3 As Byte
Dim Sp1 As Integer
Dim Sp2 As Integer
T3 = 1
Sp1 = 30000
Sp2 = Sp1 / 2
St1:
Gosub Time1
Gosub M1faz1
Gosub Motor1
Waitms 10
Goto St1
' ========== Вычисление таймеров
Time1:
T1 = T1 + 1 : If T1 = Sp1 Then T1 = 0 : T2 = T2 + 1 ' первый таймер и его ограничение
If T2 = Sp1 Then T2 = 0 : T3 = T3 + 1 ' ограничение второго таймера
If T3 = 7 Then T3 = 1 ' ограничение таймера шага ШИМ
return
' ========== Алгоритм открытия полевых транзисторов мотора 1
Motor1:
If Fm11 = 0 Then Portd.0 = 1 : Portd.1 = 0 ' закрыты оба
If Fm11 = 1 Then Portd.0 = 0 : Portd.1 = 0 ' открыт минус (он инверсный)/плюс закрыт
If Fm11 = 2 Then Portd.0 = 1 : Portd.1 = 1 ' открыт плюс/минус закрыт
If Fm12 = 0 Then Portd.2 = 1 : Portd.3 = 0 ' закрыты оба
If Fm12 = 1 Then Portd.2 = 0 : Portd.3 = 0 ' открыт минус (он инверсный)/плюс закрыт
If Fm12 = 2 Then Portd.2 = 1 : Portd.3 = 1
If Fm13 = 0 Then Portd.4 = 1 : Portd.5 = 0 ' закрыты оба
If Fm13 = 1 Then Portd.4 = 0 : Portd.5 = 0 ' открыт минус (он инверсный)/плюс закрыт
If Fm13 = 2 Then Portd.4 = 1 : Portd.5 = 1 ' открыт плюс/минус закрыт
Return
'Создание ШИМ из показаний таймеров
' T1 и T2 - циклы
' T3 - таймер следующего ШИМ
'Sp1 - длительность ШИМ
'Sp2 - ограничение половины ямы
M1faz1:
'=========== Такт 1
If T3 = 1 Then
If T2 < T1 Then Fm11 = 1 Else Fm11 = 0 'поднятие
If T2 < Sp2 Then If T2 < T1 Then Fm12 = 2 Else Fm12 = 0 'яма
If T2 > Sp2 Then If T2 > T1 Then Fm12 = 2 Else Fm12 = 0 'яма
If T2 > T1 Then Fm13 = 1 Else Fm13 = 0 'спуск
End If
'=========== Такт 2
If T3 = 2 Then
If T2 < Sp2 Then If T2 < T1 Then Fm11 = 1 Else Fm11 = 0 'яма
If T2 > Sp2 Then If T2 > T1 Then Fm11 = 1 Else Fm11 = 0 'яма
If T2 > T1 Then Fm12 = 2 Else Fm12 = 0 'спуск
If T2 < T1 Then Fm13 = 2 Else Fm13 = 0 'поднятие
End If
'=========== Такт 3
If T3 = 3 Then
If T2 > T1 Then Fm11 = 1 Else Fm11 = 0 'спуск
If T2 < T1 Then Fm12 = 1 Else Fm12 = 0 'поднятие
If T2 < Sp2 Then If T2 < T1 Then Fm13 = 2 Else Fm13 = 0 'яма
If T2 > Sp2 Then If T2 > T1 Then Fm13 = 2 Else Fm13 = 0 'яма
End If
'=========== Такт 4
If T3 = 4 Then
If T2 < T1 Then Fm11 = 2 Else Fm11 = 0 'поднятие
If T2 < Sp2 Then If T2 < T1 Then Fm12 = 1 Else Fm13 = 0 'яма
If T2 > Sp2 Then If T2 > T1 Then Fm12 = 1 Else Fm13 = 0 'яма
If T2 > T1 Then Fm13 = 2 Else Fm13 = 0 'спуск
End If
'=========== Такт 5
If T3 = 5 Then
If T2 < Sp2 Then If T2 < T1 Then Fm11 = 2 Else Fm11 = 0 'яма
If T2 > Sp2 Then If T2 > T1 Then Fm11 = 2 Else Fm11 = 0 'яма
If T2 > T1 Then Fm12 = 1 Else Fm12 = 0 'спуск
If T2 < T1 Then Fm13 = 1 Else Fm11 = 0 'поднятие
End If
'=========== Такт 6
If T3 = 6 Then
If T2 > T1 Then Fm11 = 2 Else Fm12 = 0 'спуск
If T2 < T1 Then Fm12 = 2 Else Fm12 = 0 'поднятие
If T2 < Sp2 Then If T2 < T1 Then Fm13 = 1 Else Fm11 = 0 'яма
If T2 > Sp2 Then If T2 > T1 Then Fm13 = 1 Else Fm11 = 0 'яма
End If
Return
Подсказать то можно...ev3658 писал(а): Подскажет может кто