Program gratuit de compensare 2D X Y

Creat de goguletz, Noi 23, 2008, 01:43 PM

« precedentul - următorul »
Tipărire
Mergi Jos Pagini1
User actions

goguletz

Noi 23, 2008, 01:43 PM
De curand am terminat, in mare parte, programul de compensare 2D a unei retele geodezice constransa pe puncte de coordonate cunoscute.

Programul se gaseste la adresa: http://www.topo-online.ro/p_numerice/compensare_2D/program.php" target="_blank">http://www.topo-online.ro/p_numerice/co ... rogram.php

Descrierea atat a metodelor de calcul, cat si a modului de utilizare a programului poate fi gasita la: http://www.topo-online.ro/p_numerice/compensare_2D/descriere.html" target="_blank">http://www.topo-online.ro/p_numerice/co ... riere.html

Am nevoie de ajutorul vostru, al tuturor, pentru a testa acest program cu toate soft-urile de compensare cunoscute.

Multumesc anticipat!

TopRo

#1
Ian 28, 2009, 12:11 PM
Arata-mi si mie te rog un model de fisier de intrare pt programul tau

goguletz

#2
Ian 28, 2009, 10:44 PM
Sorry, my fault! Nu prea am mai avut timp sa lucrez la site (mai exact la sectiunea exemplu).

Uite 3 exemple:

1. Compensarea unei retele de triangulatie.

COORD
Capul Dealului,415209.082,623780.667,F
Dambul Mare,421454.562,628434.384,F
Dl. Tirului,415361.131,629711.313,F
Ocna Mare,412348.144,625869.981,F
Ocna Mica,411580.323,627999.432,F
PG01,409380.880,629556.610,P
PG02,412134.240,629546.680,P
PG03,410105.430,627276.330,P
PG04,412605.300,626982.220,P
PG05,411539.230,624166.100,P
PG06,413609.880,624486.320,P
PG07,416689.600,623026.270,P
PG08,419185.250,625220.290,P
PG09,416755.770,626191.750,P
PG10,414696.720,626558.720,P
PG11,414845.390,628400.580,P
PG12,417457.150,629303.180,P
*ENDCOORD

DIR,10
ST,Dambul Mare
PG08,147.00066                              
PG09,114.48720
PG12,72.51784
*ENDST

ST,Dl. Tirului               
PG12,44.50295
PG11,332.88064
Ocna Mica,283.81408
PG02,259.99067
*ENDST

ST,Ocna Mica
PG01,399.23622
PG02,316.57490
Dl. Tirului,265.52515
PG11,246.24400
PG04,188.70248
PG03,67.47721
*ENDST

ST,Ocna Mare
PG03,203.10650
PG04,124.29585
PG10,56.92161
PG06,385.82981
PG05,310.54214
*ENDST

ST,Capul Dealului
PG05,98.37345
PG06,78.58176
PG09,368.72738
PG08,327.15278
PG07,275.03626
*ENDST

ST,PG01
PG02,87.25104
Ocna Mica,48.26163
PG03,7.06629
*ENDST

ST,PG02
Dl. Tirului,59.99891
PG11,31.28833
Ocna Mica,334.86187
PG01,256.52159
*ENDST

ST,PG03
PG01,69.77026
Ocna Mica,379.20888
PG04,342.73083
Ocna Mare,314.53478
PG05,277.69211
*ENDST

ST,PG04
Ocna Mica,258.16344
PG02,219.48781
PG11,143.85258
PG10,95.20063
Ocna Mare,393.45515
PG03,300.46141
*ENDST

ST,PG05
PG03,362.73209
Ocna Mare,307.01290
PG06,245.00173
Capul Dealului,228.57251
PG07,221.36834
*ENDST

ST,PG06
PG05,263.34417
Ocna Mare,200.65084
PG10,122.83037
PG09,85.20742
Capul Dealului,27.12192
*ENDST

ST,PG07
PG05,240.31285
Capul Dealului,224.17593
PG09,152.84247
PG08,100.08959
*ENDST

ST,PG08
PG07,21.10976
Capul Dealului,397.31527
PG09,350.98038
Dambul Mare,236.05843
*ENDST

