Evolvent

Хватило бы и 4-хбайтного типа, но компилятор не дает поместить в 4-х байтный тип с плавающей точкой результат умножения двух четырехбайтных типов без знака а 8-ми байтный тип DOUBLE на который не ругается компилятор дает бред на дисплее. У меня BASCOM AVR 2.0.7.1

На бейсике для AVR. Компилятор называется BASCOM AVR Dim Cnt1 As Word Dim W1 As Word , W2 As Word Dim Freqency As Long , Long_tmp As Long Dim D1 As Double Dim Float1 As Single , Inductance As Single , Capacity As Single Dim Strf As String * 8 Const Compare = 15625 Const Pi = 39.4384 : Const Ref_l = 0.00012 : Const Ref_c = 0.000000001 D1 = Freqency * Freqency Capacity = Ref_l * Pi D1 = Capacity * D1 D1 = 1 / D1 D1 = D1 - Ref_c Locate 2 , 1 : Lcd D1

Всем привет! Столкнулся с проблемой что не работает переменная double. Зачем она мне нужна? Есть устройство для измерения емкости и индуктивности .Вот его схема и статья о нем http://radiokot.ru/circuit/digital/pcmod/57/ Я решил не повторять полностью ее, а сделать свою плату с ЖК дисплеем. Казалось бы формула расчета емкости и индуктивности проста, но там есть F2 и в собранном устройстве частота в контуре 450кГц . В переменную SINGLE F2 тупо не влазит, а в DOUBLE не получается даже почти любое число поместить. На дисплее либо бред, либо 0, либо Infinity . Помогите пожалуйста разобраться