Как пропорционально распределить сумму ? #551801

Подскажите формулу. Есть 3 суммы 150, 100 и 50, как 100 разделить пропорционально между 150 и 50.

Пропорционально.

75 и 25

А формулой ?

1. Вычисляем, во сколько раз отличается 100 от суммы 150 и 50. 100/(150+50) = 0,5 2. Умножаем наши суммы на полученный к-т. 150 * 0,5 = 75 50 * 0,5 = 25

100/(150+50)

100 * 50 / (50+100+150) 100 * 100 / (50+100+150) 100 * 150 / (50+100+150)

блин (50+100+150) заменить на (50+150)

Формулой это типа: Ч1 = 150 Ч2 = 100 Ч3 = 50 Сумма = Ч2 / (Ч1 + Ч3) Ч1 = Ч1 + Ч1 * Сумма Ч3 = Ч3 + Ч3 * Сумма Все понятно, всем спасибо.

Чтобы не путаться в понятиях: Коэффициент = Ч2 / (Ч1 + Ч3) Ч1 = Ч1 + Ч1 * Коэффициент Ч3 = Ч3 + Ч3 * Коэффициент

А зачем так: Ч1 = Ч1 + Ч1 * Коэффициент ?

Функция РассчитатьДельту(СуммаВходящая,ВсегоСуммаВходящая,СуммаРаспределения)    ПроцентОтОбщей=СуммаВходящая /(ВсегоСуммаВходящая/100);    Дельта=Окр(СуммаРаспределения/100*ПроцентОтОбщей,2,РежимОкругления.Окр15как20);    Возврат Дельта; КонецФункции

+ потом если последняя сумма надо не функцию вызывать а тупо прибавлять оставшийся хвост.  а то копейки остаются

мдэ... а что, в Советское время тоже образование хромало?

хвост в виде лишней копейки, если коэффициент вида 0,3333333333333, лучше не к последней сумме прибавлять, а к максимальной. Аккуратнее получается. :)

"программист"-гуманитарий?

это шутка ?

Можно и так :-)

есть 2 (два) осажденных города. в одном 150 защитников. в другом 50 защитников. им на подмогу идет обоз с мукой. везут 100 кг. Задача: сколько муки нужно завезти в каждый город через подземный ход чтобы всем защитникам досталось поровну? Решение: Складываем всех защитников города, делим всю муку на кол-во всех защитников, находим сколько муки приходится на 1 защитника по норме. Умножаем норму на кол-во защитников в каждом городе. разделяем всю муку на 2 части ПРОПОРЦИОНАЛЬНО полученной норме для каждого города.

В социальном государстве лучше прибавлять к минимальной сумме.

а теперь в запросе и так, чтобы копейки не терялись :)))

лично у меня - УГ получилось :)

declare table (id int, b decimal) declare @sum as decimal insert values (1, 100), (2, 50) set @sum = 200 select    cast(@sum / (SUM(b) OVER) * b as decimal(15,2)) AS t from

Усложним задачу: Есть главный документ. Сумма документа = 150 Нал = 50 БезНал = 100 Он делится на 2 документа. Первый Документ Сумма = 80 Нал = ? БезНал = ? Второй Документ Сумма = 70 Нал = ? БезНал = ? Вот как тут рассчитать оплату из главного документа ?

распредели сумму в 100 пропорционально между 3 одинаковимы значениями, чтобы копейки не потерялись

*одинаковыми

типа 100 + 100 + 100 + 100 => 133,34 + 133,33 + 133,33

В исходной задаче две суммы... В случае, если у одной суммы будет 0,3333333333333 - значит у другой 0,6666666666666. В общем, при округлении все будет хорошо. Вот если было три суммы (и более)... Возникла бы ситуёвина, когда одному 0,3333333333333,   другому  0,3333333333333 и третьему столько же. В результате копеечки могут и не бить.

решение таки должно быть универсальным

размазывать нужно как в но с одной оговоркой отсортировать суммы по убыванию и последней сумме добавить остаток

Суть этого гемора такова: Определенный товар продается на ИП, остальной на ООО (одна касса работает с двумя фискальниками), до того пока не подключили банк все было нормально, вчера подключили...

