Фокс хранит нумерик переменные как восьмибайтное двоичное с плавающей запятой.

В хэлпе на фокс заявлена 16-тизначная точность и есть пометка что реально 15,95 знаков, т.е. не все 16-тизначные точно покажутся, у некоторых возможно изменение на 1 младшего разряда.
Это связано с погрешностями преобразования десятичных чисел в восьмибайтное двоичное с плавающей запятой. И касается не только фокса, а всех прог использующих такой тип при расчетах.

Твой пример у меня нормально отрабатывает

Рекомендую почаще делать округление при расчетах
или использовать тип CURRENCY для денежных расчетов, правда у него свои подводные камни есть.

[quot Pavel09]SSn888....
Свой вопрос я собственно задал для того, чтобы, возможно, в харборе использовать алгоритм сравнения фокса. Перенять, так сказать, передовой опыт....
Явно это нигде не описано, но фокс кроме значения похоже хранит точность: количество десятичных знаков после запятой (возможно количество десятичных разрядов).
И точность результата определяется точностью операндов и операцией. Например при сложении берется максимальная точность, при умножении - произведение точностей и т.д.
Сравнение похоже идет с учетом точности сравниваемых значений.
PS Почаще ROUND() надо использовать и тогда не будет проблем со сравнениями.

SSn888Dima TИ точность результата определяется точностью операндов и операцией. Например при сложении берется максимальная точность, при умножении - произведение точностей и т.д.
гы...
при делении аналогично
а при вычитании точность соответственно - залезает в минуса :(
гыгы вычитание = сложение с отрицательным числом. арифметика 3-4 класс.

SSn888максимально возможная точность, если не указана явно - определяется исходя из минимальной чисел в выражении, _отталкиваясь_от_типа_данных_
В фоксе нет явных числовых типов данных (как в Си например), все числа хранятся в своем double с точностью, за исключением CURRENCY.
В любом случае тип задается в момент присвоения значения, а не в LOCAL\PRIVATE\PUBLIC.


SSn888...
если хотите честно работать именно с double (точность, если не изменяет памать - больше 3 сотен - укажите это сперва перед вашим примером
LOCAL n1 as doub,;
n2 as doub
и "будет Вам щастье"
Так с ним самым фокс и работает. double - 8-байтное двоичное число с плавающей запятой. Точность те самые 15,95 знаков. Возможные значения +/-4.9E-324 to +/-8.9E307
"LOCAL n1 as doub" не делает переменную типа double, все что после "AS" используется при подсказках IntelliSense, а при исполнении игнорируется. Выполни:

SSn888SSn888,

не совсем закончил

ROUND тут не просто не "надо почаще", а "стоит пореже", чтоб не ввести себя самого нечаянно в заблуждение насчет надежности результата (если она определяется только автоприсвоенным типом данных и нашим ROUND)
ROUND() надо там где он должен быть по логике задачи. Я это четко усвоил после войны с главбухом когда по одним и тем же расчетным данным итого не сошлось на копейку в разных отчетах, в обоих печаталось одинаково с точностью до копеек, а при расчете "итого" округлялось только в одном.

SSn888"все числа хранятся в своем double с точностью"... ого! значит - я зря привел пример из _официальной_документации_? Вруть все разработчики? %) )
Почему врут? недоговаривают :) Ссылку давай, переведу корректно.

SSn888"Выполнит
local x as doub
? vartype(x)".
ну тут вооще... а как насчет доку почитать?!
цицирую хелп для vartype:
"Return value / Data type
N / Numeric, Float, Double, or Integer"
Что Вы хотели доказать своим примером?
Запустить религия не позволила? vartype(x) вернет тип LOGICAL т.к. всем переменным объявленным в LOCAL присваивается .F., потому что написанное после AS игнорируется при выполнении.

Numeric, Float, Double, or Integer имеют значение когда это в DBF сохраняется, т.к. там под хранение отводится конкретное количество байт и каждый из типов имеет свои ограничения и размеры. Тут разработчик решает какой тип меньше места в файле займет в зависимости от решаемой задачи.