ST,PG10
Ocna Mare,185.06584
PG04,154.18924
PG11,61.77802
PG12,16.72151
PG09,355.67872
PG06,236.15604
*ENDST

ST,PG09
Dambul Mare,371.14749
PG08,318.58096
PG07,241.46967
Capul Dealului,206.48549
PG06,174.42803
PG10,131.56801
PG11,88.19479
PG12,28.68718
*ENDST

ST,PG11
Dl. Tirului.95.18542
PG12,40.22787
PG09,364.44287
PG10,313.92270
PG04,254.98216
Ocna Mica,226.83220
PG02,193.58531
*ENDST

ST,PG12
Dambul Mare,296.92572
PG08,236.03654
PG09,196.43777
PG10,160.36284
PG11,131.73161
Dl. Tirului,98.30428
*ENDST
*ENDDIR


2. Compensarea unei retele de trilateratie.

COORD
Capul Dealului,415209.082,623780.667,F
Dambul Mare,421454.562,628434.384,F
Dl. Tirului,415361.131,629711.313,F
Ocna Mare,412348.144,625869.981,F
Ocna Mica,411580.323,627999.432,F
PG01,409380.880,629556.610,P
PG02,412134.240,629546.680,P
PG03,410105.430,627276.330,P
PG04,412605.300,626982.220,P
PG05,411539.230,624166.100,P
PG06,413609.880,624486.320,P
PG07,416689.600,623026.270,P
PG08,419185.250,625220.290,P
PG09,416755.770,626191.750,P
PG10,414696.720,626558.720,P
PG11,414845.390,628400.580,P
PG12,417457.150,629303.180,P
*ENDCOORD


DIST,2,1.5
Dambul Mare,PG08,3934.498
Dambul Mare,PG09,5206.601
Dambul Mare,PG12,4090.850
Dl. Tirului,PG12,2135.317
Dl. Tirului,PG11,1408.499
Dl. Tirului,PG02,3230.973
Ocna Mica,PG01,2694.788
Ocna Mica,PG02,1643.361
Ocna Mica,PG11,3289.509
Ocna Mica,PG04,1444.005
Ocna Mica,PG03,1642.550
Ocna Mare,PG03,2647.093
Ocna Mare,PG04,1141.541
Ocna Mare,PG10,2447.407
Ocna Mare,PG06,1872.502
Ocna Mare,PG05,1886.079
Capul Dealului,PG05,3689.901
Capul Dealului,PG06,1747.910
Capul Dealului,PG09,2864.434
Capul Dealului,PG08,4228.609
Capul Dealului,PG07,1661.583
PG01,PG02,2753.280
PG01,Ocna Mica,2694.783
PG01,PG03,2392.545
PG02,Dl. Tirului,3230.975
PG02,PG11,2943.337
PG02,Ocna Mica,1643.359
PG02,PG01,2753.283
PG03,PG01,2392.540
PG03,Ocna Mica,1642.560
PG03,PG04,2517.024
PG03,Ocna Mare,2647.089
PG03,PG05,3424.697
PG04,Ocna Mica,1444.007
PG04,PG02,2607.281
PG04,PG11,2651.272
PG04,PG10,2133.792
PG04,Ocna Mare,1141.540
PG04,PG03,2517.025
PG05,PG03,3424.683
PG05,Ocna Mare,1886.084
PG05,PG06,2095.192
PG05,Capul Dealului,3689.908
PG05,PG07,5274.803
PG06,PG05,2095.192
PG06,Ocna Mare,1872.501
PG06,PG10,2340.025
PG06,PG09,3578.295
PG06,Capul Dealului,1747.903
PG07,Capul Dealului,1661.587
PG07,PG05,5274.801
PG07,PG09,3166.060
PG07,PG08,3322.835
PG08,PG07,3322.835
PG08,Capul Dealului,4228.617
PG08,PG09,2616.411
PG08,Dambul Mare,3934.493
PG09,Dambul Mare,5206.591
PG09,PG08,2616.417
PG09,PG07,3166.068
PG09,Capul Dealului,2864.430
PG09,PG06,3578.300
PG09,PG10,2091.426
PG09,PG11,2920.263
PG09,PG12,3189.385
PG10,Ocna Mare,2447.408
PG10,PG04,2133.796
PG10,PG11,1847.791
PG10,PG12,3892.429
PG10,PG09,2091.427
PG10,PG06,2340.019
PG11,Dl. Tirului,1408.494
PG11,PG12,2763.230
PG11,PG09,2920.258
PG11,PG10,1847.792
PG11,PG04,2651.277
PG11,Ocna Mica,3289.512
PG11,PG02,2943.352
PG12,Dambul Mare,4090.850
PG12,PG08,4433.384
PG12,PG09,3189.393
PG12,PG10,3892.420
PG12,PG11,2763.238
PG12,Dl. Tirului,2135.306
*ENDDIST


