Ada

[Ada][Warborg] un wargame avec GtkAda

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 Page Suivante Page Précédente Bas de page
Auteur	Sujet : [Ada][Warborg] un wargame avec GtkAda

Profil supprimé

Reprise du message précédent :
Bonjour, Enjoy !

Un nouvelle journée nous amène à une nouvelle production, vous trouverez sur Sourceforge la dernière version de Warborg ici : https://sourceforge.net/projects/warborg/.

Je n'ai pas pu compiler sur Gnu/Linux donc, vous avez les source qui compile avec Gtkada 2.14.

J'ai introduit la chose différemment avec Joshua, je vous laisse découvrir.
J'ai aussi augmenter la capacité en missiles ennemis recevable.
J'ai modifier la procédure d'acquisition des ennemis pour que l'ensemble des missiles reçus ne soit pas ciblé uniquement sur les premier loggé au serveur.
C'est mélangé quoi. Enfin toute la doc nécessaire à votre amusement dans le paquet Warborg_win_src+bin_2013-1.1.16a.zip

Registered Fritures :

Citation :

Wopr LOGON
Joshua introduction
Speach with Joshua
Select your Side
Placing you Wopr
Choose you defensive/attack strategy
Enterring Launch code to get alternative world
Reborg recall you while you are Win
Say Game Over else.

Good luck.

Message édité par Profil supprimé le 27-08-2013 à 16:07:12

Publicité

Profil supprimé

Bonjour, Je reviens ici avec une augmentation de version en 1.2.0b que j'ai compilé sur Gnu/Linux et sur Windows avec la bibliothèque gtkada-2.18.sur Gnu/Linux et 2.X je sais pas vvraiment c'est gtkada2010 je crois sur Windows.

Nouvelles Fritures, un principal : la comptabilisation des missiles détruit dans les points.
D'autres nouveautés vous attente pour un jeux jouable de 2 à 500 voir 1000.

Profil supprimé

Bonsoir, je recommence l'implémentation de Warborg.
Nouvelle vue nouvelle méthode, nouvelle fonctionnalité, et surtout nouveau code. Donc pages blanche à gogo.
Voici par quoi j'ai commencé.
A+

Code :

package Warborg is                                                                                       |package Warborg.Individu is
                                                                                                         |
   pragma Pure (Warborg);                                                                                |   type Individu_Type is tagged private;
                                                                                                         |
