sais pas faire

Backup · Message par **Backup** » dim. 22/févr./2009 12:29

@Chercheacomprendre:

quelques règles de principe a connaitre sur le forum :

-lorsque tu poste un code , il dois être en les balises [ code] et [/ code]

-lorsque tu utilise le bouton "Citer" pour reprendre le text de quelqu'un
élimine du message tout ce qui se trouve entre les balises Code , balises compris !!

cela évite d'avoir une citation qui contient encore les listings qui étaient deja posté !!

je viens de passer 5 minutes a rééditer tout tes messages dans ce sens
tu peux allez les regarder , pour comprendre ce que j'ai fait, (j'ai virer les codes que tu reprenais systématiquement dans tes réponses)

la seule exception qui te permette d'inclure un code dans une citation, c'est si, tu apporte une modification de ce code

ou lorsque tu veux attirer l'attention sur une partie d'un code

-et bien sur, ne pas multiplier les topics, concernant un même sujet

sinon on arrive a des trucs, comme ce que je t'ai dis dans l'autre post
on se retrouve plusieurs a t'apporter les mêmes réponses, parce que
les uns ignorent, que d'autres ont déjà répondu

voila

brossden · Message par **brossden** » dim. 22/févr./2009 16:26

Je pense que le code qui suit te conviendra.

J'ai corrigé le programme en plusieurs points !!!!

donc je te propose :

Code : Tout sélectionner

;programme de calcul d'inductance avec la formule de Nagaoka

;code du 19 février 2009

