hi mr Florent
to lunch mixmod I type:
in the message box I type YES after happens this:
exec('c:\program files\mixmod-2.1.1\initmixmod.sci')
--> if MSDOS then
--> separator='\';
--> else
--> separator='/';
--> end
-->if exists('mixmodDir')
--> versionScilab=evstr(part(getversion(),8));
--> minorVersion = evstr(part(getversion(),10));
--> if versionScilab<=4 | (versionScilab==5 & minorVersion<1)
--> r=x_message(['Are you sure want to change MIXMOD directory ?'],
['Yes','No']);
--> else
--> r=messagebox("Are you sure want to change MIXMOD
directory ?","MIXMOD directory", "question", ['Yes','No'], "modal");
--> end;
--> if ~isequal(r,1)
--> return;
-->initmixmod.sci
!--error 4
Undefined variable: initmixmod
-->exec ('initmixmod.sci')
!--error 241
File "initmixmod.sci" does not exist or read access denied.
-->exec('c:\program files\mixmod-2.1.1\initmixmod.sci')
--> if MSDOS then
--> separator='\';
--> else
--> separator='/';
--> end
-->if exists('mixmodDir')
--> versionScilab=evstr(part(getversion(),8));
--> minorVersion = evstr(part(getversion(),10));
--> if versionScilab<=4 | (versionScilab==5 & minorVersion<1)
--> r=x_message(['Are you sure want to change MIXMOD directory ?'],
['Yes','No']);
--> else
--> r=messagebox("Are you sure want to change MIXMOD
directory ?","MIXMOD directory", "question", ['Yes','No'], "modal");
--> end;
--> if ~isequal(r,1)
--> return;
--> end;
-->end;
-->mixmodDir=tk_getdir(Title="Enter mixmod directory location");
-->w=fileinfo(SCIHOME+separator+'.scilab');
-->/////ajout de la ligne à .scilab/////
-->if ~isempty(fileinfo(mixmodDir+'/mixmod.sci'))//mixmod.sci existe
--> if ~isempty(w)//.scilab existe
--> res=grep(mgetl(SCIHOME+separator+'.scilab'),["exec(SCIHOME+"'/
StartMixmod.sci"');"]);
--> if res==[]//ligne à ajouter non trouvée
--> //Dans le cas d'utilisation d'anciennes versions de mixmod,
on ramène dans une matrice de caractères "allFile"
--> //l'intégralité du .scilab. On change certaines conditions
pour que des anciennes instructions de mixmod
--> //ne perturbe pas les nouvelles. Ensuite on réinjecte le tout
de allFile dans le .scilab remis à neuf donc.
--> allFile=mgetl(SCIHOME+separator+'.scilab');
--> allFile=strsubst(allFile,'res=fileinfo(mixmodDir+"'/
mixmod.sci"')', 'res=[];');
--> allFile=strsubst(allFile,'grep(%helps(:,2),"'mixmod
help"')', '1');
--> allFile=strsubst(allFile,'%', '%%');//gestion des %
--> allFile=strsubst(allFile,'dirHelpMixmod=', '// ');
--> fd = mopen(SCIHOME+separator+'.scilab','w+');
--> for i=1:size(allFile,1)
--> mfprintf(fd,'\n'+allFile(i));
--> end;
--> mfprintf(fd,["\n exec(SCIHOME+"'/StartMixmod.sci"'); \n"]);
--> mclose(fd);
--> end;
--> else //.scilab n'existe pas
--> fd = mopen(SCIHOME+separator+'.scilab','a+');
--> mfprintf(fd,["exec(SCIHOME+"'/StartMixmod.sci"');"]);
--> mclose(fd);
--> end;
-->end;
-->/////fin ajout de la ligne/////
-->/////Création du fichier StartMixmod.sci/////
-->if fileinfo(mixmodDir+'/mixmod.sci')<>[]//si le fichier mixmod.sci
n'existe pas, rien n'est fait
--> if fileinfo(SCIHOME+'/StartMixmod.sci')<>[] //effacement du
fichier StartMixMod.sci
--> mdelete(SCIHOME+separator+'StartMixmod.sci');
--> end;
--> // fc=file('open', SCIHOME+'/StartMixmod.sci', 'new');//création
du fichier
-->// file('close'
--> fd = mopen(SCIHOME+separator+'StartMixmod.sci','w');
--> mfprintf(fd,'\n mixmodDir=');
--> mfprintf(fd,""'" );
--> if ~MSDOS then
--> mfprintf(fd,mixmodDir );
--> else
--> mfprintf(fd,mtlb_strrep(mixmodDir, '\', '\\'));
--> separator='\\';
--> end
--> mfprintf(fd,""';" );
--> mfprintf(fd,'\n res=fileinfo(mixmodDir+');
--> mfprintf(fd,""'" );
--> mfprintf(fd,'/mixmod.sci' );
--> mfprintf(fd,""'" );
--> mfprintf(fd,');' );
--> mfprintf(fd,'\n clear mixmod');
--> mfprintf(fd,'\n clear mixmodGraph');
--> mfprintf(fd,'\n clear mixmodInputModel');
--> mfprintf(fd,'\n clear mixmodInputStrategy');
--> mfprintf(fd,'\n clear mixmodInputCriterion');
--> mfprintf(fd,'\n clear mixmodView');
--> mfprintf(fd,'\n clear printMixmod');
--> mfprintf(fd,'\n if ~isempty(res)')
--> mfprintf(fd,' \n ');
--> mfprintf(fd,"getf(mixmodDir+");
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/mixmod.sci");
--> mfprintf(fd,""'" );
--> mfprintf(fd,')');
--> mfprintf(fd,' \n ');
--> mfprintf(fd,"getf(mixmodDir+");
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/mixmodGraph.sci");
--> mfprintf(fd,""'" );
--> mfprintf(fd,')');
--> mfprintf(fd,' \n ');
--> mfprintf(fd,"getf(mixmodDir+");
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/mixmodInputCriterion.sci");
--> mfprintf(fd,""'" );
--> mfprintf(fd,')');
--> mfprintf(fd,' \n ');
--> mfprintf(fd,"getf(mixmodDir+");
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/mixmodInputModel.sci");
--> mfprintf(fd,""'" );
--> mfprintf(fd,')');
--> mfprintf(fd,' \n ');
--> mfprintf(fd,"getf(mixmodDir+");
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/mixmodInputStrategy.sci");
--> mfprintf(fd,""'" );
--> mfprintf(fd,')');
--> mfprintf(fd,' \n ');
--> mfprintf(fd,"getf(mixmodDir+");
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/mixmodView.sci");
--> mfprintf(fd,""'" );
--> mfprintf(fd,')');
--> mfprintf(fd,' \n ');
--> mfprintf(fd,"getf(mixmodDir+");
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/printMixmod.sci");
--> mfprintf(fd,""'" );
--> mfprintf(fd,')');
--> mfprintf(fd,'\n global mixmodWindowTitle ')
--> mfprintf(fd,'\n mixmodWindowTitle=');
--> mfprintf(fd,""'" );
--> mfprintf(fd,'MIXMOD 2.1.1 (2009)');
--> mfprintf(fd,""';" );
--> mfprintf(fd,'\n global mixmodGaussianDataType')
--> mfprintf(fd,'\n mixmodGaussianDataType = ');
--> mfprintf(fd,'1;');
--> mfprintf(fd,'\n global mixmodBinaryDataType')
--> mfprintf(fd,'\n mixmodBinaryDataType = ');
--> mfprintf(fd,'2;');
--> mfprintf(fd,'\n global scilab3');
--> mfprintf(fd,'\n scilab3=');
--> mfprintf(fd,'%%f;');
--> //mfprintf(fd,'\n global versionScilab');
--> mfprintf(fd,'\n versionScilab=part(getversion(),8);');
--> mfprintf(fd,'\n versionScilab=evstr(versionScilab);');
--> mfprintf(fd,'\n minorVersion = part(getversion(),10);'); //
recuperation du numero de scilab
--> mfprintf(fd,'\n minorVersion = evstr(minorVersion);'); //
transformation en entier
--> mfprintf(fd,'\n if versionScilab > 2 then');
--> mfprintf(fd,'\n set old_style off;');
--> mfprintf(fd,'\n scilab3 = %%t;');
--> mfprintf(fd,'\n end;');
--> mfprintf(fd, '\n dirHelpMixmod=mixmodDir+');
--> mfprintf(fd,""'" );
--> mfprintf(fd,"/UTIL/SCILAB/helpMixmod/" );
--> mfprintf(fd,""';" );
--> mfprintf(fd,'\n if versionScilab == 5 then');
--> mfprintf(fd,'\n add_help_chapter("'mixmod help"',dirHelpMixmod
+"'jar"');');
--> mfprintf(fd,'\n else');
--> mfprintf(fd,'\n add_help_chapter("'mixmod
help"',dirHelpMixmod );')
--> mfprintf(fd,'\n end;');
--> mfprintf(fd,'\n else');
--> mfprintf(fd,'\n warning("'Mixmod Path invalid"');');
--> mfprintf(fd,'\n end;');
--> mfprintf(fd,'graphicsMode=0;');
--> mclose(fd);
-->end;
-->/////Lancement de StartMixmod.sci/////
-->if ~isempty(fileinfo(SCIHOME+'/StartMixmod.sci'))
--> exec(SCIHOME+separator+'StartMixmod.sci');
-->else
--> warning('Mixmod Path invalid');
-->end;
On 5 Mag, 10:17, Florent Langrognet <florent.langrog...@univ-
fcomte.fr> wrote:
> Hi,
>
> You have to launch :
> - exec('initMixmod.sci'); in Scilab command line (not using the File menu)
> - mixmodGraph(); (without exec or using File menu)
>
> Florent
>
>
stefano.zambe...@gmail.com a écrit :
> florent_langrognet.vcf
> < 1KVisualizzaScarica