[blabla@olympe] Le topic du modo, dieu de la fibre et du monde

Recherche :

Sujet(s) à lire :
- Who's who@Programmation

Mot : Pseudo : Filtrer Aller à la page :
Page : 1 2 3 4 5 .. 18433 18434 18435 .. 27149 27150 27151 27152 27153 27154 Page Suivante Page Précédente Bas de page
Auteur	Sujet : [blabla@olympe] Le topic du modo, dieu de la fibre et du monde

flo850

moi je

Reprise du message précédent :

Jubijub a écrit :

pour des petits trucs perso où je serais le seul commiter, y'a un intéret à prendre autre chose que SVN ?

a partir du moment on tu n'as aucune contraintes organisationnelle , pourquoi ne pas prendre quelque chose d'un peu plus "hors du cadre" , ne serait ce que pour voir ce que c'est, et pour profiter des outils type github

Message cité 2 fois

Publicité

sligor

[:jesse james:4]

---------------
qwerty-fr

mareek

Et de 3 \o/

flo850 a écrit :

Hors du cadre pour jubi c'est faire une page web sans utiliser d'EJB [:petrus75]

Spoiler :

Et pour moi c'est utiliser visual c# express [:petrus75]

Message cité 1 fois
Message édité par mareek le 05-02-2011 à 22:45:12

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Shinuza

This is unexecpected

masklinn a écrit :

[:aulas]

Genre l'app de Navigation GPS Aura qui s'installe à la racine de ma SDcard, je la désinstalle, elle me laisse 600 Mo de données cartographiques [:petrus75]

masklinn a écrit :

'tin, Romantically Apocalpytic ( http://rom.ac ) c'est comme Gone with the Blastwave en encore mieux et en encore mis à jour [:bien]

[:yann39]

---------------
Mains power can kill, and it will hurt the entire time you’re dying from it.

Jubijub

Parce que je le VD bien

masklinn a écrit :

ya d'autant plus d'intérêt à prendre autre chose.

cf ma question reformulée ci-dessous

flo850 a écrit :

bilan, là je veux dev des trucs pour moi, et j'ai pas envie de me faire chier à apprendre des trucs nouveaux sauf si j'ai un gain évident à le faire (par ex là je regarde SQLite, parce que ça va me faire un soucis en moins de pas avoir à configurer et maintenir un SGBD).
Ma question était plutot : sachant que je sais utiliser SVN, est-ce que j'ai un vrai gain à apprendre un autre (D)VCS ?

idem pour le language : je me rabbas finalement sur Java, parce que ma learning curve sera bien meilleure sachant que je l'ai déjà utilisé, et puis dans le genre de boite où je postule, Java c'est le standard, PHP c'est limite cutting edge alors Python je t'en parle meme pas (même si le peu que j'ai joué avec le language ça parait plaisant)

mareek a écrit :

Hors du cadre pour jubi c'est faire une page web sans utiliser d'EJB [:petrus75]

Spoiler :

Et pour moi c'est utiliser visual c# express [:petrus75]

je m'insurge : j'ai fait du Struts, mais je me suis jamais compromis assez bas pour faire des EJB (on m'a appris ça à l'école, et ça m'a foutu la gerbe (les EJB2 c'était une natasserie sans nom))

Message cité 2 fois
Message édité par Jubijub le 05-02-2011 à 23:41:15

---------------
Jubi Photos : Flickr - 500px

Profil supprimé

Prem's pas couché.
Prem's debout.
Prem's at work.
Prem's
Prem's
Prem's

Code :

