ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoSinusoida-zdroják
 Odpovědět Odpovědět Stránka  12> archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Neuthron Zobrazit panel
Nováček
Nováček

Přihlášen: 19.kvě.2006
Stav: Offline
Bodů: 18
 Přímý odkaz na tuto zprávu Téma: Sinusoida-zdroják
    Zasláno: 20.kvě.2006 v 00:22
pánové asi sem debil ale jaksi bych to potřeboval vysvětlit jednodušším zpusoben kde co zadám a tak hrozně rad bych chtěl vědět jak podle nějakého mustru sestrojím jakoukoli fci podle Vás nevím ani jak začít .... šlo by to nějak napsat?
AutoCAD 2005
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 12:49

< id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">
Připojené souboryLSP2006-04-03_124916_hotovo.LSP

podíval by jste se...doufám že to je bez chyb..
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 12:22
Mno to já jsem to chtěl  mít jen jako náznak...ale uznávám že takhle je to mnohem lepší < id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 12:14

Ty osy jsem Vám taky opravil - když si zadáváte měřítka a počty cyklů, je přece hloupost mít pevnou délku os.

(defun C:sinusoidaa()
  (setq bod(getpoint"\nZadejte pocatecni bod sinusoidy:"))
  (setq pocet (getreal"\nZadejte pocet cyklu:"))
  (setq a (getreal"\nZadejte číslo A: A*sin(B)"))
  (setq b (getreal"\nZadejte číslo B: A*sin(B)"))
  (setq y1 (cadr bod))
  (setq x1 (car bod))
  (setq int (/(* pocet 2. PI) 300.))
  (setq x 0)
  (command"_COLOR" "_BLUE")
  (command "_line")
    (repeat 300
      (setq y  (sin  x ))
          (command (list (+ x1 (* b x)) (+ (* a y) y1)))
          (setq x (+ x int))
        );of repeat
     (command "")
 (command "_COLOR" "_RED")
 (command "_line" (list (car bod) (cadr bod)) (list (car bod)  (+(cadr bod) (* 1.1 a))) "")
 (command "_line" (list (+(car bod) (* pocet 2. PI b)) (cadr bod)) (list (car bod)(cadr bod)) "")
 (command "_REGEN")
    )
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 12:08
eh tedka si nejsem jistej jestli Vás chápu...myslim to takhle  mám třeba funkci    3sin(2x) pro fci sin(x) jsou souřadnice  y=sin(x),x=x1+int
            takže pro fci 3sin(2x)   by to mělo bejt y=(*(sin(* 2 x))3)

                                                                     < id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/"> < id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">

Upravil Honzicek - 03.dub.2006 v 12:09
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 11:58

Je to blbě :-(

Jestli si chcete zadat měřítka v ose x a y, pak PŘECE NEMŮŽETE NÁSOBIT MĚŘÍTKEM x, ale až souřadnici !!!

 
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 11:03
OK,děkuji,nechtěl byste ten program vyzkoušet...jen tak jestli tam někde není nějaká blbost?Jen tak letem světem jestli Vás to nezdržuje

< id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 11:00
tak si tam ještě dejte na začátek výzev \n - ať se vám to necpe do jednoho řádku.
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 10:56
opravdu mi top pomohlo  kapku jsem to pozměnil a jsem spokojenej..
(defun C:sinusoidaa()
  (setq bod(getpoint"Zadejte pocatecni bod sinusoidy:"))
  (setq pocet (getreal"Zadejte pocet cyklu:"))
  (setq a (getreal"Zadejte číslo A: A*sin(B)"))
  (setq b (getreal"Zadejte číslo B: A*sin(B)"))
  (setq y1 (cadr bod))
  (setq x1 (car bod))
  (setq int (/(* pocet 2. PI) 300.))
  (setq x 0)
  (command"_COLOR" "_BLUE")
  (command "_line")
    (repeat 300
      (setq y (* (sin (* x b))a))
          (command (list (+ x x1) (+ y y1)))
          (setq x (+ x int))
        );of repeat
     (command "")
 (command "_COLOR" "_RED")
 (command "_line" (list (car bod) (cadr bod)) (list (car bod)(+(cadr bod) 20.)) "")
 (command "_line" (list (+(car bod) 50.) (cadr bod)) (list (car bod)(cadr bod)) "")
 (command "_REGEN")
    )

< id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 10:37
No, vzhledem k tomu, že se jedná o školní úlohu, tak si nejsem až tak jist, jestli jsem Vám pomohl. Snad si to aspoň prohlídnete a podíváte se, proč Vám to předtím nechodilo.
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 09:37
Děkuji mnohokrát opravdu moc jste mi pomohl!

< id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 09:12

To máte těžký, pane kolego. Pomalu co řádek, to chyba. Kreslí tohle:

(defun C:s()
  (setq bod(getpoint"Zadejte pocatecni bod sinusoidy:"))
  (setq pocet (getreal"Zadejte pocet cyklu:"))
  (setq y1 (cadr bod))
  (setq x1 (car bod))
  (setq int (/(* pocet 2. PI) 100.))
  (setq x 0)
  (command "_line")
    (repeat 100
      (setq y (sin x))
          (command (list (+ x x1) (+ y y1)))
          (setq x (+ x int))
        );of repeat
     (command "")
 (command "_REGEN")
    )
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 08:32
tak bohužel ani tím to není...,
není možný že je to nějak celé blbě?U mě bych se tomu ani nedivil..,nevíte jak vypnout ty hlášky co sem hází Kerio? < id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 08:27

Asi bude taky problém, že jste použil pro svoji funkci jméno sin. (A pak ji voléte jako standardní)
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 08:21
na to už jsem taky přišel ale nic to neřeší mám chybu  < id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/"> na vstupu ...závorky jsou v pořádku..
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 08:15

Aniz bych to nejak hloubeji studoval list(x y) v lispu neni nic.

(list x y)
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 08:11
já se z toho zbláznim těžší křivky  nějak sesmolim a tuhle ne...
moc to teda nechápu myslel jsem že by to mohlo bejt nějak takhle:
defun C:sin()
  (setq bod(getpoint"Zadejte pocatecni bod sinusoidy:"))
  (setq pocet (getreal"Zadejte pocet cyklu:"))
  (setq y (cadr bod))
  (setq x (car bod))
  (setq int (/(* pocet 2. PI) 100.))
  (setq y (sin(x))
  (setq x (+ x int))
  (setq a int)     
  (command "_line" list(x y))
    (repeat 100
      (setq a int)
      (setq y (sin(x))
          (setq x (+ x a))
          (command "_line" "@" (list x y)"")
        );of repeat
 (command "_REGEN")
    );of function

ale nefunguje to...
< id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/">
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.dub.2006 v 06:54

Ten prikaz pro bod asi pochazi z me upravy lispu pro epicykloidu. Snazil jsem se jen rozchodit zaslany kod a ne to cele predelat. V nem se v cyklu vzdy vypocitaly souradnice a pak bylo neco jako (command "_Line" "@" (list x y)). To celkem chodilo, akorat na zacatku to mělo "vocasek", protoze chybel ten prvni bod.
  Vase reseni je nesporne cistci a elegantnejsi.
Vítězslav Seiner

Chrudim
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 2022:Jak nakreslit v AutoCADu parabolu nebo jinou matematickou křivku?
Tip 9742:Jak vložit XY souřadnice z Excelu jako vrcholy křivky v AutoCADu?


 Odpovědět Odpovědět Stránka  12> archiv

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,215 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img