Программный код замеров EC - пример функции

Материал из ЭНЭ
Версия от 18:44, 7 июня 2023; Woronin (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Указан неподдерживаемый язык.

Вы должны указать язык следующим образом: <source lang="html4strict">...</source>

Поддерживаемые языки:

4cs, 6502acme, 6502kickass, 6502tasm, 68000devpac, abap, actionscript, actionscript3, ada, algol68, apache, applescript, apt_sources, arm, asm, asp, asymptote, autoconf, autohotkey, autoit, avisynth, awk, bascomavr, bash, basic4gl, bf, bibtex, blitzbasic, bnf, boo, c, c_loadrunner, c_mac, caddcl, cadlisp, cfdg, cfm, chaiscript, cil, clojure, cmake, cobol, coffeescript, cpp, cpp-qt, csharp, css, cuesheet, d, dcl, dcpu16, dcs, delphi, diff, div, dos, dot, e, ecmascript, eiffel, email, epc, erlang, euphoria, f1, falcon, fo, fortran, freebasic, freeswitch, fsharp, gambas, gdb, genero, genie, gettext, glsl, gml, gnuplot, go, groovy, gwbasic, haskell, haxe, hicest, hq9plus, html4strict, html5, icon, idl, ini, inno, intercal, io, j, java, java5, javascript, jquery, kixtart, klonec, klonecpp, latex, lb, ldif, lisp, llvm, locobasic, logtalk, lolcode, lotusformulas, lotusscript, lscript, lsl2, lua, m68k, magiksf, make, mapbasic, matlab, mirc, mmix, modula2, modula3, mpasm, mxml, mysql, nagios, netrexx, newlisp, nsis, oberon2, objc, objeck, ocaml, ocaml-brief, octave, oobas, oorexx, oracle11, oracle8, oxygene, oz, parasail, parigp, pascal, pcre, per, perl, perl6, pf, php, php-brief, pic16, pike, pixelbender, pli, plsql, postgresql, povray, powerbuilder, powershell, proftpd, progress, prolog, properties, providex, purebasic, pycon, pys60, python, q, qbasic, rails, rebol, reg, rexx, robots, rpmspec, rsplus, ruby, sas, scala, scheme, scilab, sdlbasic, smalltalk, smarty, spark, sparql, sql, stonescript, systemverilog, tcl, teraterm, text, thinbasic, tsql, typoscript, unicon, upc, urbi, uscript, vala, vb, vbnet, vedit, verilog, vhdl, vim, visualfoxpro, visualprolog, whitespace, whois, winbatch, xbasic, xml, xorg_conf, xpp, yaml, z80, zxbasic


//////////////////////////////////////////////
//     2023.05.31 woronin,  umkiedu@gmail.com
//     Тарирование ЕС датчика. Датчик температууры аналоговый
//     Robot UMKI controller  K6_3
//     Датчик ЕС1  и ЕС2 - в виде вилки, сравниваем два щупа
//////////////////////////////////////////////

// Измеритель ЕС
//  Схема подключения
//  DP1----A0-----> Инвертированные значения от 1023
//  DP2-----------> Прямые значения от 0
int DP1 = 8; // Цифровой порт соединенный с аналоговым портом и электродом измерения
int DP2 = 9; // Цифровой порт соединенный с электродом противофазы
int DP3 = A2; //  порт соединенный с аналоговым портом и электродом измерения
int DP4 = A3; //  порт соединенный с электродом противофазы
long  nummea = 50000; // Количество измерений для усреднения


//Функция замера электропроводности в RAW
float cond_sol(int d1, int d2, int a0, long measur) {
  pinMode(d1, OUTPUT);
  pinMode(d2, OUTPUT);
  long var = 1;
  unsigned long ap = 0;
  unsigned long an = 0;

  while (var < measur) {

    digitalWrite(d2, HIGH);
    ap = 0 + analogRead(a0) + ap;
    digitalWrite(d2, LOW);

    digitalWrite(d1, HIGH);
    an = 1023 - analogRead(a0) + an;
    digitalWrite(d1, LOW);
    var++;
  }
  pinMode(d1, INPUT);
  pinMode(d2, INPUT);
  // Усреднение АЦП при положительной ap и отрицательной an фазе
  return (((float)ap + (float)an) / var / 2);

}