Прошивка

Мультиметр, но навороченный - подбираю резонанс конденсатором, и, потом оточнее программно.
Каскады работают в противофазе - две управляющих ноги от микроконтроллера, которые попеременно переключаются с частотой 10кГц. Немного уменьшена скважность управляющих импульсов (на 0.5 мксек),
чтобы не было сковозного тока.

Да хоть исходник на Си, прогайте на здоровье.
В моей программе прошивается ограниченное количество групп частот - 16.
Поэтому, что Вам надо, то и забивайте:

//Fr2.c - MyDe 2 Attiny2313
//для GNU-компилятоа - последняя версия за 2010г
//Не забыть Fusе-ы
//avrdude -p t2313 -c usbasp -B 2 lock:w:0x3f:m -Ulfuse:w:0xff:m -Uhfuse:w:0xdf:m -Uefuse:w:0xff:m
//#include <sig-avr.h>

#include <avr/io.h>
#include <util/delay.h>

#include <avr/wdt.h>
#include <avr/interrupt.h>
//#include <avr/eeprom.h>
#include <avr/pgmspace.h>

// В новых gnu-компиллерах нет cbi() и sbi()
#define cbi(sfr, bit) (_SFR_BYTE(sfr) &= ~_BV(bit))
#define sbi(sfr, bit) (_SFR_BYTE(sfr) |= _BV(bit))
#define byte unsigned char
#define word unsigned int

//#define F_CPU 20000000  - частота кварца однокристалки - объявлено в MAKEFILE-е

#define f0 10000//10kHz для таймера0

#define c0 (byte)((F_CPU/div8)/f0)/2 //Делитель для для Таймера0

#define div8  (byte)8//пределитель1 таймера1 тактовой частоты F_CPU
#define div64  (byte)64//пределитель2 таймера1 тактовой частоты F_CPU
#define div256  (byte)256//пределитель3 таймера1 тактовой частоты F_CPU

const byte aprsc[3] PROGMEM = { 2, 3, 4 };
const byte andiv[3] PROGMEM = { div8, div64, div256 };

//Лечебные группы частот.  1-я цифра в группе это количество частот в группе
const int af[] PROGMEM = {/*0*/  260, 400, 490, 940, 1950, 5100, 5150, 5700, //Урол.
                           /*1*/  400, 490, 550, 940, //Урол.
                           /*2*/  1000, 1250, 1900, //Урол.
                           /*3*/  1400, 450, 5100, //Урол
                           /*4*/  450, 1400, 1550, 5500, 5550, 5700, 4950, //Урол.
                           /*5*/  5000, 5800, 8550, //Урол. Местн. кровообр-я
                           /*6*/  400, 490, 810, 940, 2000, 6000, 7200, 7300, 9500, //Урол.
                   /*7*/  260, 400, 940, //Урол.
                           /*8*/  120, 160, 920, 960, 9550, 9650, 10000, // артри артро
               /*9*/  120, 160, 920, 960, // АРТРОЗЫ
                           /*10*/ 200, 250, 300, 350, 900, 5900, 6000, 6750, // Ост гр ше
                           /*11*/ 4029, 4270, 4350, 4370, 4900, 1000, 1250, 1100, // Витализация 1-й этап 3 дня ЭНЕРГООБМЕН
                           /*12*/ 400, 1000, 1250, 1500, 7750, 8000, 8250, 9900, 4000, 4250, 4500, 9975,// Витализация 2-й этап 3 дня
                           /*13*/ 2200, 1150, 1950, 2600, 5800, 6800, 8450, 9750, // Витализация 3-й этап 4 дня
                           /*14*/ 200, 250, 300, 350, 900, 5900, 6750, 9500, 6000, // ШОП
                           /*15*/ 265, 960, 970, 6750, 200, 300, 350, 400, //Позвоночник весь главны ствол  грудной отдел
               /*16*/ 250, 360, 390, 500, 810, 850, 3400, 9200, 9250, // сон
                           /*17*/ 120, 630, // Спа со гол мо
                           /*18*/ 490, 600, 960, 2700, 2960, 9500, // Звон в ушах
                           /*19*/ 90, 400, 800, 945, // бР.АСТМА
                           /*20*/ 580, 960, // Деп
                           /*21*/ 250, 360, 390, 500, 630, 810, 3400, 9200,  //Антистресс (расстройство сна)
                           /*22*/ 4300, 5300, 5400, 5425, 5450, 6300, 8600, //Почки
                           /*23*/ 260, 380, 400, 6050, // Прямая кишка
                           /*24*/ 6000, 6100, 6200, 6300, 6450, 6600, 6800, // Толстый кишечник
                   /*25*/ 260, 800, 940, 6150, 6250, 6700, //Тонкий кишечник
               /*26*/ 260, 380, 400, //Геморрой
                           /*27*/ 90, 250, 265, 330, 600, 800, 980, 5600, //Детоксикация организма
               /*28*/ 220, 1000, 1250, 1500, 1950, 2600, 5500, 9250, //Активная защита
                           /*29*/ 350, 380, 810, 860, 940, 1000, 1150, //Регуляция желудочно-кишечного тракта                           
               /*30*/ 700, 940, 945, 1950, 4050, 4600, 5000, // Регуляция кровообращения
                           /*31*/ 10000 // 100Гц не имеет значение. sw1= 0x1f это 10кГц              
                 };