end Warborg;                                                                                             |   procedure Initialize(Individu : out Individu_Type'Class;
                                                                                                         |                        Logname  : in String;
                                                                                                         |                        Address  : in String);
                                                                                                         |
                                                                                                         |   function Address(Individu : in Individu_Type'Class) return String;
                                                                                                         |   function Logname(Individu : in Individu_Type'Class) return String;
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |   procedure Set_logname(Individu : in out Individu_Type'Class;
                                                                                                         |                         Logname  : in String);
                                                                                                         |   procedure Set_address(Individu : in out Individu_Type'Class;
                                                                                                         |                         Logname  : in String;
-UU-:----F1  warborg.ads    All (2,3)      (Ada)--22:58 1.59---------------------------------------------|                         Address  : in String);
package Warborg.I18n is                                                                                  |private
                                                                                                         |   type Individu_Type is tagged
   type Lang_Type is (En, Fr);                                                                           |      record
                                                                                                         |         Logname : access String;
end Warborg.I18n;                                                                                        |         Address : access String;
                                                                                                         |      end record;
                                                                                                         |
                                                                                                         |
                                                                                                         |end Warborg.Individu;
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |
-UU-:----F1  warborg-i18n.ads   All (1,0)      (Ada)--22:58 1.59-----------------------------------------|-UU-:----F1  warborg-individu.ads   All (1,0)      (Ada)--22:58 1.59--------------------------------------
with Gnat.Md5;                                                                                           |with Warborg.I18n;
use Gnat.Md5;                                                                                            |use Warborg.I18n;
package Warborg.Individu.User is                                                                         |package Warborg.Individu.User.Player is
                                                                                                         |
   type User_type is new individu_Type with Private;                                                     |   type Player_type is new User_Type with Private;
                                                                                                         |   procedure Initialize(Player : out Player_Type'Class;
   procedure Initialize(User   : out User_Type'Class;                                                    |                        Lang   : in Lang_Type);
                        Passwd : in Message_Digest);                                                     |   function Lang(Player : in Player_Type'Class) return Lang_Type;
                                                                                                         |   procedure Set_Lang(Player : in out Player_Type;
   function Passwd(User : in User_Type'Class) return Message_Digest;                                     |                      Lang : in Lang_Type);
                                                                                                         |private
   procedure Set_passwd(User : in out User_Type'Class;                                                   |   type Player_Type is new User_Type with
                        Passwd  : in Message_digest);                                                    |      record
private                                                                                                  |         Lang : Lang_Type;
   type User_Type is new Individu_Type with                                                              |      end record;
      record                                                                                             |
         Passwd : Message_Digest;                                                                        |end Warborg.Individu.User.Player;
      end record;                                                                                        |
                                                                                                         |-UU-:----F1  warborg-individu-user-player.ads   All (16,3)     (Ada)--22:58 1.59--------------------------
                                                                                                         |generic
end Warborg.Individu.User;                                                                               |   type Usr_Type private;
                                                                                                         |   with function Heuristic (Usr : in Usr_Type) return Float;
                                                                                                         |   with function Uniform (Usr : in Usr_Type) return Float;
                                                                                                         |package Warborg.Individu.User.Player.Game.Solver is
                                                                                                         |   type Self_Game is new Game_Class with private;
                                                                                                         |   type Option_Type is access function (Usr : in Usr_Type) return Usr_Type;
                                                                                                         |private
                                                                                                         |   type Self_Game is new Game_Type with
                                                                                                         |      record
                                                                                                         |
                                                                                                         |
                                                                                                         |end Warborg.Individu.User.Player.Game.Solver;
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |
                                                                                                         |

jovalise

Message édité par Profil supprimé le 04-09-2013 à 23:03:54

Profil supprimé

Voici ce que donne l'algo principal suivant l'idée ci-dessus.

Code :

with Warborg.I18n;
use Warborg.I18n;
 
with Warborg.Individu.User.Player.Game;
 
use  Warborg.Individu.User.Player.Game;
use Warborg.Individu.User.Player;
use Warborg.Individu.User;
use Warborg.Individu;
 
with Warborg.Wargames;
use Warborg.Wargames;
with Gnat.Md5;
 
with Ada.Text_Io;
use Ada;
 
package body Warborg.Joshua is                                      
      
   
   procedure New_Game is      
      Lang   : Lang_Type := Fr;
      Current_Player : Player_Type;
      Norad  : Wargame_Type;      
      Individu_Number : positive := 1;
   begin
      
      Norad.Initialize;
      for I in 1..10 loop
         Individu_Number := I;
         -- Add One Player.
         Individu_Type(Current_Player).Initialize("player" & Natural'Image(Individu_Number), "null address" );
         User_Type(Current_Player).Initialize(Gnat.Md5.Digest("" ));
         Current_Player.Initialize(Lang, Initial_points);                       
         Player_Add(Norad, Current_Player);                  
      end loop;
      
      while not Exhausted(Norad) loop
         Print(Norad);
         Text_Io.Put("Next player is " );
         warborg.Wargames.To_Play(Norad);        
      end loop;
      
   end New_Game;
      
end Warborg.Joshua;

Et voici le code sous-jacent :

Code :

procedure To_Play(Wargame : in out Wargame_Type) is
 
      Player : constant Player_Type := First_element(Wargame.Multi_Player.all);
      
      Save   : Wargame_Type := Wargame;
   begin                  
      declare
         package Wargame_Solver is new Warborg.Individu.User.Player.Game.Solver(Wargame_Type, Heuristic, Uniform, Warborg.Wargames.Initialize, Exhausted, Right_Options, Left_Options, Print);
         Joshua : Wargame_Solver.Self_Type;
         Joshua : Wargame_Solver.Self_Type;
      begin
         
         Text_Io.Put_line("player named : " & Individu.Logname(Individu_type(Player)) & ", play!" );                      
         Text_Io.Put_Line("Gains        : " & Float'Image(Wargame.Uniform(Save) - Wargame.Heuristic(Save)));
         Wargame.Points_Add(Wargame.Uniform(Save) - Wargame.Heuristic(Save), Player);
         Text_Io.Put_Line("Total_Points : " & Float'Image(Wargame.Total(Player)));                                       
 
         Wargame_Solver.Self_Play(Joshua, wargame);
         Wargame := Wargame_Solver.Usr(Joshua);                  
         Errno := System(To_C("clear" ));
         Chess.Jouer(Wargame.Echiquier);                 
         Text_Io.Put_Line("Gains        : " & Float'Image(Wargame.Uniform(Save) - Wargame.Heuristic(Save)));
         Wargame.Points_Add(Wargame.Uniform(Save) - Wargame.Heuristic(Save), Player);
         Text_Io.Put_Line("Total_Points : " & Float'Image(Wargame.Total(Player)));                                       
 
      end;
      
      Player_Vectors.Delete_First(Vector(Wargame.Multi_Player.all));
      if Wargame.Total(Player) >= 0.0 then
         Player_Vectors.Append(Vector(Wargame.Multi_Player.all), Player);
      end if;
      
      
      
      
      
      declare
         package Wargame_Solver is new Warborg.Individu.User.Player.Game.Solver(Wargame_Type, Heuristic, Uniform, Warborg.Wargames.Initialize, Exhausted, Left_Options, Right_Options, Print);
         Joshua : Wargame_Solver.Self_Type;
      begin
         Print(Wargame);
         Text_Io.Put_line("Computer play! " );
         
         
         
         Wargame_Solver.Self_Play(Joshua, wargame);
         Wargame := Wargame_Solver.Usr(Joshua);          
         Chess.Jouer(Wargame.Echiquier);         
      end;
      
   end To_Play;

Vous trouverez les source de la version 0.0.3a sur sourceforge.net dans le projet Warborg donc. WWWWWWWWWWWW

Ah, j'oubliais, j'ai un problème de fuite de mémoire encore.

Message édité par Profil supprimé le 05-09-2013 à 21:15:36

Profil supprimé

Bonjour, j'espère que tout le monde va bien, ou relativement bien.
Je viens voir si vous auriez un avis sur l'agencement de la prochaine version de Xborg, je programme client de Warborg,

Voici le nouveau screenshot, sur fond de terminal de connection.

Je trouve pas mal avec l'image de defcon en haut à gauche pour changer. j'hésite à mettre les spin button dans la même colonne.

Détail mais comme ça vous participez.

Profil supprimé

En attendant, je vous donne envie. C'est la même intro que la version 2013 à peut près.

:~/Warborg$ ./bin/WOPR localhost

logname : Manuel

Enter passwd
envoie commandeenvoie lognameenvoie SHA1attend responseVerify :

LOGON: Joshua
Greetings, Professor Falken.

Why we do have deleted your account Avril 22, 1970?
Sorry!

Shall we play a game?
Global Thermonuclear War
Wouldn't you prefer a good game of chess?
No, I prefer a Global Thermonuclear War!
Excellent...

United States Soviet Union
/----------\ /-----------\
/ \ / \
/ \ / \
/ \ / \
| | | ____|
| | | /
\_________________/ \_____________/

WHICH SIDE DO YOU WANT?

1. UNITED STATES
2. SOVIET UNION

PLEASE CHOOSE ONE: UNITED STATES
AWAITING FIRST STRIKE COMMAND
================================================================================
United States Soviet Union
/----------\ /-----------\
/ \ / \
/ \ / \
/ \ / \
| | | ____|
| | | /
\_________________/ \_____________/
You Joshua

PLEASE LIST PRIMARY TARGETS BY
CITY AND/OR COUNTY NAME:
Moscou

Profil supprimé

Warborg redeviens jouable à partir de la version 2014-3.0.2, mais subsiste une grosse partie de l'ancien code, certainement bourrée d'erreur. [:opus dei]
Je commence la journée alors, bonjour. Je vais comptabiliser la population touchée par les tir de missiles et en tester la possibilité d'affichage. [:urd]
J'hésite à faire un joueur virtuel pour pouvoir jouer tout seul ou à plusieurs contre 1 ou plusieurs contre plusieurs. [:canaille]
En fait va encore falloir, non pas tout ré- écrire mais remodeler en profondeur quand même. :bounce:
Par contre ça ne joue toujours pas ni au échecs ni au morpion.

Profil supprimé

Salutations,

Je donne une image archivée sur hfr-rehost, avec l'affichage de 5548 item de population.
J'ai donc compter les population à l'est et à l'ouest de Greenwich./.
Comme vous pouvez le constaté une bonne partie de petit carrés bleu correspondants se trouvent à l'eau, mais c'est pas grave. :whistle:

J'ai prix la source d'information sur la population chez geonames. Mais j'ai plus de 1000 erreurs de position de données.

Profil supprimé

Le final pour aujourd'hui, ça comptabilise les population, par contre ça deviens longuet.

J'ai changé d'image de fond pour coller d'avantage à la distribution GPS des population, même si j'ai mis l'image dans le bon sens, j'ai des population à l'eau.

Profil supprimé

Salutations,

J'ai encore changé l'image de fond, plus grande pour un plus grand intérêt du jeu, j'ai fixé les pourcentage d'offensive et la charge max des missile qui vont ensemble avec le facteur_charge.
Dispo, la version 3.0.6 Gnu/Linux et Windows.

Nouveau screenshot.
On doit pourvoir jouer à 100 maximum.

Publicité

Profil supprimé

Bonjour, malheureusement, la version finale n'est pas terminée.
Il manque une instruction côté seveur:

Code :

Launched_Missile_Attributes.Cible := To_Map_Coordonates(Launched_Missile_Attributes.Target);

Pas des moindre.

Profil supprimé

Bonjour,

Je suis passé à la version 3.0.8 mais dans cette version, il faut fixer le facteur de charge dans warborg-database.adb pour jouer plus ou moins facilement.
La il doit être à 20, c'est un peu long, après 15 heurs de jeu à deux pas de perdant.

Si j'ai annoncé la version finale c'est surtout pour m'avancer sur l'année 2015 qui devrai sortir mi 2014.
L'objet de la ré- écriture n'est pas l'augmentation du soft mais un remodelage du code avant tout. Pour mieux faire.
Donc rendez vous au printemps prochain, à moins que je rencontre des problème au cas où je viendrais poster sur ce fil.
Merci pour vos retours, critiques et contributions entre temps.

Profil supprimé

Bonjour,

Si la fonction Is_In dans warborg-database.adb était implémentée on pourrait jouer à Warborg en mode manuel avec la version 2015 5.0.9a.
Je dit ça je dis rien.

antiseptiqueincolore

[:prab]

Profil supprimé

Et, t'es qui toi ? [:dawa_neowen]

Profil supprimé

Et voilà, avec la version 5.1.0 vous pouvez réellement rejouer.
Peut-être quelque ajustement des paramètres.
Aussi toute les fonctionnalité ne sont pas encore implémentées, mais c'est comme si vous jouiez sur une ancienne version mais en mode manuel.

Ma fonction Is_In :

Code :

function Is_in(Target : Gps_Coordonates_Type; item : Gps_Coordonates_Type; Distance : Float) return Boolean is
      
      
      function Longitude (X : Longitude_Coordonate_Type) return Decimal_Longitude_Type is
      begin
      return Decimal_Longitude_Type(X.Degr_Lon + (X.Minu_Lon / 60.0) + (X.Seco_Lon / 3600.0));
      end Longitude;
      
      function latitude (Y : Latitude_Coordonate_Type) return Decimal_Latitude_Type is
      begin
         return Decimal_Latitude_Type(Y.Degr_Lat + (Y.Minu_Lat / 60.0) + (Y.Seco_lat / 3600.0));
      end Latitude;
      
      
      --  Formule À Appliquer Pour Calculer Une Orthodromie : Cos P = (Sin LA . Sin LB) + (Cos LA . Cos LB . Cos G)
      
      LA, LB, G, P : Float;
         --    LA Correspond À La Latitude Du Point A.
         --    LB Correspond À La Latitude Du Point B.
         --    G Correspond À La Différence De Longitude Entre Le Point A Et Le Point B. 
      
 
   begin   
      La := Latitude(Target.Latitude);
      Lb := Latitude(Item.Latitude);      
      G  := abs(Longitude(Target.Longitude)) - abs (Longitude(item.Longitude));
      
      P := 60.0 * Arccos(((Sin(La) * Sin(Lb)) + (Cos(La) * Cos(LB) * Cos(G))));
      
      if  P - Distance > 0.0 then
         return False;
      else
         return True;
         Text_Io.Put_Line("TRUE" );
      end if;
   end Is_in;

Profil supprimé

Bonjour,
Dans la continuité des chose il était tout à fait normal que je mette en place un serveur Warborg version 2015 version 5.
Vous trouverez la suite ici

La version 5.1.2b sera bientôt disponible, mais vous pouvez déjà jouer en mode manuel à Warbog avec la version 5.
Le principe reste le même, sauf que ce n'est plus automatique.

Pour jouer, il faut d'abord compiler les sources avec Gnat et Gtkada 2012
Démarrez le programme
Allez dans le menu Network et choisissez login.
Entrez l'adresse du serveur votre nom d'utilisateur et votre mot de passe. Clickez Ok.
Allez dans le menu game et choisissez start.
Entrez les coordonée... Ainsi de suite.

Seulement l'algo Random est disponible pour la recherche de la cible.
Good luck

Profil supprimé

La version 5.2.2b tout automatisable est dans le bac.

Peut-être sera - t - il judicieux de rajouter un peu de delay dans les tache deamon si vous jouez sur le serveur.

Vous trouverez un serveur uniborg à cette adresse IP : http://88.189.147.62/

Profil supprimé

:hello: Hello evry body.

That's right ?

I'm going to play to Warborg 5.3.6a, because you are my friends, you are right to play with me.

Ok, good luck.

Spoiler :

Je plaisante.

Je suis près à jouer à Warborg en version 5.3.6a, parce que vous être mes amis vous être d'accord pour jouer avec moi.

Zero morts. Bonne chance.

Spoiler :

I'm kidding

Comme ça au cas ou ça intéresse quelqu'un, j'utilise les vecteurx Ada dans warborg-database. C'est plus keel.

Il y a deux algo de recherche, un linéaire, et random, exactement le contraire l'un de l'autre.

Il reste des anomalie, j'entreprendrais demain.

Donc, c'est écris du mieux que j'ai pu. Manque beaucoup de commentaires. j'aurais aimé faire autrement, mais j'ai pas su, ou j'ai eu la flemme, je voulais un résultat immédiat.
Pour la doc, ben comme d'hab, je sais pas par quoi commencer c'est trop fastidieux à regarder comme ça, je manque de motivation du coup.

Ah tien, je vais mettre le copyright, et la licence. A demain.

Message édité par Profil supprimé le 01-10-2013 à 03:06:30

Profil supprimé

Ah, ça a pas planté.

Profil supprimé

C'est long parfois à tester.

Faut que ça passe l'étape du game over.

Je vous tiens au courant ou comme d'hab sur sourceforge.

Profil supprimé

Depuis deux jours, je cherche les raison d'un dysfonctionnement.
En effet, lors de la perte d'un WOPR, la procedure Get_Wopr ne retourne pas.

Dans Warborg.Database :

Code :

--   Anciennement une entry.
     procedure Get_Wopr(Logname : in Logname_Type;
                         Wopr : in out Wopr_Type;
                         Success : out boolean) is
 
      begin
 
         Success := False;
         Text_Io.Put_Line("Getting wopr for " & Logname);
         if not Wopr_Manager.Is_Empty(Woprs) then
            for I in 1..Wopr_Manager.Last_Index(Woprs) loop
               declare
                  Local : Wopr_Type := Wopr_Manager.Element(Woprs, I);
               begin
                  Text_Io.Put_Line("Check wopr for " & local.Logname);
                  if local.logname = Logname then
                     Wopr := Local;
                     Success := True;
                     exit;
                  end if;
               end;
            end loop;
         end if;
      end Get_Wopr;

Dans Warborg.Uniborg :

Code :

--
              when Wopr_get =>
                  declare
                     Wopr : wopr_Type;
                     Success : Boolean := False;
                  begin
                     Text_Io.Put_Line("Getting wopr in database" );
                     Sgbd.Get_Wopr(Logname, Wopr, Success);
                     Boolean'Output(Channel, success);
                     if Success then
                        Text_Io.Put_Line("Getting wopr success" );
                        --Text_Io.Put_Line("after get in database  length :" & natural'Image(Natural (Nation_Manager.Last_Index(Wopr.Populations))));                                                               
                        Wopr_Type'Output(Channel, Wopr);
                        Text_Io.Put_Line("Wopr Sended" );
                     end if;
                  end;

L'appel dans Warborg.Norad :

Code :

--
             accept Get(Wopr : in out Wopr_Type; Success : out Boolean) do
 
 
               Command_type'Output(Channel, Wopr_get);
               Text_Io.Put_Line("Getting success" );
               Success := Boolean'Input(Channel);
               Text_Io.Put_Line("Getting success done" );
               if Success then
                  Text_Io.Put_Line("Getting WOPR success" );
                  Wopr := Wopr_Type'Input(Channel);
               end if;
            end Get;

Ici success n'est pas reçu lorsque le Wopr n'est pas dans le vecteur Woprs.

Profil supprimé

Nouvelle version que Warborg avec le listing des populations détruites.

Avec les bugs du commencement, il sont toujours là.

Profil supprimé

Bonjour,

J'ai décidément un problème avec cette fonction is_in :
J'ai fait une partie seul et j'ai décimé la population entière.

la fonction is_in :

Code :

function Is_in(Target : Gps_Coordonates_Type; item : Gps_Coordonates_Type; Distance : Float) return Boolean is
          
          
          function Longitude (X : Longitude_Coordonate_Type) return Decimal_Longitude_Type is
          begin
          return Decimal_Longitude_Type(X.Degr_Lon + (X.Minu_Lon / 60.0) + (X.Seco_Lon / 3600.0));
          end Longitude;
          
          function latitude (Y : Latitude_Coordonate_Type) return Decimal_Latitude_Type is
          begin
             return Decimal_Latitude_Type(Y.Degr_Lat + (Y.Minu_Lat / 60.0) + (Y.Seco_lat / 3600.0));
          end Latitude;
          
          
          --  Formule À Appliquer Pour Calculer Une Orthodromie : Cos P = (Sin LA . Sin LB) + (Cos LA . Cos LB . Cos G)
          
          LA, LB, G, P : Float;
             --    LA Correspond À La Latitude Du Point A.
             --    LB Correspond À La Latitude Du Point B.
             --    G Correspond À La Différence De Longitude Entre Le Point A Et Le Point B. 
          
     
       begin   
          La := Latitude(Target.Latitude);
          Lb := Latitude(Item.Latitude);      
          G  := abs(Longitude(Target.Longitude)) - abs (Longitude(item.Longitude));
          
          P := 60.0 * Arccos(((Sin(La) * Sin(Lb)) + (Cos(La) * Cos(LB) * Cos(G))));
          
          if  P - Distance > 0.0 then
             return False;
          else
             return True;
             Text_Io.Put_Line("TRUE" );
          end if;
       end Is_in;

Si quelqu'un sait la corriger merci.

Message cité 1 fois

Totoche17

Je t'ai déjà donné la réponse il y a 3 ans mais t'en as pas tenu compte manifestement

Totoche17 a écrit :

Les paramètres de toutes les fonctions trigo doivent être exprimées en rad.

Profil supprimé

Ben c'est inspiré d'un algo qu'est comme ça !

Totoche17

J'insiste pas, tu m'as l'air beaucoup plus calé que moi sur le sujet.

Profil supprimé

Ben ça resemble à ça :

Source : http://www.lacosmo.com/ortho/ortho.html

h3bus

Troll Inside

Ce que te dis Totoche c'est qu'il faut convertir en radian tes latitudes/longitudes.

---------------
sheep++

rufo

Pas me confondre avec Lycos!

+1 pour la conversion en radians des latitudes et longitudes.

Edit : https://fr.wikipedia.org/wiki/Ortho [...] rthodromie

Le truc, c'est que les fonctions trigo des langages de programmation veulent des radians en entrée et pas des degrés. Du coup, il ne faut pas appliquer ce qui est indiqué avec le coeff 60.0.

Message édité par rufo le 09-05-2016 à 17:14:59

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

Profil supprimé

Je comprends bien ce que vous dites, mais l'algo, c'est pour calculer à partir de mesures decimales.

D'ailleur je me suis donné du mal pour le faire.

Enfin.

Voilà mon code.

Code :

-- GPS define --
   
   type Double_Access is access all Double;
   
   function Modf (X : in Double; Iptr : in Double_access) return Double;
   pragma Import(C, Modf, "modf" );

Code :

function Longitude (X : in Longitude_Coordonate_Type) return Decimal_Longitude_Type is               
   begin
      
      if X.Degr_Lon < 0.0 then
     return -Decimal_Longitude_Type(abs(X.Degr_Lon) + (abs(X.Minu_Lon) / 60.0) + (abs(X.Seco_Lon) / 3600.0));
      else
        return Decimal_Longitude_Type(abs(X.Degr_Lon) + (abs(X.Minu_Lon) / 60.0) + (abs(X.Seco_Lon) / 3600.0));
      end if;
   end Longitude;

Code :

function latitude (Y : in Latitude_Coordonate_Type) return Decimal_Latitude_Type is
   begin
      
      if Y.Degr_Lat < 0.0 then
     return -Decimal_Latitude_Type(abs(Y.Degr_Lat) + (abs(Y.Minu_Lat) / 60.0) + (abs(Y.Seco_Lat) / 3600.0));
      else
     return Decimal_Latitude_Type(abs(Y.Degr_Lat) + (abs(Y.Minu_Lat) / 60.0) + (abs(Y.Seco_Lat) / 3600.0));
      end if;          
   end Latitude;

Code :

function Is_in(Target : in Gps_Coordonates_Type; item : in Gps_Coordonates_Type; Distance : in Float) return Boolean is
            
                         
      --  Formule À Appliquer Pour Calculer Une Orthodromie : Cos P = (Sin LA . Sin LB) + (Cos LA . Cos LB . Cos G)      
      LA, LB, G: Float := 0.0;
      P : Float := 0.0;
      --    LA Correspond À La Latitude Du Point A.
      --    LB Correspond À La Latitude Du Point B.
      --    G Correspond À La Différence De Longitude Entre Le Point A Et Le Point B.       
      Cos_Produit : Float := 0.0;
      sin_Produit : Float := 0.0;
      Sum_Produit : Float := 0.0;
   begin   
      
      La := Float'Rounding(Latitude(Target.Latitude) * 10000.0) / 10000.0;
      
      Lb := Float'Rounding(Latitude(Item.Latitude) * 10000.0) / 10000.0;
      
      G  :=  Float'Rounding(Longitude(item.Longitude) * 10000.0) / 10000.0 - Float'Rounding(Longitude(Target.Longitude) * 10000.0) / 10000.0;
      
      Cos_Produit := (Float'Rounding((Cos(La) * Cos(Lb) * Cos(G)) * 10000.0) /10000.0);
      
      sin_Produit := (Float'Rounding((Sin(La) * Sin(Lb))  * 10000.0) /10000.0);      
      
      Sum_Produit := (Float'Rounding((Cos_Produit + Sin_produit) * 10000.0) /10000.0);      
 
      P := Arccos(Sum_Produit);
      
      P := P * 6366.0;
      
      if  P - Distance > 0.0 then
     --Text_Io.Put_Line("False" );
     return False;
      else
     --Text_Io.Put_Line("TRUE" );
     
     return True;
      end if;
      
   exception
      when others =>
     Print(Target);
     Print(Item);
     Text_Io.Put_Line("cos_produit"  & Float'Image(cos_produit));
     Text_Io.Put_Line("sin_produit"  & Float'Image(sin_produit));
     Text_Io.Put_Line("sum_produit"  & Float'Image(sum_produit));
     Text_Io.Put_Line("P = " & Float'Image(P));
     raise;
   end Is_in;

Docn la question est de quelle unité dois-je convertir vers des radians ?

Message édité par Profil supprimé le 12-05-2016 à 08:28:33

h3bus

Troll Inside

Degrés vers radian
Rad = Deg*π/180

Message cité 1 fois

---------------
sheep++

Profil supprimé

h3bus a écrit :

Degrés vers radian
Rad = Deg*π/180

Merci h3bus.

Et du coup ton algo c'est quoi ?

rufo

Pas me confondre avec Lycos!

On te dit de convertir tes longitudes et latitudes qui sont exprimées en degrés en radians car les fonctions trigo cos(), sin()... des langages de prog attendent des radians en entrée et non des degrés. Du coup, les fonctions renvoient de mauvais résultats. A noter que la plupart des langages disposent des fonctions de conversions deg2rad et rad2deg

Message édité par rufo le 12-05-2016 à 10:38:43

Profil supprimé

Mes fonction trigo attendent des Float.
Bref.
Je suis en train de tester avec une conversion en radians.

Paris à déjà morflé. Mais Paris c'est presque à l'est.
Par contre j'ai un New Orleans dans les citées en ruine, je sais pas si c'est proche du japon par contre.

Message cité 1 fois

rufo

Pas me confondre avec Lycos!

Oui, mais des float qui sont des radians.

"Paris c'est presque à l'est" :??:
"New Orleans dans les citées en ruine, je sais pas si c'est proche du japon" :pt1cable:

Message cité 1 fois

Profil supprimé

rufo a écrit :

Oui, mais des float qui sont des radians.

"Paris c'est presque à l'est" :??:
"New Orleans dans les citées en ruine, je sais pas si c'est proche du japon" :pt1cable:

Toi t'as jamais testé Warborg !

Tu devrais.

A part ça je pense que j'ai un problème à la lecture du fichier de localisation.
Ca peut y faire aussi.

Publicité

Page : 1 2

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Programmation

Ada

[Ada][Warborg] un wargame avec GtkAda

Sujets relatifs
gérer N partie avec des données partagées pour un wargame.	[GtkAda] Image de fond pour un canvas avec Gtkada
[Ada Project] Anothers Implementation Of Artificial Intelligence	[Ada][Programmation Orienté Objet] déclaration de procédure abstraite.
[Ada] Application graphique := comment séparer graphisme et service ?	Compilation ADA+OpenGl avec GNAT GPS
[Ada+Gtk] Gtkada Ctree ou Tree Folder.... difficultés	Problème de généricité avec Ada
Encore un problème avec les Socket avec Ada
Plus de sujets relatifs à : [Ada][Warborg] un wargame avec GtkAda

Page générée en 0.246 secondes