Что касается хранения чисел в переменных - всегда используется DOUBLE плюс какой-то внутренний механизм фокса по ограничению точности. DOUBLE потому что он наиболее точный и имеет наиболее широкий диапазон значений из всех возможных.

Вот почитай про DOUBLE этот тип придуман Интелом и зашит в математический сопроцессор еще со времен 286 процессоров, поэтому все языки его используют одинаково.
При этом есть проблема преобразования дробных чисел из двоичного в десятичный формат - оно редко преобразовывается точно, почти всегда возникает хвост из кучи девяток или нулей с единичкой, поэтому в фоксе это полечили дополнительным ограничением точности (округлением) при выводе. При расчетах этот хвост не мешает, т.к. дает погрешность не влияющую на результат.

PS я к тому что DOUBLE бесполезно указывать т.к. оно и так используется изначально, и точность у него 15,95 десятичных знаков (2^52), никак не около трехсот. Точнее чем с DOUBLE фокс не может расчеты вести. За исключением CURRENCY где при определенном изврате можно получить 18 точных десятичных знаков.

SSn888И еще вот интересно - а для чего, следуя Вашей логике тогда разработчики вообще приделали это "AS " после декларирования переменной, если Вы утверждаете, что "оно ничего и не значит"?
Я ж написал, для выдачи подсказок IntelliSense. Появилось это только в 7 или 8 фоксе.
Можно написать
когда поставишь точку выйдет подсказка со всеми свойствами и методами класса TextBox. Но чтобы ты не написал после точки этот код будет нерабочим, т.к. чтобы переменная Х стала объектом класса Timer надо явно писать
и только потом пользовать его свойства и методы.

Что касается хэлпа то там очень мутно написали How to: Implement Strong Typing for Class, Object, and Variable Code
Вроде как есть строгая типизация и тут же что ее нет:
"... Note: Visual FoxPro is not a strongly typed language and does not require that you declare variables with a specific data types. Visual FoxPro does not enforce strong typing at design time or run time...."
Тут перевод

SSn888гм... неужели народ разучился по сайтам поддержки лазать?
http://msdn.microsoft.com/en-us/library/Aa977951.aspx

Specifies the data type on which this variable or array is based.
там же ниже:
Variables and arrays created with LOCAL are initialized to false (.F.)

SSn888Dima TЗапустить религия не позволила? vartype(x) вернет тип LOGICAL т.к. всем переменным объявленным в LOCAL присваивается .F., потому что написанное после AS игнорируется при выполнении.
Если человек в качестве аргумента приводит тот факт, что переменная, которой не дали явно значение - будет булевская... мне нечего сказть... продолжайте в том же духе
Хватит говорить, скопипасти и запусти.

Лично я соглашусь что я не прав, сто раз извинюсь, проставлюсь пивом/водкой/коньяком если меня кто-нибудь научит как в фоксе явно задать тип переменной и чтоб фокс давал ошибку при присвоении переменной значения другого типа.
Достаточно простого примера типа:

Не типизированный язык VFP чего бы в хэлпе ни писали.

SSn888еще раз - по умолчанию, если нет явных объяв - фокс выделяет наиболее экономный вариант
число 8.4546 никогда не встанет "само" double, потому что просто Num для него выгодней
Экономный для чего? Чего экономим? Повторяю числовые типы для экономии места в DBF, поэтому с точки зрения переменных от такой экономии ни жарко ни холодно. Переменных в фоксе м.б. максимум 65535 поэтому не принципиально займут их значения 1 байт или 8.

Переменным важнее экономия времени, т.е. производительность при расчетах. С этой точки зрения тип DOUBLE оптимален т.к. с ним процессор выполняет математические операции без каких либо предварительных преобразований.
Заводить кучу типов переменных для хранения чисел тоже плохо, т.к. при расчетах необходимо будет делать приведение типов, на что надо время.
К сожалению этот момент никак разработчиками не объясняется, как косвенный аргумент могу привести то что vartype() возвращает "N" для "Numeric, Float, Double, or Integer", т.е. все эти типы физически одинаково сохраняются в переменную при считывании из DBF, иначе зачем разработчикам объединять разные типы? CURENCY они ведь сюда не вставили, потому что он по другому физически хранится в переменной. Это восьмибайтное целое.
SSn888Dima T,