with PragmARC.REM_NN_Wrapper;
use PragmARC.REM_NN_Wrapper;
package Arche is
   type Register is array (Natural range <> ) of Real;
   type Register_Access is access all Register;
 
   type Stack is array (Positive range <> ) of Register_Access;
   type Stack_Access is access all Stack;
 
 
   Preffix : constant String := "board";
   txt  : constant String := ".txt";
   wgt  : constant String := ".wgt";
 
   type Board(Id : Natural) is
      record
         Reuse      : Boolean := False;
         Init_Stack : Stack_Access;
         RMS_Error  : Real := 1.0;
         Converged  : Real := 0.125;
         Current_Epoch : Long_Long_Integer := 0;
         Max_Epochs : Long_Long_Integer := 0;
         Count      : Natural := 0;
      end record;
 
   type Board_Access is access all Board;
 
   type Arche is array (Natural range <> ) of Board_Access;
 
   type Arche_Access is access all Arche;
 
   Current_Content : Arche_Access;
 
 
   procedure Initialize(This : out Arche_Access;
                        Where: in String := "./" );
 
 
   procedure Grand_Architect(This : in out Arche_Access;
                             Where : String := "./" );
 
 
   procedure Destroy(This : in out Arche_Access);
 
end Arche;

Code :

with Ada.Strings, Ada.Strings.Fixed;
use Ada.Strings, Ada.Strings.Fixed;
with PragmARC.Ansi_Tty_Control;
use PragmARC.Ansi_Tty_Control;
with PragmARC.Math.Functions;
with Ada.Text_Io;
use Ada.Text_Io;
with GNAT.Os_Lib;
use Gnat.Os_Lib;
package body Arche is
 
 
 
   function Str2Reg(Buffer : in String; Width : in positive) return Register_Access is
 
      Reg : Register_access := new Register(1..width*8);
      Code : Natural range 0..255 := 0;
   begin
      Reg.All := (others => 0.0);
      for char in Buffer'Range loop
         code := Character'Pos(Buffer(char));
         if code /= 0 then
            for Index in reverse 1..8 loop
               if float(code rem 2) = 1.0 then
                  reg((Char-1)*8+index) := 1.0;
               end if;
               code := code/2;
            end loop;
         end if;
      end loop;
      return Reg;
   end Str2Reg;
 
 
 
 
   procedure Initialize(This : out Arche_Access;
                        Where: in String := "./" ) is
 
      procedure Load(A : Board_Access) is
         File : File_Type;
         Buffer : String(1..65536);
         Last : Natural;
         Length : Natural := 0;
         Width : Positive := 1;
      begin
         Open(File, In_File, Where & Preffix & Natural'Image(A.id) & txt);
         Put_line("Ouverture du ficher " & Where & Preffix & Natural'Image(A.id) & Txt);
         while not End_Of_File(File) loop
            Get_Line(File, Buffer, Last);
            if Last = 0 then
               exit;
            end if;
            Put_line("Reading : """ & Buffer(1..Last)& """ ; Longueur : " & Natural'Image(Last));
            Width := Positive'Max(Last, Width);
            Length := Length + 1;
         end loop;
         New_Line;
         Put("Initialise la pile... " );
         A.Init_Stack := new Stack(1..Length);
         A.Converged := 1.0/Real(Length/2);
         Put_line("Fait." );
 
 
         Reset(File);
         Put_line("Encodage du fichier  : " & Where & Preffix & Natural'Image(A.id) & Txt);
         Length := 0;
         while not End_Of_File(File) loop
            Get_Line(File, Buffer, Last);
            if Last = 0 then
               exit;
            end if;
            Length := Length + 1;
            Put("Codding : """ & Buffer(1..Last)& """ ..." );
            A.Init_Stack(Length) := Str2reg(Buffer(1..Last), width);
            Put_line(" Fait." );
         end loop;
         Close(File);
      end Load;
 
 
 
 
      Arche_Width : Natural := 0;
      File : File_Type;
   begin
      Put_line("Les fichiers suivants vont Ãªtre chargÃ©s : " );
      loop
 
         begin
            Open(File, In_File, Where & Preffix & Natural'Image(Arche_Width) & txt);
            Put_line(Where & Preffix & Natural'Image(Arche_Width) & txt);
            Close(File);
            Arche_Width := Arche_Width + 1;
         exception
            when Name_Error =>
               exit;
         end;
      end loop;
 
      This := new Arche(0..Arche_Width-1);
      Put_Line("Cahrgement des" &  Natural'Image(Arche_Width) &
                 " planches de l'architecture" );
      for Iz in This'Range loop
         Put("Planche" & Natural'Image(Iz) & " :" );
         This(Iz) := new  Board(Iz);
         Load(This(Iz));
         Put_line(" Fait." );
      end loop;
   end Initialize;
 
   task type Train(From : Board_Access) is
      entry Initialize(Where : in String);
      entry Start;
      entry Info(Learning : out Real);
      entry Stop;
      entry Halt;
      entry Done;
   end Train;
 
 
   package Real_Math is new PragmARC.Math.Functions (Supplied_Real => Real);
   package Real_Io is new Float_Io(Real);
 
   task body Train is
 
      End_Of_Task : Boolean := False;
      Path : String_Access;
   begin
 
      accept Initialize(Where : in String) do
         Path := new String ' (Where);
      end Initialize;
      while not End_Of_Task loop
 
         declare
            procedure Get_Expl(Pattern : in Positive;
                               Input : out Node_Set;
                               Desired : out Node_Set) is
            begin
 
               Input := Node_Set(From.Init_Stack(Pattern*2-1).all);
 
               Desired :=  Node_Set(From.init_Stack(Pattern*2).all);
            end Get_Expl;
 
 
            package NN_Expl is new REM_NN
              (
               Num_Input_Nodes => From.Init_Stack(1)'Length,
               Num_Hidden_Nodes => 8,
               Num_Output_Nodes => From.Init_Stack(1)'Length,
               Num_Patterns => From.init_Stack'Length/2,
               New_Random_Weights => not From.Reuse,
               Input_To_Output_Connections => False,
               Weight_File_Name => Path.all & Preffix & Natural'Image(From.id) & wgt,
               Get_Input => Get_Expl
              );
 
            use NN_Expl;
 
 
            Desired, Response : Node_Set(1..From.Init_Stack(1)'Length) := (others => 0.0);
            Error     : Real := 0.0;
 
            End_Of_Section : Boolean := False;
 
 
         begin
            accept Start;
            Put_Line("Starting Train" & Natural'Image(From.id));
            while not End_Of_section loop
               select
                  accept Stop do
                     End_Of_Section := True;
                  end Stop;
               or
                  accept Halt do
                     End_Of_Section := True;
                     End_Of_Task := True;
                  end Halt;
               or
                  delay 0.0;
                  for Pattern in 1..From.Init_Stack'Length/2 Loop
                     NN_Expl.Train;
                     NN_Expl.Respond (Pattern, Response);
                     Desired := Node_Set(From.Init_Stack(Pattern*2).all);
                     for I in Response'Range loop
 
                        Error :=
                          Error + (Desired(I) - Response(i) );
                     end loop;
                     From.RMS_Error := From.RMS_Error + ((Error/Real(Response'Length)) ** 2);
                     Error := 0.0;
                  end loop;
                  NN_Expl.Save_Weights;
                  From.RMS_Error :=
                    Real_Math.Sqrt(From.RMS_Error / Real (From.Init_Stack'Length/2)) ;
                  From.Current_Epoch := From.Current_Epoch + 1;
                  select
                     accept Info(Learning : out Real) do
                        Learning := Real((((80.0/From.RMS_Error)/80.0)/(0.1/From.converged))*8.0);
                        if Learning >= 80.0 then
                           End_Of_Section := True;
                           End_Of_Task := True;
                        end if;
                     end Info;
                  or
                     delay 0.0;
                  end select;
               end select;
            end loop;
         end;
      end loop;
      Put_Line("Train" & Natural'Image(From.id) & " Done." );
      accept Done;
      Put(Position(25, 1) & "Context_manager:Done." );
   end Train;
 
   type Train_Access is access all Train;
 
 
   type Deamons is array (Natural range <> ) of Train_Access;
 
   type Deamons_Access is access all Deamons;
 
   task type Manager(Context : access Deamons) is
      entry Start;
      entry Stop;
      entry Halt;
   end Manager;
 
   task body Manager is
      Done, End_Of_Task : Boolean := False;
      Learning :  Real := 0.0;
 
   begin
      accept Start do
         End_Of_Task := True;
         for Iz in Context'Range loop
            if Context(Iz) /= null then
               Put_Line("Start Train" & Natural'Image(Iz));
               Context(Iz).Start;
               End_Of_Task := False;
            end if;
         end loop;
      end Start;
      while not End_Of_Task loop
         select
            accept Stop;
         or
            when Done =>
               accept Halt do
                  End_Of_Task := True;
               end Halt;
         or
            delay 0.0;
            Done := True;
            for Iz in Context'Range loop
               if Context(Iz) /= null then
                  select
                     Context(Iz).Done;
                     Context(Iz) := null;
                  or
                     delay 0.01;
                     Context(Iz).Info(Learning);
                     Put(Position(Iz+1, 1) & Reverse_Video & (Natural(Learning) * ' ') & Normal_mode);
                     Real_Io.Put(Learning);
                     Done := False;
                  end select;
               end if;
            end loop;
            Put(Position(25, 1) & "Learning..." );
         end select;
      end loop;
      Put(Position(25, 1) & "Context_manager:End_Of_Task." );
 
   end Manager;
 
 
   function Reg2Str(Buffer : in Register_Access) return String is
      Str : access String := new String(1..Buffer'Length/8);
      Index : Natural := 0;
      Code : Natural range 0..255 := 0;
   begin
      if Buffer = null then
         raise Program_Error;
      end if;
      while Index < Buffer'Length/8 loop
         for Bit in reverse Index*8+1..Index*8+8 loop
            if Buffer(Bit) = 1.0 then
               Code := code + 2**(8-(Bit-(Index*8)));
            end if;
         end loop;
         Str(Index+1) := Character'Val(Code);
         Index := Index + 1;
         Code := 0;
      end loop;
      return Str.all;
   end Reg2Str;
 
   function Respond(Request : in String;
                    From    : access Board;
                    Where    : in String := "./" ) return String is
      Response : Register_access := new Register(1..From.Init_Stack(1)'Length);
 
      procedure Get_Expl(Pattern : in Positive;
                         Input : out Node_Set;
                         Desired : out Node_Set) is
      begin
         Input := Node_Set(Str2reg(Request, From.Init_Stack(1)'Length/8).all);
         Desired :=  (others => 0.0);
      end Get_Expl;
 
      package NN_Expl is new REM_NN
        (
         Num_Input_Nodes => From.Init_Stack(1)'Length,
         Num_Hidden_Nodes => 8,
         Num_Output_Nodes => From.Init_Stack(1)'Length,
         Num_Patterns => From.init_Stack'Length/2,
         New_Random_Weights => False,
         Input_To_Output_Connections => False,
         Weight_File_Name => where & Preffix & Natural'Image(From.id) & wgt,
         Get_Input => Get_Expl
        );
 
 
 
      use NN_Expl;
   begin
 
      NN_Expl.Respond (1, Node_Set(Response.All));
 
      for I in Response'Range loop
         if Response(I) >= 0.5 then
            Response(I) := 1.0;
         else
            Response(I) := 0.0;
         end if;
      end loop;
 
 
      return Reg2str(Response);
   end Respond;
 
   procedure Grand_Architect(This : in out Arche_Access;
                             Where : String:= "./" ) is
 
 
      Context : Deamons_Access := new deamons(This'Range);
 
 
   begin
 
      for Iz in this'Range loop
         if This(Iz) = null then
            raise Constraint_Error;
         end if;
         if Is_Regular_File(Where & Preffix & Natural'Image(iz) & wgt) then
            This(Iz).Reuse := True;
         end if;
         Context(Iz) := new Train(This(Iz));
         Context(Iz).Initialize(Where);
         Put_Line("initialize context" & Natural'Image(Iz));
      end loop;
 
 
 
 
      declare
 
 
         Context_Manager : Manager(Context);
 
      begin
         Context_Manager.Start;
         Context_Manager.Halt;
         Put_Line("Learning done." );
      end;
 
 
      declare
 
 
 
      begin
 
         for Iz in This'Range loop
            Put_line(Respond("Bonjour", This(Iz), where));
         end loop;
 
 
      end;
 
 
   end Grand_Architect;
 
 
   procedure Destroy(This : in out Arche_Access) is
   begin
      null;
   end Destroy;
 
end Arche;

Code :

with Arche;
use Arche;
procedure Main is
begin
   --loop
   Initialize(Current_Content, "./Arche/" );
   Grand_Architect(Current_Content, "./Arche/" );
   Destroy(Current_Content);
   --end loop;
end Main;

Message édité par Profil supprimé le 06-02-2011 à 04:57:55

el muchacho

Comfortably Numb

[quotemsg=2054594,737469,31562]
Hors du cadre pour jubi c'est faire une page web sans utiliser d'EJB [:petrus75] Ou faire un projet perso sans planifier une équipe à Bangalore.

---------------
Les aéroports où il fait bon attendre, voila un topic qu'il est bien

el muchacho

Comfortably Numb

Harko, il manque Oracle [:hurle]

---------------
Les aéroports où il fait bon attendre, voila un topic qu'il est bien

vapeur_cochonne

Stig de Loisir

Dion a écrit :

[:kiki]
Arretes de te foutre de la gueule du monde, t'as pas emigre pour faire un geste politique, t'as emigre pour avoir plus de fric..Ssurtout que lutter contre la sclerose du systeme et la protection des acquis en allant en suisse c'est quand meme le plus mauvais mensonge invente depuis le stagiaire d'harko et muchacho en pyjama

---------------
marilou repose sous la neige

masklinn

í dag viðrar vel til loftárása

Jubijub a écrit :

le fait est que je suis plus un developpeur de métier, et au vu de mon projet actuel, on m'embauche plus sur mes compétences techniques (même si c'est apprécié que je puisse le faire et que ça m'aide pour gérer la boite qui nous fait l'intégration). Donc j'ai pas forcément besoin de connaitre une chiée de technos, particulièrement si j'ai proche de 0 chance qu'elles soient utilisées en entreprise.

bilan, là je veux dev des trucs pour moi, et j'ai pas envie de me faire chier à apprendre des trucs nouveaux sauf si j'ai un gain évident à le faire (par ex là je regarde SQLite, parce que ça va me faire un soucis en moins de pas avoir à configurer et maintenir un SGBD).
Ma question était plutot : sachant que je sais utiliser SVN, est-ce que j'ai un vrai gain à apprendre un autre (D)VCS ?

La manière dont je vois la chose est la suivante:

Si tu te lances dans des projet perso, tout seul, sur une seule machine, les commandes "nécessaires" de mercurial vont être exactement les mêmes que celles de svn, sauf que tu t'emmerdes pas à faire des svnadmin pour créer des repos locaux ou donner des chemins de fichiers à rallonge, tu fais juste "hg init" (on va considérer que ton repo svn est local, donc pas de questions de vitesse ou autres)

Si un jour ton projet croît suffisamment pour qu'il soit impératif que le monde en profite, t'as juste à faire un hg push ${mon_super_repo}. Je suis pas persuadé que sourceforge te permette de leur balancer un dump svn (je peux me planter)

Les outils genre shelve, mq, bisect ou record, c'est aussi utile quand tu bosses tout seul.

Message cité 3 fois

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?

Publicité

___alt

Jubi il est quand même assez excellent. Il sort le point Mitran comme un vulgaire Benjamin Lancar, il se casse en Suisse comme un vulgaire Johnny Halliday, mais après il va nous faire croire qu'il a peut-être, un jour, éventuellement songé à voter à gauche mais qu'il a renoncé sur des critères objectifs.

Le mec il est à gauche comme Eric Besson ou Jack Lang quoi [:rofl]