//Массив начального элемента группы частот предыдущего массива
                         //Урол.
const byte anf[] PROGMEM = { 8, 4, 3, 3, 7, 3, 9, 3, 7, 4, 8, 8, 12, 8, 9, 8, //9 ШОП, 8СТВОЛ
                      /*СОН*/ 9, 2, 6, 4, 2, 8, 7, 4, 7, 6, 3, 8, 8, 7, 7, 1 };//Рег. кров., 100гЦ
              

volatile byte  fr = 0, prfr = 0, sw1 = 0, sw2 = 0, btn1 = 0, btn2 = 0, i100u = 0, i1ms = 0, prsw = 0, prbtn =0;

volatile word c1 = 40000, f = 260, ncount = 0, icount = 0;

volatile int begf = 0, nfr = 0, ifr = 0, ikb = 0, nkb = 0;

void showled(byte ss){
if(bit_is_set(ss, 0)){cbi(PORTB, 1);}else{sbi(PORTB, 1);}
if(bit_is_set(ss, 1)){cbi(PORTB, 2);}else{sbi(PORTB, 2);}
if(bit_is_set(ss, 2)){cbi(PORTB, 3);}else{sbi(PORTB, 3);}
if(bit_is_set(ss, 3)){cbi(PORTB, 4);}else{sbi(PORTB, 4);}
if(bit_is_set(ss, 4)){cbi(PORTB, 5);}else{sbi(PORTB, 5);}
}

SIGNAL(SIG_OVERFLOW0)
{
byte btn, sw;

cli();

//10кГц Перезарядить счётчик Таймера0
TCNT0 = (unsigned char)260-c0;// Реально 9.71кГц, а если +6 - то 10.1кГц

if(prfr){

if bit_is_set(PIND, 1)
{
  cbi(PORTD, 1);
  _delay_us(1);//1mksec - для Комплкментарных сборок IRF7105 (1 - это задержка из-за инвертора-согласоаптеля IRML2502); НО _delay_us(2) - для IRF739 ???
  sbi(PORTD, 0);
}else{
 
  cbi(PORTD, 0);
  _delay_us(1);//1mksec - для Комплкментарных сборок IRF7105 (1 - это задержка из-за инвертора-согласоаптеля IRML2502); НО _delay_us(2) - для IRF7349 ???
  sbi(PORTD, 1);
}

}else{
cbi(PORTD, 1);
cbi(PORTD, 0);
}

if(!(prsw || prbtn)){//Признак смены комбинаций переключателей и признак нажатия кнопки должны быть обработаны в про SIGNAL(SIG_OVERFLOW1)
i100u++;//Каждые 100 мксекунд (10кГц) срабатывет текущая процедура обработки прерываний, и, если обработаны переключатели и кнопки, то набор статистики по 1мс
if(i100u >= 10){//1мксек
  i100u = 0;
  sw = ~(PIND >> 2) & 0x1f;//Считать свитчеры
  btn = PINB & 1;//Считать кнопку
  if(i1ms == 0){//1-ое считывание из 16-ти
   sw2 = sw;
   btn2 = btn;
   i1ms = 1;
  }else{
   if((sw != sw2) || (btn != btn2)){
    i1ms = 0;//Признак начала заново серии опроса переключателей и кнопок
   }else{//Совпадает с комбинацией переключателей и состояния кнопки в серии опроса
    i1ms++;
    if(i1ms >= 16){//Закончилась (16ms) серия одинаковых опросов состояния переключателей и кнопки
i1ms = 0;
     if(sw2 != sw1){//Значит было изменение сосотояния переключателей
  sw1 = sw2;
      prsw = 1;//Взвод признака обработки изменения состояний переключателей
}
     if(btn2 != btn1){//Значит былоизменение сосотояния кнопки
  if(btn1 & (!btn2)) prbtn = 1;//Взвод признака обработки изменения состояния кнопки
  btn1 = btn2;
}
    }
   }
  }
}
}

sei();
}//pro SIGNAL(SIG_OVERFLOW0)