3. Compensarea unei retele de triangulatie-trilateratie.

COORD
Capul Dealului,415209.082,623780.667,F
Dambul Mare,421454.562,628434.384,F
Dl. Tirului,415361.131,629711.313,F
Ocna Mare,412348.144,625869.981,F
Ocna Mica,411580.323,627999.432,F
PG01,409380.880,629556.610,P
PG02,412134.240,629546.680,P
PG03,410105.430,627276.330,P
PG04,412605.300,626982.220,P
PG05,411539.230,624166.100,P
PG06,413609.880,624486.320,P
PG07,416689.600,623026.270,P
PG08,419185.250,625220.290,P
PG09,416755.770,626191.750,P
PG10,414696.720,626558.720,P
PG11,414845.390,628400.580,P
PG12,417457.150,629303.180,P
*ENDCOORD

DIR,10
ST,Dambul Mare
PG08,147.00066                              
PG09,114.48720
PG12,72.51784
*ENDST

ST,Dl. Tirului               
PG12,44.50295
PG11,332.88064
Ocna Mica,283.81408
PG02,259.99067
*ENDST

ST,Ocna Mica
PG01,399.23622
PG02,316.57490
Dl. Tirului,265.52515
PG11,246.24400
PG04,188.70248
PG03,67.47721
*ENDST

ST,Ocna Mare
PG03,203.10650
PG04,124.29585
PG10,56.92161
PG06,385.82981
PG05,310.54214
*ENDST

ST,Capul Dealului
PG05,98.37345
PG06,78.58176
PG09,368.72738
PG08,327.15278
PG07,275.03626
*ENDST

ST,PG01
PG02,87.25104
Ocna Mica,48.26163
PG03,7.06629
*ENDST

ST,PG02
Dl. Tirului,59.99891
PG11,31.28833
Ocna Mica,334.86187
PG01,256.52159
*ENDST

ST,PG03
PG01,69.77026
Ocna Mica,379.20888
PG04,342.73083
Ocna Mare,314.53478
PG05,277.69211
*ENDST

ST,PG04
Ocna Mica,258.16344
PG02,219.48781
PG11,143.85258
PG10,95.20063
Ocna Mare,393.45515
PG03,300.46141
*ENDST

ST,PG05
PG03,362.73209
Ocna Mare,307.01290
PG06,245.00173
Capul Dealului,228.57251
PG07,221.36834
*ENDST

ST,PG06
PG05,263.34417
Ocna Mare,200.65084
PG10,122.83037
PG09,85.20742
Capul Dealului,27.12192
*ENDST

ST,PG07
PG05,240.31285
Capul Dealului,224.17593
PG09,152.84247
PG08,100.08959
*ENDST

ST,PG08
PG07,21.10976
Capul Dealului,397.31527
PG09,350.98038
Dambul Mare,236.05843
*ENDST

ST,PG10
Ocna Mare,185.06584
PG04,154.18924
PG11,61.77802
PG12,16.72151
PG09,355.67872
PG06,236.15604
*ENDST

ST,PG09
Dambul Mare,371.14749
PG08,318.58096
PG07,241.46967
Capul Dealului,206.48549
PG06,174.42803
PG10,131.56801
PG11,88.19479
PG12,28.68718
*ENDST

ST,PG11
Dl. Tirului.95.18542
PG12,40.22787
PG09,364.44287
PG10,313.92270
PG04,254.98216
Ocna Mica,226.83220
PG02,193.58531
*ENDST

ST,PG12
Dambul Mare,296.92572
PG08,236.03654
PG09,196.43777
PG10,160.36284
PG11,131.73161
Dl. Tirului,98.30428
*ENDST
*ENDDIR