т.е. Один Чек ККМ делится на два в зависимости от товара.

( Отклонение = 0; Для Каждого Строка Из ТЗ Цикл    Результат = НужныйРезультат * Строка.Основание / База + Отклонение;    Отклонение = (Результат - Окр(Результат, 2));    Строка.Результат = Окр(Результат, 2); КонецЦикла;

Это 1с розница, программно деление чека выглядит так:    Если Константы.ДваФР.Получить Тогда        Запрос = Новый Запрос("        |ВЫБРАТЬ * ПОМЕСТИТЬ ТабТов ИЗ &ТабТов КАК ТТ;        |ВЫБРАТЬ *        |ИЗ        |    ТабТов КАК Товары        |ГДЕ        |    Товары.Номенклатура.ТоварОрганизации = &Организация");        Запрос.УстановитьПараметр("ТабТов", Товары.Выгрузить);        ВремКассаККМ = КассаККМ;        Оплаты = Оплата.Выгрузить;        Организации = Справочники.Организации.Выбрать;        Пока Организации.Следующий Цикл            Если Организации.Ссылка = Магазин.ОсновнойСклад.Организация Тогда;                Организация = Справочники.Организации.ПустаяСсылка;            Иначе                Организация = Организации.Ссылка;            КонецЕсли;            Запрос.УстановитьПараметр("Организация", Организация);            Результат = Запрос.Выполнить;            Если Не Результат.Пустой Тогда                ЭтотОбъект.Товары.Загрузить(Результат.Выгрузить);                ФР = ПолучитьСерверТО.ПолучитьИдентификаторПоИдКассы(Организация);                Если ЗначениеЗаполнено(Организация) И Не ПустаяСтрока(ФР) Тогда                    КассаККМ = ПолучитьСерверТО.ПолучитьКассуККМ(ФР);                Иначе                    КассаККМ = ВремКассаККМ;                КонецЕсли;                ИтогСуммы = Товары.Итог("Сумма");                ИтогОплат = Оплаты.Итог("Сумма");                Если ИтогСуммы <> ИтогОплат Тогда                    ЭтотОбъект.Оплата.Загрузить(Оплаты);                    Для Каждого ФормаОплат Из Оплата Цикл                                                //???????????????????????????????                                            КонецЦикла;                КонецЕсли;                ЗавершитьЗакрытиеЧека2(Печать, РучнойРежим, ВыбратьДокументПечати, ФР);            КонецЕсли;        КонецЦикла;    Иначе        ЗавершитьЗакрытиеЧека2(Печать, РучнойРежим, ВыбратьДокументПечати);        КонецЕсли;

запросом же

Если использовать временные таблицы, то можно распределить результат, а остаток оставить на максимальной/минимальной строке

Получилось как то так: ...                        Для Каждого ФормаОплат Из Оплата Цикл                            Если ПервыйПроход Тогда                                СуммаОплаты = ИтогСуммы * Окр(ФормаОплат.Сумма / ИтогОплат, 2);                                СписокОплат.Добавить(ФормаОплат.Сумма - СуммаОплаты);                                ФормаОплат.Сумма = СуммаОплаты;                            Иначе                                ФормаОплат.Сумма = СписокОплат.Получить(ФормаОплат.НомерСтроки - 1).Значение;                            КонецЕсли;                        КонецЦикла;                        ПервыйПроход = 0; ...

В УТ или УПП глянь документ доп. расходы. Там есть алгоритм распределения суммы по кол-ву или объему

тупые 1с ники

Нормально работает, на разных суммах проверял. Так скажите как тупому 1с-нику сделать все правильно в и

возьмите хоть из УПП типовой что ли... там и то адекватнее написано

а куда цветовыделение кода 1С делось?

Ошибки округления будут при таком расчете

Трандец, модуль "ОбщегоНазначения" отобрали у автора?

Если бы у них все было адекватно и работало, не было бы этого форума. Нормально все работает, копейки нигде "не провисают", в отличии от типовых процедур +- 0.01 руб.