Vektorový graf/sieťový Vyřešeno

[arasid]

Dobrý deň,
rád by som sa spýtal, či by niekto nemal nápad, ako vyriešiť v excely jeden graf. Potreboval by som kruhový sieťový graf s mierkou 360stupňov. A do neho kresliť spojnicou body so začiatkom a koncom v 0.
Body majú súradnice v stupňoch napr. 319st. a dĺžke čiary ktorá by mala do bodu viesť napr.0,73mm. Ak by som teda začal kresliť od 0, tak prvá čiara by mala smerovať k 319st. a mala by aspoň približne predstavovať dĺžku 0,73 (teda vzdialenosť od 0).
Následne by z tohoto bodu mala ďalšia čiara/spojnica smerovať do daľšieho bodu v smere na 136st. s dĺžkou 1,22mm. Uhly sú prepočítané zo vzdialenosti, takže pomer dĺžok riešiť netreba.

Problém mám v tom, že ak si vytvorím os umožňujúcu 360st zamernie, nemôžem spájať body v poradí aké potrebujem, teda z 319 do 136 a podobne. Ide to len v poradí od 0 do 360.

Nemali by ste nápad, ako to zoradiť tak ako potrebujem, teda aby boli body spojené v poradí v priloženej zelenej tabuľke no ostala daná mierka?

Viď príloha..

Ďakujem

geo.xlsx

(244.15 KiB) Staženo 15 x

[Reklama]

[guest]

Moc to nechápu, takže chcete spojovat vrcholy úseček ve vámi zvoleném pořadí?

[arasid]

neviem či nechcem privela od excelu..

Napr. ako na priloženom obrázku: 1, by smerovala od nuly do uhla 315 2, by šla od konca 1 smerom do uhla 182 3, by šla z konca 2 do uhla 275. (samozrejme každá by mala svoju vlastnú dĺžku,preto by okraj do ktorého uhla smerujú nedosiahli, mali by len ten smer).

No asi by som potreboval radu či je to vôbec možné takto spraviť. Napr. prepočtom súradníc, alebo sa na to vykašlať.

Ďakujem

[guest]

Technicky zpracovatelné to myslím si je.
Matematicky to bude trošku počítání plus okrajové podmínky (délky úsečky nemusí dosáhnout k danému úhlu nebo být někde v nekonečnu, přesun o úhel ve směru a proti směru ručiček). Holt si nějaké věty o trojúhelníku budete muset najít, případně se podívat po nějaké teorii vektorů a polárních souřadnicích.

[arasid]

ok už to mám: coordináty: http://stackoverflow.com/questions/1295 ... nce-vector

a nakoniec makro na čiarky:
Set myDocument = Worksheets("Hárok1")
With myDocument.Shapes.AddLine(start_x, start_y, end_x, end_y).Line
.ForeColor.RGB = RGB(50, 0, 128)

End With

obrázok vycentrovať, odhadnúť súradnice na 0,0 a už len odpočítavať :)