человек, который даже после намеков действительно всеръез полагает, что я не могу перевести столь простую фразу - мне не интересен и пахнет снобизном, а не диалогом...
желаю удачи, я самоустраняюсь от этого
Извини если чем обидел, не знаю как давно ты с фоксом работаешь (был опыт работы с VFP6 и ранее?), но предмет нашего спора это не изначально заложенный функционал, а сбоку прилепленный костыль с подачи маркетологов, прилепленный с целью прикрутить к фоксу подсказки при наборе кода в IDE, которые были в других языках на момент выхода VFP7

Pavel09, ерунда какая-то у тебя в коде, при
n2 = Round(n1+i*0.01, 2)
n3 = Round(n1+n1+i*0.01, 2)

n1-(n3-n2)*10000000000 => (1 - n1) * 10000000000
вобщем далеко не 0 получается

Pavel09, запустил, есть погрешность. Похоже на точность влияет не только кол-во знаков после запятой, но и изначальное общее количество знаков. Как выше писал ROUND() лечит проблему:

Не знаю что твои числа означают, но если это деньги или что-то подобное по размерности, то подумай над использованием типа CURRENCY. Его придумали именно для тех случаев где даже малая погрешность недопустима в принципе. Конкретно в твоем примере замени и запусти:
Реально CURRENCY это 8-мибайтовое целое у которого при отображении запятая сдвигается влево на 4 разряда, т.е. храниться целое количество десятитысячных долей, соответственно все минусы и особенности отсюда:
1. После каждой операции происходит округление до 4 знака, поэтому надо аккуратно делением пользоваться:
2. При отображении без форматирования показывается 4 знака после запятой, поэтому приходится постоянно пользоваться форматированием если надо 2 знака после запятой.

Из плюсов: точность вычислений 18 знаков (больше будет ошибка переполнения), операции с CURRENCY выполняются немного быстрее чем с Numeric и Double.

Лично я предпочитаю тип CURRENCY если его допустимо применить. Некоторые разработчики его не любят (в первую очередь из-за особенности деления).

tanglirDima TЗапустить религия не позволила? vartype(x) вернет тип LOGICAL т.к. всем переменным объявленным в LOCAL присваивается .F., потому что написанное после AS игнорируется при выполнении.для неинициализированных переменых объявленный тип и впрямь не имеет значения. Пока они не инициализированы. А теперь запишите туда раунд(5,233648б2) и покажите вартайп.
Ничего не понял. Это к чему сказано?

tanglirDima Tпропущено...

Ничего не понял. Это к чему сказано?К тому, что пока в переменной по умолчанию .F., то, конечно, вартайп вернёт L, это и ежу понятно. Но что вернёт вартайп, если в переменную заранее объявленного типа всё-таки записать значение, которое можно трактовать либо как объявленный тип, либо как какой-то другой. Вопрос-то в этом был, или я что-то пропустил?
Пропустил, если вкратце, то была попытка доказать что "local x as doub" создает переменную типа DOUBLE. В хэлпе так написано:
MSDNLOCAL Command
Visual Studio .NET 2003
Creates local variables and variable arrays.

LOCAL Var1 [AS type [OF ClassLib]] ...

VarList
Specifies one or more local variables to create.
[ARRAY] ArrayName1 (nRows1 [, nColumns1]) [, ArrayName2 (nRows2 [, nColumns2])] ...
Specifies one or more local arrays to create. See DIMENSION for a description of each argument.
AS type
Specifies the data type on which this variable or array is based.
....
Оно и правда написано, только далее
MSDNRemarks
...
Variables and arrays created with LOCAL are initialized to false (.F.)...
Как хочешь так и понимай. Вобщем ерунды какой-то понаписали в хэлпе по поводу типизации переменных. Тут еще интересный опус: How to: Implement Strong Typing for Class, Object, and Variable Code