DIST,2,1.5
Dambul Mare,PG08,3934.498
Dambul Mare,PG09,5206.601
Dambul Mare,PG12,4090.850
Dl. Tirului,PG12,2135.317
Dl. Tirului,PG11,1408.499
Dl. Tirului,PG02,3230.973
Ocna Mica,PG01,2694.788
Ocna Mica,PG02,1643.361
Ocna Mica,PG11,3289.509
Ocna Mica,PG04,1444.005
Ocna Mica,PG03,1642.550
Ocna Mare,PG03,2647.093
Ocna Mare,PG04,1141.541
Ocna Mare,PG10,2447.407
Ocna Mare,PG06,1872.502
Ocna Mare,PG05,1886.079
Capul Dealului,PG05,3689.901
Capul Dealului,PG06,1747.910
Capul Dealului,PG09,2864.434
Capul Dealului,PG08,4228.609
Capul Dealului,PG07,1661.583
PG01,PG02,2753.280
PG01,Ocna Mica,2694.783
PG01,PG03,2392.545
PG02,Dl. Tirului,3230.975
PG02,PG11,2943.337
PG02,Ocna Mica,1643.359
PG02,PG01,2753.283
PG03,PG01,2392.540
PG03,Ocna Mica,1642.560
PG03,PG04,2517.024
PG03,Ocna Mare,2647.089
PG03,PG05,3424.697
PG04,Ocna Mica,1444.007
PG04,PG02,2607.281
PG04,PG11,2651.272
PG04,PG10,2133.792
PG04,Ocna Mare,1141.540
PG04,PG03,2517.025
PG05,PG03,3424.683
PG05,Ocna Mare,1886.084
PG05,PG06,2095.192
PG05,Capul Dealului,3689.908
PG05,PG07,5274.803
PG06,PG05,2095.192
PG06,Ocna Mare,1872.501
PG06,PG10,2340.025
PG06,PG09,3578.295
PG06,Capul Dealului,1747.903
PG07,Capul Dealului,1661.587
PG07,PG05,5274.801
PG07,PG09,3166.060
PG07,PG08,3322.835
PG08,PG07,3322.835
PG08,Capul Dealului,4228.617
PG08,PG09,2616.411
PG08,Dambul Mare,3934.493
PG09,Dambul Mare,5206.591
PG09,PG08,2616.417
PG09,PG07,3166.068
PG09,Capul Dealului,2864.430
PG09,PG06,3578.300
PG09,PG10,2091.426
PG09,PG11,2920.263
PG09,PG12,3189.385
PG10,Ocna Mare,2447.408
PG10,PG04,2133.796
PG10,PG11,1847.791
PG10,PG12,3892.429
PG10,PG09,2091.427
PG10,PG06,2340.019
PG11,Dl. Tirului,1408.494
PG11,PG12,2763.230
PG11,PG09,2920.258
PG11,PG10,1847.792
PG11,PG04,2651.277
PG11,Ocna Mica,3289.512
PG11,PG02,2943.352
PG12,Dambul Mare,4090.850
PG12,PG08,4433.384
PG12,PG09,3189.393
PG12,PG10,3892.420
PG12,PG11,2763.238
PG12,Dl. Tirului,2135.306
*ENDDIST



Multa, multa bafta!

cristea

#3
Feb 11, 2009, 10:35 PM
ba baiete lasa retelele astea ca nu noi sau tu tre sa le facem.Aia la care platim atatia bani :x

goguletz

#4
Feb 12, 2009, 12:41 AM
No comment.

Probabil ai avut o zi mai putin buna.

Multa bafta!

John Doe

#5
Feb 12, 2009, 11:01 AM
goguletz:
Si eu ma tin de ....chestii din astea, dar la scara mai mica.
Ca sa nu muncim amândoi la aceleasi treburi cumva si pentru idei noi (nu ca n-as avea si eu, dar îmi vin prea multe si trebuie sintetizate cumva), uite la ce lucrez eu:
Vreau sa fac un Lisp + DCL care sa-mi faca toate formularele necesare la o înscriere in CF (prima inscriere) - asta am nevoie acum. Lucrez in AutoCAD, pe mai multe layout-uri, fiecare cu numele formularului. Munca e undeva la jumatate, se mai pot schimba multe. Deocamdata arata ca mai jos. Spune-mi ce crezi, vreo sugestie... Daca ma împotmolesc pe undeva, te pot întreba despre Lisp/DCL/VBA ?


