Округление значения по ряду Е24

@pahan35 · Регистрация: 13.05.2013

Author24 — интернет-сервис помощи студентам

Есть такой ряд Е24:
1,0; 1,1; 1,2; 1,3; 1,5; 1,6; 1,8;
2,0; 2,2; 2,4; 2,7
3,0; 3,3; 3,6; 3,9
4,3; 4,7
5,1; 5,6
6,2; 6,8
7,5
8,2
9,1
Результат можно множить на 10 в n-ной степени, в зависимости от порядка входного значения.

Нужно сделать такую функцию или формулу, чтобы результат округлялся с погрешность +-5%, если больше 5%, то в большую сторону.
Например:
На входе 27052 , на выходе 27000
На входе 25481 , на выходе 27000
На входе 6,3 , на выходе 6,2

Нашел формулу под EXCEL:
Русский: =10^ОТБР(LOG($C$65)) * ВЫБОР(1,25 + 24 * (LOG($C$65) - ОТБР( LOG($C$65) ) );1;1,1;1,2;1,3;1,5;1,6;1,8;2;2,2;2,4;2,7;3;3,3;3,6;3,9;4,3;4,7;5,1;5,6;6,2;6,8; 7,5;8,2;9,1;10)
Английский: =10^TRUNC(LOG(С65))*CHOOSE(1.5+12*(LOG(С65)-TRUNC(LOG(С65))),1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2,10)
Только формула работает не особо точно, то есть при значении 25481 она округляет его в меньшею сторону, в результате чего превышается погрешность +5%, да и в случае с округлением в большую сторону погрешность будет хоть и больше чем -5%, но всё же меньше чем при округлении в меньшую сторону

Также нашел код на бейсике походу, но я в нем почти ничего не шарю.

Кликните здесь для просмотра всего текста

PureBasic

Function R24C(rin) As Single 
Dim RvL, RvH, rout, Mult As Single
Dim rv24(25) As Single 
rv24 = Array(1,1.1,1.2,1.3,1.5,1.6,1.8,2,2.2,2.4,2.7,3,3.3,3.6,3.9,4.3,4.7,5.1,5.6,6.2,6.8,7.5,8.2,9.1,10) 
Mult = 1 
While (rin >= 10) 
  rin = rin / 10 
  Mult = Mult * 10 
Wend 
For j=1 to 24 
  RvH = rv24(j) 
  If (rin <= RvH) Then 
    RvL = rv24(j - 1) 
    j = 24 
  Endif 
Next j 
If ((RvH - rin) < (rin - RvL)) Then 
  rout = RvH 
Else 
  rout = RvL 
Endif 
R24C = rout * Mult 
End Function

Хочу всё это сделать под MathCAD Prime 2.0, но пример для MathCAD 15 тоже не помешает.

Заранее спасибо за помощь.

@VSI · 13.05.2013, 16:36

Насколько я понял Вашу задачу... (для начала)

@pahan35 · 13.05.2013, 17:16 **[ТС]**

Сообщение от VSI

Насколько я понял Вашу задачу... (для начала)
Вложения
pahan35.rar (8.2 Кб, 0 просмотров)

Спасибо за старания. Но либо я не понял как пользоваться документом, либо задача не была понята.
В конце вы написали

Ваша функция: a + b * c^x , где

. Вместо чего и куда я должен поставить значение переменной, чтобы оно выдало мне необходимый результат - округление? Если вместо х ставить, то там просто возрастающая функция получается. Возможно вы меня неправильно поняли. Для большего понимания это вопрос рассматривался здесь здесь.

Должно быть почти так, как в екселе, только там есть некоторые моменты, когда происходят ошибки

P.S: Посоветуйте хорошую книжку по маткаду (прайм или такой не особо важно, хотя если можно, то по обоим). Книжек в интернете полно, а времени в обрез.

@pahan35 · 13.05.2013, 17:53 **[ТС]**

2303 неверно округляет в екселе =2200 , а надо 2400

@pahan35 · 14.05.2013, 17:27 **[ТС]**

VSI, Есть ли в MathCAD циклы сравнения аналогичные прописанным в бейсиковском коде?

Здесь входное число делиться до тех пор пока, оно не станет меньше 10.

PureBasic

While (rin >= 10) 
  rin = rin / 10 
  Mult = Mult * 10 
Wend

Также нужно учесть вариант когда оно мешьше 1 чтобы оно умножалось на 10

Здесь ищут между какими элементами массива находится входное значение

PureBasic

For j=1 to 24 
  RvH = rv24(j) 
  If (rin <= RvH) Then 
    RvL = rv24(j - 1) 
    j = 24 
  Endif 
Next j

Здесь сравнивают к какому из двух элементов массива входное значение ближе всего.

PureBasic

If ((RvH - rin) < (rin - RvL)) Then 
  rout = RvH 
Else 
  rout = RvL

Помогите записать это маткадовским языком.

@VSI · 14.05.2013, 19:00

Сообщение от pahan35

VSI, Есть ли в MathCAD циклы сравнения аналогичные прописанным в бейсиковском коде?
Есть
Также нужно учесть вариант когда оно мешьше 1 чтобы оно умножалось на 10
Можно
Есть
Здесь сравнивают к какому из двух элементов массива входное значение ближе всего.
Помогите записать это маткадовским языком.

Через пол часика... Хорошо?

@pahan35 · 14.05.2013, 21:35 **[ТС]**

Сообщение от VSI

Через пол часика... Хорошо?

ОК. Поподробнее, если можно

@VSI · 14.05.2013, 22:41

Что непонятно, ЗАПИТУЙ...

@pahan35 · 15.05.2013, 00:57 **[ТС]**

Сообщение от VSI

Что непонятно, ЗАПИТУЙ...
Вложения
pahan35.rar (8.1 Кб, 0 просмотров)

Дякую за допомогу. У меня не получается собрать всё в кучу. Ошибка при подборе ближайших RvL, RvH. Мне кажется что циклы While и/или For как-то неправильно себя ведут. Посмотри может ты разберешься где у меня ошибка.

@pahan35 · 16.05.2013, 14:50 **[ТС]**

Итак, я разобрался с циклами и написал функцию, которая подбирает значения по ряду Е24. С помощью этой функции можно подбирать номиналы элементов(резисторов, конденсаторов, индуктивностей) для радиосхем. Спасибо VSI за помощь в понимании синтаксиса циклов в маткаде. Пользуйтесь на здоровье

VSI, тему можно закрывать во избежание флуда, ведь вопрос решен.

@R2D2 · 16.05.2013, 16:57

Не по теме:

Эх, товарищи! Где Вы были, когда я писал курсач по схемачу, и после расчетов номиналов ВСЕХ(!) элементов трехкаскадного усилка надо было эти элементы подогнать под Е24 и расчитать токи и напряжения еще раз :wall::wall::wall:

@pahan35 · 17.05.2013, 01:17 **[ТС]**

Сообщение от Dimka_rtf

Эх, товарищи! Где Вы были, когда я писал курсач по схемачу, и после расчетов номиналов ВСЕХ(!) элементов трехкаскадного усилка надо было эти элементы подогнать под Е24 и расчитать токи и напряжения еще раз

А я сейчас сижу считаю. Стало впадло всё вручную подгонять. Решил пошевелить извилинами.

В предыдущей версии файла был баг. Переделал, теперь нормально работает. В архиве файлы как для mathCAD Prime 2.0, так и MathCAD 15

@VSI Модератор $Эксперт по математике/физике$ 5240 / 4027 / 1385 Регистрация: 30.07.2012 Сообщений: 12,288
	14.05.2013, 19:00	6
	Сообщение от pahan35 VSI, Есть ли в MathCAD циклы сравнения аналогичные прописанным в бейсиковском коде? Есть Также нужно учесть вариант когда оно мешьше 1 чтобы оно умножалось на 10 Можно Есть Здесь сравнивают к какому из двух элементов массива входное значение ближе всего. Помогите записать это маткадовским языком. Через пол часика... Хорошо? 0

@pahan35 3 / 3 / 0 Регистрация: 13.05.2013 Сообщений: 34
	14.05.2013, 21:35 [ТС]	7
	Сообщение от VSI Через пол часика... Хорошо? ОК. Поподробнее, если можно 0

@R2D2
	16.05.2013, 16:57 #11
	Не по теме: Эх, товарищи! Где Вы были, когда я писал курсач по схемачу, и после расчетов номиналов ВСЕХ(!) элементов трехкаскадного усилка надо было эти элементы подогнать под Е24 и расчитать токи и напряжения еще раз :wall::wall::wall: 0