OPTIQUE GEOMETRIQUE MATRICIEL et Panoramic

bonsoir a tous
je vous propose un programme inutile pour la plupart des gens et plutot abrupte
Cela dit j'ai pas mal travaillé dessus pour faire plaisir a Papydall (calcul matriciel) scratch

A l'epoque ou j'en avais eu besoin ,je ne suis jamais parvenu a le faire fonctionner, et pour cause, il etait bourré d'erreurs.

si aujourd hui il peut aider quelques etudiants !!!

Code:: dim a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,num,x$,i$,r$,q$,p$
label intervalle ,dioptreplan, dioptrespherique,lentillemince,multipli,elementscardinaux,images
label fin,finelements,fec
a=1:e=1:d=1:b=0:c=0

form 2 :top 2,20 :left 2,700
caption 2,"creation systeme optique"
command_target_is 2
main_menu 100
sub_menu 50 : caption 50,"ELEMENTS" : parent 50,100
sub_menu 51 : caption 51,"visualisation" : parent 51,100
sub_menu 52 : caption 52,"quittez" :parent 52,100
sub_menu 60 : caption 60,"intervalle" : parent 60,50 :on_click 60,intervalle
sub_menu 61 : caption 61,"dioptre plan" : parent 61,50:on_click 61,dioptreplan
sub_menu 62 : caption 62,"dioptre spherique" : parent 62,50 : on_click 62,dioptrespherique
sub_menu 63 : caption 63,"lentille mince" : parent 63,50:on_click 63,lentillemince
sub_menu 64 : caption 64,"fin" : parent 64,50 :on_click 64,finelements
sub_menu 70 : caption 70,"calcul" : parent 70,51 : on_click 70,elementscardinaux
sub_menu 71 : caption 71,"image" : parent 71,51 : on_click 71,images
sub_menu 80 : caption 80,"quittez" : parent 80,52 :on_click 80,fin

alpha 103 : top 103, 20 : left 103,10 : caption 103, "1 saisissez les elements du systeme avec ELEMENTS "
alpha 104 : top 104, 35 : left 104,10 : caption 104, "2 calculez les elements cardinaux dans VISUALISATION"
rem alpha 105 : top 105, 50 : left 105,10 : caption 105, "3 definissez un objet et visualisez l'image"

num=1
x=num
print_locate 0,20
print "element numero "+str$(x)
print " "
print " "
print " "
print " "
print " "
print " "

end

intervalle:
f=0
print_locate 0,20
print "definition des elements de l'intervalle "
print " "
print " "
print " "
print " "
print " "
print " "
print_locate 0,40
input_mark_on
input "intervalle S1S2="; f
num=num+1
x$=num
print "element numero "+ x$
h=1:g=0
gosub multipli
return

dioptreplan:
f=0
print_locate 0,20
print "definition des elements du dioptre plan "
print " "
print " "
print " "
print " "
print " "
print " "
print_locate 0,40
input_mark_on
input "indice N="; p
input "indice N'=";h
num=num+1
x$=num
print "element numero "+ x$
h=p/h :g=0
gosub multipli
return

dioptrespherique:
f=0
print_locate 0,20
print "definition des elements du dioptre spherique "
print " "
print " "
print " "
print " "
print " "
print " "
print_locate 0,40
input_mark_on
input "indice N="; i
input "indice N'=";j
input "rayon SC"; r
num=num+1
x$=num
print "element numero "+ x$
h=i/j : g=((i-j)/r)/j
gosub multipli
return

lentillemince:
f=0
print_locate 0,20
print "definition des elements de la lentille "
print " "
print " "
print " "
print " "
print " "
print " "
print_locate 0,40
input_mark_on
input "distance focale SF'="; p
num=num+1
x$=num
print "element numero "+ x$
g=-1/p:h=1
gosub multipli
return

finelements:
print_locate 0,20
print "vous pouvez passer à l'etape de visualisation "
print " "
print " "
print " "
print " "
print " "
print " "
return

'la fameuse MATRICE
multipli:

i=(e*a)+(f*c)
j=(e*b)+(f*d)
k=(a*g)+(h*c)
l=(g*b)+(h*d)
a=i:b=j:c=k:d=l
return

elementscardinaux:

rem print " "
print " "
print " "
print " "
print " "
print " "
if c=0
print " systeme afocal "
end_if
print " "
print " "
print " "
print " "
print " "
print " "
if c=0
pause 2000
goto images
end_if
i=(0-1)/c:p=(0-i)*d:r=i*a
i$=i
print_locate 0,60
print "distance focale H'F'"+ i$
print "SF ="+ str$ (p)
print "S'F'="+ str$ (r)

if t=2*l and q=0
goto fec
end_if

q=(1-d)*i
goto fec
return

fec:
r=(a-1)*i

print_locate 0,20
print " "
print "SH =" + str$ (q)
print "S'H' =" + str$ (r)

return

images:
print_locate 0,200
input_mark_on
input "SA="; i
if i=p
print " image rejeté a l'infini "
pause 1000:goto fin
end_if
q=((a*i)-b)/(((0-c)*i)+d)
r=a+q*c
q$=q:r$=r
print " S'A' =" + q$
print " G =" + r$
return

fin:
pause 1000
terminate
return