Global  L.F, A.D, B.D, C.D, n.D, K.D, rap.D
Procedure Open_Window()
  OpenWindow(21, 0, 0, 255, 200, "Calcul de self à air", $CF0001) ; fenetre principale
  TextGadget(11, 0, 5,   200, 30, "    Diamètre du mandrin en mm") ;a
  TextGadget(12, 0, 35,  200, 30, "    Longueur de la self en mm") ;b
  TextGadget(13, 0, 65,  200, 30, "        Diamètre du fil en mm") ;c
  TextGadget(14, 0, 95,  200, 30, "             Nombre de spires") ;n
  TextGadget(15, 0, 125, 200, 30, "             Inductance en µH") ;L
  StringGadget(1, 200, 0,   50, 30, "26") ;position a
  StringGadget(2, 200, 30,  50, 30, "26") ;position b
  StringGadget(3, 200, 60,  50, 30, "0.26") ;position c
  StringGadget(4, 200, 90,  50, 30, "100") ;position n
  StringGadget(5, 200, 120, 50, 30, "") ;position L
  FontID1 = LoadFont(1, "Arial Narrow", 12, #PB_Font_Bold)
  TextGadget(20,20,170,200,100,"",#PB_Text_Center)
  SetGadgetFont(20, FontID1)
EndProcedure
Procedure calcul()
  Debug "cal"
  A.D = ValD(GetGadgetText(1) )/10
  B.D = ValD(GetGadgetText(2) )/10
  C.D = ValD(GetGadgetText(3) )
  n.D = ValD(GetGadgetText(4) )
  If A*B*C*n <>0
    rap.D = A/B
    If rap > 400
      MessageRequester("Erreur","Le programme n'est pas prévu pour une telle rapport")
    ElseIf rap >200   : K = 0.011
    ElseIf rap >100   : K = 0.019
    ElseIf rap > 75   : K = 0.035
    ElseIf rap > 50   : K = 0.043 
    ElseIf rap > 25   : K = 0.061 
    ElseIf rap > 10   : K = 0.105 
    ElseIf rap > 9    : K = 0.203 
    ElseIf rap > 8    : K = 0.219 
    ElseIf rap > 7    : K = 0.237 
    ElseIf rap > 6    : K = 0.258 
    ElseIf rap > 5    : K = 0.283 
    ElseIf rap > 4    : K = 0.32 
    ElseIf rap > 3.5  : K = 0.365 
    ElseIf rap > 3    : K = 0.394 
    ElseIf rap > 2.5  : K = 0.429 
    ElseIf rap > 2    : K = 0.472 
    ElseIf rap > 1.75 : K = 0.526 
    ElseIf rap > 1.5  : K = 0.558 
    ElseIf rap > 1.25 : K = 0.595 
    ElseIf rap > 1    : K = 0.638
    ElseIf rap > 0.9  : K = 0.688
    ElseIf rap > 0.8  : K = 0.711
    ElseIf rap > 0.7  : K = 0.735
    ElseIf rap > 0.6  : K = 0.761
    ElseIf rap > 0.5  : K = 0.789
    ElseIf rap > 0.4  : K = 0.818
    ElseIf rap > 0.3  : K = 0.85
    ElseIf rap > 0.25 : K = 0.884
    ElseIf rap > 0.2  : K = 0.902
    ElseIf rap > 0.15 : K = 0.92
    ElseIf rap > 0.10 : K = 0.939
    ElseIf rap > 0.05 : K = 0.959
    ElseIf rap > 0.02 : K = 0.97
    ElseIf rap = 0    : K = 1
    EndIf
    Debug rap
    Debug "K = "+StrD(K)
    L = ( Pow(A*n/B*3.14,2) * K) * B/1000
    SetGadgetText(5, StrF(L,2) )
    If n*C =B*10
      Mess.s="Spires Jointives"
      SetGadgetColor(20,#PB_Gadget_FrontColor,RGB(0,0,255))
    ElseIf n*C>B*10
      Mess.s="Réalisation Impossibles"
      SetGadgetColor(20,#PB_Gadget_FrontColor,RGB(255,0,0))
    ElseIf n*C<B*10
      Mess.s="Spires Non Jointives"
      SetGadgetColor(20,#PB_Gadget_FrontColor,RGB(0,120,0))
    EndIf
    SetGadgetText(20,Mess)
  EndIf
EndProcedure

Open_Window()
calcul()
Repeat
  Event = WaitWindowEvent()
  GadgetID = EventGadget()
  EventType = EventType()
  If EventType = #PB_EventType_Change
    calcul()
  EndIf
Until Event = 16

http://www.carnets-tsf.fr/bobine

chercheacomprendre

brossden a écrit :Je pense que le code qui suit te conviendra.

J'ai corrigé le programme en plusieurs points !!!!

donc je te propose :

http://www.carnets-tsf.fr/bobine

bonjour et merci pour le code amélioré, mais j'ai fais l'essai avec et les résultats ne sont pas ok ...
j'ai pris une référence, et je ne suis pas bon.
dommage car la presentation était super surtout pour les messages.

YB

brossden · Message par **brossden** » dim. 22/févr./2009 17:04

Quel est ta base de calcul STP

Je pense qu'il y a un problème au niveau de la formule :

Attention !! "n" n'est pas le nombre de tour mais la densité de sprires au cm !!!!

chercheacomprendre

chercheacomprendre a écrit :
http://www.carnets-tsf.fr/bobine

bonjour et merci pour le code amélioré, mais j'ai fais l'essai avec et les résultats ne sont pas ok ...
j'ai pris une référence, et je ne suis pas bon.
dommage car la presentation était super surtout pour les messages.

YB[/quote]
avec les valeurs suivantes : 12-25-0.8-16 le code me donne un résultat de 40.07 µH au lieu de 1.367 µH .
il doit y avoir une erreur sur les coefficients K ?
ou la conversion des cm en mm.(facteur 10)
je ne vois pas trop ...
si non le texte en gras centré c'est super

YB

brossden · Message par **brossden** » dim. 22/févr./2009 17:41

Je ne comprend pas chez moi mon code donne 1.19 micro H et le calcul de la formule donne la même valeur :

1.2 / 2.5 = 0.48 ce qui donne K=0.818

n = 16/2.5 = 6.4 spire/cm

L = K(pi x n x D)2 x l / 1000

0.818 * (3.1416 * 6.4 * 1.2)2 * 2.5 / 1000

0.818 * 582.13 * 2.5 / 1000 = 1.19

Ou vois tu une erreur ?

Attention pour moi ta formule est fausse !!

verifie tes calculs pour les valeur que je mets par defaut et qui sont celles du site que je te mets en URL !

chercheacomprendre

brossden a écrit :Je ne comprend pas chez moi mon code donne 1.19 micro H et le calcul de la formule donne la même valeur :

1.2 / 2.5 = 0.48 ce qui donne K=0.818

n = 16/2.5 = 6.4 spire/cm

L = K(pi x n x D)2 x l / 1000

0.818 * (3.1416 * 6.4 * 1.2)2 * 2.5 / 1000

0.818 * 582.13 * 2.5 / 1000 = 1.19

Ou vois tu une erreur ?

Attention pour moi ta formule est fausse !!

verifie tes calculs pour les valeur que je mets par defaut et qui sont celles du site que je te mets en URL !

ah peut-etre que ma formule a ete arrondie, je l'ai trouvée sur le web, il est possible que la différence vienne de là .
je vais y jeté un oeil et faire la modif si non ca tourne bien
yves

Backup · Message par **Backup** » dim. 22/févr./2009 19:16

Dobro a écrit :@Chercheacomprendre:

quelques règles de principe a connaitre sur le forum :

-lorsque tu poste un code , il dois être en les balises [ code] et [/ code]

-lorsque tu utilise le bouton "Citer" pour reprendre le text de quelqu'un
élimine du message tout ce qui se trouve entre les balises Code , balises compris !!

cela évite d'avoir une citation qui contient encore les listings qui étaient deja posté !!

je viens de passer 5 minutes a rééditer tout tes messages dans ce sens
tu peux allez les regarder , pour comprendre ce que j'ai fait, (j'ai virer les codes que tu reprenais systématiquement dans tes réponses)

la seule exception qui te permette d'inclure un code dans une citation, c'est si, tu apporte une modification de ce code
ou lorsque tu veux attirer l'attention sur une partie d'un code

-et bien sur, ne pas multiplier les topics, concernant un même sujet

sinon on arrive a des trucs, comme ce que je t'ai dis dans l'autre post
on se retrouve plusieurs a t'apporter les mêmes réponses, parce que
les uns ignorent, que d'autres ont déjà répondu

voila

chercheacomprendre

tu as tout intérêt a prendre en compte ce que je dit ci dessus !!

j'ai carrément effacer tes posts ci dessus , parce que tu reprends
dans tes messages systématiquement les codes qu'on te propose

j'aimerai bien avoir un accusé réception , c'était pas une suggestion
c'est carrément une demande explicite !

si tu ne comprends pas ma demande signale le

ps: dans un de tes message, il y avait carrement 3 citations-code imbriquées !!

chercheacomprendre

[ok bien noté , mille excuses, et merci pour tout.

Yves.]