CAD Fórum : Zaokrouhlení https://www.cadforum.cz/forum/ Wed, 13 May 2026 09:52:00 +0000 Thu, 06 Jan 2011 07:15:21 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=12039 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Zaokrouhlení : Vim, ze je jiz problem vyresen,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58146&title=zaokrouhleni#58146 Autor: alfred
Předmět: 12039
Zasláno: 06.led.2011 v 07:15

Vim, ze je jiz problem vyresen, ale jen nabizim jeste jednu jednoduchou moznost.

Pokud je promenna x s real cislem:

(rtos (atof (rtos x 2 2)) 2 3)

"vnitrni" rtos zaokrouhli na potrebny pocet cisel a pritom zaokrouhli
atof prevede string zpet na cislo
"vnejsi" rtos doplni nuly a prevede na string

Pozor na nastaveni promenne [VAR]DIMZIN[/VAR]

]]> Thu, 06 Jan 2011 07:15:21 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58146&title=zaokrouhleni#58146 <![CDATA[Zaokrouhlení : Děkuji za tip. ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58134&title=zaokrouhleni#58134 Autor: PepaR
Předmět: 12039
Zasláno: 05.led.2011 v 19:14

Děkuji za tip.]]> Wed, 05 Jan 2011 19:14:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58134&title=zaokrouhleni#58134 <![CDATA[Zaokrouhlení : PepaR: Zaokrouhlení: Zkuste tohle,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58126&title=zaokrouhleni#58126 Autor: iand
Předmět: 12039
Zasláno: 05.led.2011 v 09:23

PepaR: Zaokrouhlení:
Zkuste tohle, je to perfektní

[code]
(defun ROUND (num frac / half over)
;;; (ROUND NUM FRAC) returns NUM rounded to the nearest FRAC.
;;; Examples: (ROUND 15.2 0.25) returns 15.25
;;;            (ROUND 15.1 0.25) returns 15.00
;;; By Duff Kurland - Autodesk, Inc.   August 22, 1986
(if (minusp num)
    (- (round1 (- num) frac))
    (round1 num frac)
) ;_ end of if
) ;_ end of defun

(defun round1 (num frac / half over)
(setq half (/ frac 2.0))
(setq over (rem num frac)) ; Get remainder
(if (>= over half)
    (+ num frac (- over)) ; Round up
    (- num over) ; Round down
) ;_ end of if
) ;_ end of defun
[code]


Upravil iand - 05.led.2011 v 10:50]]> Wed, 05 Jan 2011 09:23:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58126&title=zaokrouhleni#58126 <![CDATA[Zaokrouhlení : No jo, to bude ono. Školácká chyba....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58124&title=zaokrouhleni#58124 Autor: PepaR
Předmět: 12039
Zasláno: 04.led.2011 v 18:37

No jo, to bude ono. Školácká chyba. Moc děkuju.]]> Tue, 04 Jan 2011 18:37:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58124&title=zaokrouhleni#58124 <![CDATA[Zaokrouhlení : U toho řádku&#034;&lt; y&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58123&title=zaokrouhleni#58123 Autor: Vladimír Michl
Předmět: 12039
Zasláno: 04.led.2011 v 18:31

U toho řádku "< y" jste nějak na štíru se závorkami - jedna ukončovací chybí.]]> Tue, 04 Jan 2011 18:31:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58123&title=zaokrouhleni#58123 <![CDATA[Zaokrouhlení : Vladimír Michl napsal(a):Tak...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58122&title=zaokrouhleni#58122 Autor: PepaR
Předmět: 12039
Zasláno: 04.led.2011 v 18:19

Původně odeslal(a) Vladimír Michl Vladimír Michl napsal(a):

Tak to zaokrouhlete na setiny a připište "0":
 
(strcat (rtos 1.232 2 2) "0")
Tak jsem to zkoušel ale něco je špatně, funkce hlásí chybu. 
  (cond
    ((> y 0) (setq text (strcat "+" (rtos y 2 2) "0")))
    ((= y 0) (setq text "0,000"))
    ((< y 0) (setq text (strcat (rtos y 2 2) "0"))
  ) ; cond
uploads/20110104_181738_kotvysk.lsp


Upravil PepaR - 04.led.2011 v 18:20]]> Tue, 04 Jan 2011 18:19:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58122&title=zaokrouhleni#58122 <![CDATA[Zaokrouhlení : Poždavek jednoho kolegy, který...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58121&title=zaokrouhleni#58121 Autor: PepaR
Předmět: 12039
Zasláno: 04.led.2011 v 18:13

Poždavek jednoho kolegy, který asi neumí kreslit přesně ;(.]]> Tue, 04 Jan 2011 18:13:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58121&title=zaokrouhleni#58121 <![CDATA[Zaokrouhlení : Zdravím, nedá mi to se nezeptat,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58119&title=zaokrouhleni#58119 Autor: Radim Cech
Předmět: 12039
Zasláno: 04.led.2011 v 17:55

Zdravím, nedá mi to se nezeptat, co to je zase "úlet".
Proč se to má zaokrouhlovat na setiny, když to potřebujete zobrazit na tisíciny? To je "logika" jak u poslanců.
]]> Tue, 04 Jan 2011 17:55:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58119&title=zaokrouhleni#58119 <![CDATA[Zaokrouhlení : Tak to zaokrouhlete na setiny...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58118&title=zaokrouhleni#58118 Autor: Vladimír Michl
Předmět: 12039
Zasláno: 04.led.2011 v 17:46

Tak to zaokrouhlete na setiny a připište "0":
 
(strcat (rtos 1.232 2 2) "0")
]]> Tue, 04 Jan 2011 17:46:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58118&title=zaokrouhleni#58118 <![CDATA[Zaokrouhlení : Na to jsem taky myslel, ale to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58116&title=zaokrouhleni#58116 Autor: PepaR
Předmět: 12039
Zasláno: 04.led.2011 v 16:30

Na to jsem taky myslel, ale to není řešením, protože potřebuji zobrazit číslo na tisíciny (tři desetnná místa), ale zaokrouhlení potřebuju na setiny.
 
Příklad:
  • 1,232 = 1,230 
  • 1,235 = 1,240
]]> Tue, 04 Jan 2011 16:30:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=12039&PID=58116&title=zaokrouhleni#58116