580/364px 29.7KB

goguletz

#6
Feb 12, 2009, 12:40 PM
doru2:

Mersi frumos pentru incurajare. Cand am pornit pe acest drum am stiut ce ma asteapta, asa ca nu ma surprind astfel de interventii.


John Doe:

De curand am inceput sa cochetez si eu cu VBA, dar inca n-am ajuns la un asemenea nivel incat sa pot da sfaturi. In ceea ce priveste programele legate de cadastru ......... prefer sa nu ma bag in asa ceva; am incercat dar mi-am dat seama ca este o munca un pic in zadar. Tot respectul pentru ceea ce vrei sa faci, numai ca ....... daca e s-o luam un pic matematic sunt mai multe necunoscute decat ecuatii -> cadastrul este intr-o continua miscare, si in plus comunicarea dintre oficiile de cadastru si autorizati este aproape inexistenta.

Daca ai nevoie de ajutor sau de vreo idee iti sugerez sa iei legatura cu Morosanu Bogdan de pe http://www.noitopografii.ro" target="_blank">www.noitopografii.ro.

Multa bafta!

John Doe

#7
Feb 12, 2009, 02:22 PM
Cred ca am iesit din topic... ultima iesita, pentru goguletz:
Formularele pe care vreau sa le "automatizez" sunt planul de incadrare in zona, anexele 1, 2 si 5, calculul suprafetelor, PAD-ul si sper ca si tabelul de miscare parcelara. Datele le introduc din casete DCL, iar mai departe... sa lucreze Lispul. Asta fiindca firma are f. multe intabulari de facut, relativ asemanatoare. Iar necunoscute sunt, dar daca esti perseverent tot le afli pana la urma.
O sa-l caut pe dl. Morosanu, cum ai spus.

Despre compensarea retelelor:
Cand am nevoie, lucrez cu total.exe , sub DOS. Merge bine daca esti atent ce faci, dar nu-ti compenseaza automat statiile si radiatele. Nu stiu cand o sa am timp, dar as fi curios sa compensez o retea cu programul de care spui tu si cu cel folosit de mine, sa vad ce iese. Si sa-ti spun, normal.

Bafta iti doresc si eu, goguletz !

advex

#8
Feb 13, 2009, 11:49 AM
John Doe:
Ai grija la cat de mult efort merita sa depui la intocmirea formularelor si la automatizarea dosarului. Nu trece mult timp si se lanseaza noi instructiuni, apar alte cerinte pentru planuri si tabele minunate...

John Doe

#9
Feb 13, 2009, 01:39 PM
advex:
Da ? Misto... Sa le modifice din partea mea; sper sa fie mai bune ca astea.
Oricum, daca eu am scris aplicatiile sursa, nu ar trebui sa fie foarte greu de modificat, doar stiu ce am facut pe-acolo.

goguletz:
L-am rugat ceva pe E-mail pe dl. Morosanu; mi-a raspuns a doua zi, si a meritat. Mersi pentru sfat.

Marian

#10
Feb 13, 2009, 04:34 PM
John Doe:
Eu folosesc Toposys sub DOS luat cu licenta de la d-l Marton prin 1998. Am vrut sa iau sub Windows, dar era sub orice critica. Asa ca am un emulator de DOS cu care accesez Toposys. E f. stabil, controlabil, usor de inteles. Am avut si Sipreg de la dl. prof. Savulescu, dar se pare ca nu era definitivat (am inteles ca intre timp a cam rezolvat problemele) Asa ca ramin la anticul meu Toposys sub DOS.

John Doe

#11
Feb 13, 2009, 04:41 PM
De acord cu tine, Marian. Insa pentru situatia mea oarecum particulara, cred ca va merita sa fac ce ziceam. O sa vad la sfârsit. Stii, cea mai nobila si amara metoda de a învata ceva este pe propria piele, si am impresia ca asta fac eu.
Tipărire
Mergi Sus Pagini1
User actions