Вобщем мое мнение: конструкция "AS ..." в фоксе нужна только чтобы подсказки выскакивали при наборе кода (свойства, методы объектов) и на работу кода она никак не влияет, т.е. при выполнении кода игнорируется.

SSn888Давно не заглядывал на форум.... вот наворочено-то :)

Дима_Т, я не говорил ""local x as doub" создает переменную типа DOUBLE", тут у нас легкое недопонимание, из-за чего полагаю и возник сыр-бор.

local x as doub описывает переменную, которая _после_ придания ей корректного значения будет держать это значение как DOUBLE. Разница в нюансах.

XAndy выше упоминал структуру ev_width , это и есть внутреннее хранение переменной в памяти:


Нет там нескольких типов для нецелых чисел, только DOUBLE

SSn888А почему присваивает тип "поэкономней"... гм, потому что таков принцип фокса и не только его.. если по умолчанию присваивать наоборот, самые громоздкие типы - то рано или поздно начнуться проблемы.. например, с памятью.
Я уже писал что не память надо экономить. Считаем:
65535 - максимально возможное количество переменных в фоксе (по умолчанию 16384)
8 байт - под хранение DOUBLE
т.е. под 65535 переменных DOUBLE надо 524280 байт, т.е. 0,5 Мб. Чего тут экономить?

SSn888Или Вы наверно, везучий и по работе постоянно сталкиваетесь с новым железом и _не_ сталкивались с ситуацией "оперативка не более 256, причем половина ее уже забита всяким хламом"
угу, есть еще вторые пни с W98 + 16Мб где действительно 6й фокс тормозит, правда стоит до 32Мб памяти добавить и все летает.

SSn888какие нафиг подсказки если речь идет о _переменных_?
Свойства и методы объектов касаются именно этих самых объектов, а какая подсказка по-Вашему должна вылезать при наборе переменной var1, объявленной как дубле? и в чем эта подсказка должна по-Вашему отличаться от переменной, объявленной AS INTEGER или AS еще много чего... Логика "для подсказок" сработает _только_ если объявляем AS Class...
Во всех остальных случаях AS для подсказок не может быть использован, потому что ПОДСКАЗЫВАТЬ НЕЧЕГО.
Немного истории фокса: в VFP6 (появился в 98м) подсказок не было и "AS" не было, после выхода SP5 мелкомягкие решили фокс похоронить, хоронили лет 5-6, потом неожиданно появилась 7-ка, следом в течении года 8-ка, в одной из которых это и появилось. Большая часть изменений были косметические, т.к. VFP6 имел устаревший вид прог под W95.
Т.е. по-твоему в платформе которая была создана под слабые компы в очередной версии добавили оптимизацию переменных? Кстати это совсем немаленькая доработка.

IntelliSence при подсказках пытается найти класс и вывести его свойства и методы, если не находит, то ничего не подсказывает.
Повторяю, то что после AS игнорируется при выполнении, простой пример:
Никаких ошибок не возникает, хотя другие языки дают ошибку в этом случае.

PS Не знаю как еще доказать отсутствие функционала, если ты считаешь что он все-таки есть - покажи пример кода при котором после добавления "AS ..." что-то изменится.

ХЗ почему так сделали, могу только свои предположения высказать:
1. Не факт что в хэлпе под data type подразумеваются простые типы, может под data type классы пользователя подразумеваются:
MSDNAS type
Specifies the data type on which this variable or array is based.
OF ClassLib
Specifies the class library containing the type description on which the type element of this variable or array is based.
Для базовых классов фокса можно без OF писать:
или где-то вначале подцепить библиотеку со своими классами (SET CLASSLIB TO MyLib), а потом на ее классы ссылаться без OF
это я к тому что невозможно проверить корректность написанного после AS т.к. SET CLASSLIB может быть не выполнена на момент правки кода.

2. Примечание (подсказка) разработчику какого типа задумана переменная. Хотя для решения этой проблемы с типами многие используют венгерскую нотацию.

Вобщем сделали это для классов и добавили игнорирование любых непонятных слов, как следствие получилось что после AS можно писать все что угодно.