les matheux de la bande retrouverons quelques bons souvenir king

il permet de calculer un systeme optique et de determiner la position et la taille d'une image en fonction de la position de l'objet.
version complete sur mon webdav
bon courage aux novices
mindstorm

Ca me dépasse un peu, j'avoue ...

Salut mindstorm.
Je te remercie pour avoir « pas mal travaillé pour me faire plaisir ».
Un petit conseil si j’ose …
Lorsque tu postes un code sur le Forum, ce code est évidemment destiné à n’importe qui (et pas seulement à toi), donc tu dois te mettre à la place de celui qui va tester le programme et qu’il n’est pas sensé connaitre quelles valeurs doit-il entrer en réponse à une question.
Le concepteur du programme, lui, connait ce que son programme va réaliser en fonctions des valeurs fournies par l’utilisateur : ce n’est pas du tout le cas pour celui qui va utiliser le programme. Dans beaucoup des cas, il reste embarrassé et indécis devant une demande de fournir une valeur, parce qu’il ne maitrise pas le problème posé par le programme.

Après ce charabia (je ne suis pas satisfait de mon exposition de la chose), je veux dire qu’une aide de quelque nature que ce soit (utilisation de HINT, suggestion ou proposition d’une valeur par défaut, ou un petit texte explicatif) peut aider l’utilisateur à fournir des entrées cohérentes et par là à se rendre compte de ce que ce programme va lui apporter.
Dans le cas contraire et ne sachant pas comment interagir avec le programme, il se décourage et le quitte sans savoir ce qu’il a peut-être raté.

Espérant que je ne me suis pas trop mal exprimé, ce n’est qu’un simple avis de ma part.
Maintenant, le bon côté : tu es « parvenu à faire fonctionner ton programme » et ça c’est un vrai plaisir pour toi.
Félicitations !

Merci a tous pour vos conseil
il est vrai que j etais telement contant qu il marche...
Que j ai oublie que l optique n est pas connu de tous comme le serait l electricite.
Je vais m appliquer a faire une aide
juste une question je ne parviens pas a faire de surface concave en 3D
si quelqu un a une idee
merci pour vos encouragement
mindstorm

Bonjour Mindstorm, Smile

Qu'est-ce que tu entends par "surface cave en 3D"?
Est-ce faire un trou dans un terrain? Si c'est ça, je n'ai pas encore réussi à trouver une solution simple.
Autrement, il faut créer un mesh ou plusieurs mesh spécifiques que l'on implantera dans la scène 3d, mais ce n'est pas très facile à faire.
A+ Wink

C'est une surface concave un "arc" creux, contrairement aux arc bombés
Dessiné en texte, ça serait )| contrairement aux surfaces convexes qui feraient (|
Une lentille est souvent composée d'une surface convexe et d'une surface concave: Convexe (( Concave

Bonjour Jicehel, Smile

Ok, une surface convexe on peut la faire en utilisant un box ou un cube aplati dans lequel on imbrique une sphère que l'on déforme avec 3d_scale.
par contre le concave ça me parait plus difficile à faire. Cependant, je dois avoir un objet 3d "dome.3ds" sur mon webdav dans le dossier logiciels avec les programmes 3d_world. En déformant le dôme avec 3d_scale et en le retournant de 180°, je pense qu'on doit peut-être y arriver.
Voilà, la balle est dans le camp de Mindstorm.
A+ Wink

Voilà Mindstorm, tu as de la chance, notre spécialiste en 3D passé par là Very Happy

Et si tu as un problème, on pourra t'aider Mindstorm

bonjour a tous
et merci pour vos reponse
je dois vous presenter mes excuses pour la faute de frappe concave et non pas cave.
j'ai une mauvaise raison: l'ecran de mon telephone est si petit que je tape presque a l'avoeugle.
pour la 3D je pense que cela vas faire l'affaire
en attendant je vais finir une mini aide avec schema en BMP
a bientot
Mindstorm

bonsoir a tous
Rolling Eyes

OUF je vous livre une vertion avec quelques aides sur mon webdaw
il n'empeche que sans notion " l'optique " c'est comme la programmation scratch

pour les courageux, prenez donc deux lentilles mince avec :
S1F1=10
S1S2=80
S2F2=70
avec l'intervalle egal a la somme des deux distances focal
systeme AFOCAL indique que le systeme permet de voir au loint
vous trouverez G=-7
soit le rapport des deux distances focal
vous venez de faire une paire de jumelles grossissement -7
sauf que là l'image est inversé ( a l'envers)

cherchez par vous même pour un grossissement de 7
bon courage
Mindstorm

bonsoir a tous
je vois que l'ecole est loin
1°er element une lentille mince longueur focal -10
2°em element un intervalle de 60
3°em element une lentille mince longueur focal 70

70-10=60
le moins redresse l'image
toujours un systeme AFOCAL la mise au point est reglé sur l'infini pour les jumelles
et la vous venez de faire votre premiere paire de jumelles de taille reduite par rapport a hier et en plus l'image est "droite" dans le bon sens

mindstorm

» IDE Panoramic écrit en Panoramic
» Distorsion optique
» Illusion d'optique
» Illusion d'optique
» Logithèque : une base de données en Panoramic pour Panoramic