SIGNAL(SIG_OVERFLOW1)
{
byte i; long int n, nd;

cli();

//Сразу перезарядить счётчик Таймера1
TCNT1 = 65535 - c1;

icount++;
if(icount > ncount){

icount = 0; ncount = 0;

ifr++; if(ifr >= nfr) ifr = 0;

if(ifr == 0){
  nfr = pgm_read_byte(&(anf[fr]));//Количество частот в группе
  //Вычислить ячейку начала группы частот
  begf = 0; if(fr) for(i = 0; i <= fr -1; i++) begf = begf + pgm_read_byte(&(anf[i]));
}

showled(ifr);

for(i = 0; i <= 2; i++){
  n = F_CPU; n = n*100;
  f = pgm_read_word(&(af[begf + ifr]));
  nd = pgm_read_byte(&(andiv[i])); nd = nd*2*f;
  n = n / nd;
  if(n < 65500) break;
}

if(i <= 2){
  c1 = n & 0xffff;
  TCCR1B = pgm_read_byte(&(aprsc[i]));
  n = 600; ncount = ((n*f)/100) & 0xffff;//600 - это 300 секунд  - это 5-ть минут на одну частоту
  //Перезарядить счётчик Таймера1
  TCNT1 = 65535 - c1;
}
}

if(prsw){//Смена состояний переключателей
prsw = 0;
fr = sw1; //это новый набор частот
ifr = nfr;
icount = ncount;//Чтобы в следующем прерывании был инкремент частоты, для нового набора частот
//showled(fr); _delay_ms(500);
}

if(prbtn){//Значит было нажатие кнопки (но не отжатие)
prbtn = 0;
icount = ncount;//Чтобы в следующем прерывании был Инкремент частоты
}

if bit_is_clear(PINB, 6){sbi(PORTB, 6);}else{cbi(PORTB, 6);}//Электрод электропунктуры

if(fr == 0x1f){ //Когда такой набор кнопок - 5кн включена, остальные выключены, тооо постоянный генерёж 10кГц
prfr = 1;
}else{
if(prfr){prfr = 0;}else{prfr = 1;}
}

wdt_reset();

sei();
}//pro SIGNAL(SIG_OVERFLOW1)

int main(void)
{
//ЗАБЛОКИРОВАТЬ АППАРАТНЫЕ ПРЕРЫВАНИЯ
cli();//Запретить глобальные прерывания

//Обнулить регисты разрешений прерываний
GIMSK = 0;// Запрещение прерываний от внешних устройств
TIMSK = 0;// Запрет прерываний от таймеров
   
DDRB = 0b01111110;
PORTB = 1;

DDRD = 0b00000011;
PORTD = 0b01111111;

wdt_enable(6);

TCCR0B = 2;//aprsc[0].cprsc; //Регистр управления Таймером0. См.cтр.85 Док.6МБ             
           //0x1 - на вход Таймера0 подаётся частота F_CPU/1
//Для начала
TCCR1B = 2; //Регистр управления Таймером1. См.cтр.85 Док.6МБ
                          //0x5 - на вход Таймера1 подаётся частота F_CPU/1000     
TIFR = 0; //Очистить флаги прерываний от Таймеров (1-го и 0-го). См. стр.37 и 126
     
////МЕРОПРИЯТИЯ ПО СНИЖЕНИЮ ЭЛЕКТРОПОТРЕБЛЕНИЯ
cbi(ACSR, 3);//Off бит ACIE - запрещение прерывания от компаратара стр65. и 39
cbi(ACSR, 7);//Но если 1 - ON бит ACD - отключение питания компаратора  стр65. и 39

TCNT1 = c1;//Перезарядить счётчик Таймера1 - здесь это непринципиально

TCNT0 = c0; //Перезарядить счётчик Таймера0

TIFR = 0; //outp(0, TIFR);//Сбросить флаги прерывания по переполнению счётчика Таймера0 и 1

sbi(TIMSK, 1);//Разрешить прерывание по переполнению счётчика Таймера0. Стр.35
sbi(TIMSK, 7);//Разрешить прерывание по переполнению счётчика Таймера1. Стр.35

TIFR = 0; //Сбросить флаги прерывания по переполнению счётчика Таймера0 и 1

sw1 = ~(PIND >> 2) & 0x1f;//Считать свитчеры
fr = sw1;
btn1 = PINB & 1;//Считать кнопку

sei();

while(1);

}//main file Fr2.c for compiler GNU-GCC для Attiny2313

Да почти всё похожее что и в ДЕты-рытм несущая частота 10Кгц реализована программно, и прерывается лечебными частотами от 2-100кГц. Точного выставления лечебных частот (DDS) как у Vlads y меня не реализовано - частота кварца делится пределителем и 16-ти битовым таймером. Пробовал подключать индуктивность через повышающий феритовый трансформатор - 600 вольт получалось, приёмник ловил по всей квартире, это чтобы с рюкзаком не ходить. Что касается результатов  -  хуже не стало, зато мозги немножко тренировались.

Здравствуйте, ГУФ Fedja34!
Но честно таки признайтесь, что маленько "перегнули" с прерыванием десятикилогерцовой несущей (10 кГц!) стокилогерцовыми сигналами (100кГц!)?

Отредактировано Goodil (29.01.2014 18:43)

Подпись автора

С наилучшими  пожеланиями здоровья и успехов!
Алексей

Вот Hex-файл. И главное, не забыть правильно прошить фьюсы:
avrdude -p t2313 -c usbasp -B 2 lock:w:0x3f:m -Ulfuse:w:0xff:m -Uhfuse:w:0xdf:m

Вечером в 21-00 будут фото моего МТир1.

Картинки, через "фотохостинг" справа на экране и в самом низу. Нex здесь выкладывают как-то по-хитрому. А,  например, я выкладываю на Yandex-диск , Mail-облако или Google-диск, открываю там на них доступ и здесь даю ссылку.

Подпись автора

С наилучшими  пожеланиями здоровья и успехов!
Алексей

ГУФ Vlads, про точность Вы от части правы.  Допустим , что таймер работает на частоте 4е6 (4мгц), для частот 100.01 и 100.02  его ( таймера) значения будут равны 4е6/100.01= 39996 и 4е6/100.02 - 39992 - разница в 4 такта.  Разумеется есть предел и его можно посчитать. Так же хочу обратить Ваше внимание на точность кварцев - 30ррм в обе стороны для HC-49, a это значит что на частоте кварца 1 мгц можно вытащить только 4 знака точности независимо от того DDS это или таймер.

Вот Фотка:

Вот файлы: Hex  с исходником и make-файлом для компиляции для AVR GNU-GCC:
https://drive.google.com/file/d/0B20QiI … sp=sharing
там файлы: Fr2.c  makefile  Fr2.hex  Fuses Fr2.bat  MTIR1.spl7

Ну всё, скажите Дэте до свидания. Останутся только самодельные приборчики, можно сказать раритет.
http://www.roszdravnadzor.ru/main/oficial/27809

Федеральная служба по надзору в сфере здравоохранения предлагает субъектам обращения медицинской продукции провести проверку наличия в обращении указанных медицинских изделий и в установленном порядке провести мероприятия по предотвращению их оборота на территории Российской Федерации.
          [взломанный сайт]   

             

Подпись автора

Всё есть яд, и всё есть лекарство, а разделяет одно от другого лишь доза (Парацельс)

Интересная эпопея с сертификацией Деты. Ребята упрямые. Интересно как будет развивается ситуация далее.

ГУФ Fedja34, какой формы сигнала Вы хотите достичь?

Всем привет! Это ссылка на новую прошивку Ри Тм. По моей просьбе Vlads добавил в прошивку управление для бузера. После окончания программы на порт D0 появляется единица, на 4 секунды. К этому порту можно подключить ключ для бузера. И еще, заменена программа под номером 284 "Люмбаго прострел", она повторяется 131, на "Киста на почке", частота 53,5Гц.
http://rghost.ru/52054005 

Отредактировано dnik (30.01.2014 12:25)