begin process at 2012 02 14 00:31:03
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

Quel langage pour mes 2 scripts ???


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Quel langage pour mes 2 scripts ???

mardi 28 octobre 2003 à 17:30:50 | Quel langage pour mes 2 scripts ???

lahou

Bonjour,
je voudrais savoir quel est le langage utilisé dans les 2 scripts ci-dessous, avec quel outil on peut les compiler et par la meme occasion si quelqu'un peut me les envoyer deja compilé ça m'arrangerai
Merci

Script 1:

% Définition interactive des paramètres pour la représentation
% du tournesol.

% Nécessite: TOURNESOL.M, AIDEFUN.M (version modifiée de HELPFUN.M)
% et TOURNESOL.MAT (image du tournesol).

% Couples de nombres de Fibonacci
fs=[21 34;34 55;55 89;89 144];

% Fenêtre graphique pour la représentation
tour=figure(...
'Name','Tournesol',...
'Numbertitle','off',...
'Visible','off');

% Fenêtre pour l'affichage des paramètres et le lancement de la
% simulation
fig=figure(...
'Name','Paramètres',...
'NumberTitle','off',...
'Position',[45 80 340 267],...
'Resize','off',...
'Visible','off');

% Nombre de points->Nb
uicontrol(fig,...
'Style','text',...
'Position',[20 220 110 20],...
'String','Nombre de points :');
BtnNb=uicontrol(fig,...
'Style','edit',...
'String','200',...
'Position',[140 220 60 20]);

% Taille des points -> tp
uicontrol(fig,...
'Style','text',...
'Position',[20 180 110 20],...
'String','Taille des points :');
BtnTp=uicontrol(fig,...
'Style','edit',...
'String','12',...
'Position',[140 180 60 20]);

% Avec ou sans numérotation ->val
avec=uicontrol(fig,...
'Style','checkbox',...
'String','Numérotation',...
'Position',[20 140 110 20]);

% Avec ou sans spirale
avecsp=uicontrol(fig,...
'Style','checkbox',...
'String','Spirales',...
'Position',[20 100 110 20],...
'Callback',['if get(avecsp,''value'')==1,',...
'set(nbfib,''Visible'',''on'');',...
'set(popf,''Visible'',''on'');',...
'else,',...
'set(nbfib,''Visible'',''off'');',...
'set(popf,''Visible'',''off''); end']);

% Popup menu pour le choix des couples de nombres de Fibonacci
nbfib=uicontrol(fig,...
'Style','text',...
'String','Choisissez deux nombres de Fibonacci',...
'Visible','off',...
'Position',[20 40 180 35]);
popf=uicontrol(fig,...
'Style','popup',...
'String','(21,34)|(34,55)|(55,89)|(89,144)',...
'Visible','off',...
'Position',[19 20 183 20]);

% Boutons de contrôle: Fin, OK et Aide
uicontrol(fig,...
'Style','push',...
'Position',[260 20 60 20],...
'String','Fin',...
'CallBack',['load(''tournesol'');',...
'figure(tour);',...
'clg;',...
'colormap(MAP);',...
'image(X);',...
'axis off;axis equal;',...
'close(fig)']);


Script 2:

function tournesol(nb,tp,val,f)
%TOURNESOL(NB,TP,VAL,F) représente le coeur d'un tournesol

% NB = nombre de points; TP= taille du point; VAL=1 -> affiche le No du point
% VAL=0 -> n'affiche pas le No du point. Défaut: TP=12, VAL=0.
% F est un couple (ou plus) de nombres de Fibonacci. Par défaut:
% F(1)=13 et F(2)=21.

% Initialisation des paramètres
if nargin==1
tp=12;
val=0;
f=[];
elseif nargin==2
val=0;
f=[];
elseif nargin==3
f=[];
end

% Données
err=0; % Erreur sur l'angle
n=1:nb; % Nombre de points
nbdor=(1+sqrt(5))/2; % Nombre d'or
alpha=2*pi/(nbdor+1)+err; % alpha=2*pi/(nbdor^2)=2*pi/(nbdor+1)=2*pi-2*pi/nbdor=137.5078°

% Courbes en coordonnées polaires
r=sqrt(n); % rayon
t=alpha.*n; % angle polaire

x=r.*cos(t); % conversion polaire->cartésien
y=r.*sin(t);

% représentation graphique

% tracé des spirales
coul='wybgmcr'; % palette des couleurs
for i=1:length(f)
for j=1:f(i)
k=j:f(i):nb;
plot(x(k),y(k),coul(rem(i,7)+1))
hold on
end
end

% représentation des points
plot(x,y,'.','markersize',tp)

% affichage du numéro du point
if val
for i=1:nb
text(x(i)+0.1,y(i)+0.1,int2str(i))
end
end

axis equal
axis off
hold off


PS : Je pense qu'il y a une relation entre les deux scripts :-)

Merci a ceux qui repondent parce que c'est pour un TPE !!!

Lahou


Cette discussion est classée dans : position, off, fig, tournesol, uicontrol


Répondre à ce message

Sujets en rapport avec ce message

Position d'une cellule [ par chris ] Quelle fonction en VBA peut me donné la position d'une cellule, qui est active. URGENT!!!Debutant en VB6 Cherche Aide [ par Princedukashmir ] Bonjour, Can you help me please ???? Voila ce que je dois faire: Faire 5 fonctions qui doivent être optimisées à fond : le moins de code possible et l Comment choisir la position d'affichage d'un Common Dialog Control de type Open [ par n_twan ] Voilà lorsque l'on fait un showOpen d'un contrôle comme COMDLG32.DLL par exemple, je ne vois pas comment procéder pour qu'il apparaisse àun autre endr Position de la souris, click & message box [ par Wedge03 ] Salut,1- Dans un programme j'aimerais que l'utilisateur pusissent enregistrer, dans une variable, la position de la sourie a un moment précis.Pour cel ListView = > recupération de la position de l'enreg [ par steph ] Bonjour, Je souhaite charger un ficher texte qui contient des enregistrements separés par des tabultations dans une liste view.La liste view est de ty Comment rendre un cdrom off [ par nice ] Je voudrais savoir comment avec un programme vb on peut rendre inutilisable l'utilisation du cdrom (le mettre a off). Pb de taille sur Richtextbox ( RTB ) [ par manu ] c'est tres facile d'avoir la position du curseur dans le texte par l'intermediaire de la proprieté selstartmais comment avoir la position du curseur d Avoir la position d'une fenetre dans l'écran grace à son "GetWindowsText" ? [ par Strikenet ] Je crois que j'ai tout dit ;)Son "GetWindowsText" est le nom dans la barre de taches ( ex : "VBFrance.Com|Le..." ) Position de la barre des taches [ par Encore ] Bonjour ,est ce quelqu'un peut m'aiderJe voudrais connaiter la position de la barre des tables ainsi que ces dimensions sur le poste client d'une appl


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,215 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales