>En conclusion, aucun objet ne me semble suceptible de faire
>l'unanimité.
>Celà provient aussi de ce qu'il faut choisir une galaxie "d'été",
>alors qu'avec les mêmes critères, il y aurait plus de 100 galaxies de
>printemps, pour un CE de Juillet.
>Alors je suggère la réflexion suivante: après 7 années d'existence,
>pourquoi CE ne ferai pas un dossier spécial sur une étoile "double
>multiple"?
>Avec les composants A et B, bien lumineux, avec un beau contraste de
>couleurs, un déséquilibre des mv à estimer, et facilement séparables
>dans les petits diamêtres, et les composants B et C (et D, et E...)
>constituant une orbitabe beaucoup plus sérrée, avec AP à mesurer. On
>peut même trouver des multiples avec des composants éloignés de m13,
>14v, et plus.
>Je précise qu'il ne s'agit que d'une idée, une piste de rélexion, et
>qu'au final, c'est Yann qui décide.
>
>Amitiés à tous
>Bertrand
Ce sera donc une etoile double et c'est Bertrand qui sera responsable
de son choix et de la redaction du dossier en question (puisque c'est
moi qui decide :-)))))
Si tu es d'accord Bertrand, je te laisse appliquer les criteres sur
une etoile double (ou multiple ce qui serait encore mieux -et
physique si possible- ) relativement facile et fais nous connaitre
ton choix.
a +
--
Carpe noctem, Yann.
Yann Pothier
11 impasse Canart, 75012 PARIS, FRANCE
yann.pothier@...http://www.astrosurf.com/cielextreme
On Tue, 10 Sep 2002 10:29:53 -0000
"bertrandlaville" <bertrand.laville@...> wrote:
>
> NGC 6207 est visible, VI3, à la LC 80x57, y compris sa condensation
> centrale.
Belle performance !
Le fait qu'elle soit concentree donne une SB plus accessible au - de 200.
En effet, pour Abell 39, une NP, elle est de magv=12 mais de surface=170" ce qui
l'a rend plutot faible en dessous de 300mm, mais plus agreable apres.
Ceci est bien confirme par la valeur de sa SB : 20.
Benji.
~~~~~~~~~~~~~~~~~~~~~/ Handy Book to Science \~~~~~~~~~~~~~~~~~~~~~
If it's green or it wiggles, it's biology. If it stinks, it's chemistry.
If it doesn't work, it's physics. If it's stubborn, it's a computer.
````` This message was made on a Linux Debian raid0 station '''''''
Bonjour à tous,
NGC 6207 est visible, VI3, à la LC 80x57, y compris sa condensation
centrale.
Elle est encore assez haute en Août, et très facile à pointer, grace
à M 13.
Mais je ne pense pas qu'elle soit visible à la L 60
Bertrand
--- Dans cielextreme@y..., Yann POTHIER <yann.pothier@f...> a écrit
> Salut a tous,
>
> Je cherche une idee d'objet pour le dossier special du n° d'Octobre
> 2003: il faut que ce soit une galaxie et facile a observer (genre
> accessible aux lunettes de 60mm:-)
> a vous de m'en suggerer une le plus rapidement possible pour
qu'elle
> puisse apparaitre a la fin du dossier d'octobre 2002.
>
>
> NGC 6834 dans CE n°27 en Octobre 2002
> Amas ouvert dans le Cygne à 19h52m13s, +29°23'46"
>
> M 53 dans CE n°28 en Janvier 2003
> Amas globulaire dans la Chevelure à 13h12m55s, +18°10'07"
>
> Jones-Emberson 1 dans CE n°29 en Avril 2003
> Nébuleuse planétaire dans le Lynx à 07h57m54s, +53°25'20"
>
> PG 1634+706 dans CE n°30 en Juillet 2003
> Quasar de mv=14.8 dans le Dragon à 16h34m29.0s, +70°31'33"
>
> ????? dans CE n°31 en Octobre 2003
>
>
> --
>
> Carpe noctem, Yann.
>
> Yann Pothier
> 11 impasse Canart, 75012 PARIS, FRANCE
> yann.pothier@f...
> http://www.astrosurf.com/cielextreme
Bonjour !
Ouh là là c'est pas facile.
En ce qui concerne la 60 et si je me réfère aux résultats de Bertrand,
seules NGC 7331 et NGC 7217 ont été observées, l'une archi-connue et
l'autre, je pense, pas facile à détailler en visuel avec de gros diamètres.
J'ai déjà essayé NGC 6207 sans succès, mais après les performances de cet
été je peux toujours réessayer.
NGC 6643 ? J'ai déjà eu du mal avec 6503 cet été.
Il a eu des galaxies pointées sans succès dans la Baleine et le Sculpteur,
intéressantes avec de plus gros diamètres mais c'est bas ! (NGC 247, NGC 55,
NGC 300).
Certaines galaxies d'automne pourraient être des tests pour la 60 :
NGC 7793, NGC 1232 dans l'Eridan (spirale de face), (basses toutes les
deux).
Il y a toujours NGC 2655, visible toute l'année ;-) (mais peu de détails).
Peut-être plus intéressant : NGC 6946, si elle n'est pas jugée trop célèbre.
Haute, spires visibles sur des dessins au T200, supernovae, NGC 6939 à côté.
Ou NGC 925 dans le Triangle, très faible à la 60 (plus que 6946) mais qui
présente une belle structure sur les photos.
Ou tout simplement M 74.
Celle-ci est HS car de printemps mais correspond bien aux critères pour un
dossier ultérieur : NGC 4725 dans la Chevelure. Facile à voir à la 60, barre
brillante et structurée pour de plus gros diamètres, deux galaxies compagnon
de mv 13 dans un champ de 1°, et pas si connue.
Amicalement,
Jean-Raphaël
----- Original Message -----
From: Yann POTHIER <yann.pothier@...>
To: <cielextreme@...>
Sent: Monday, September 09, 2002 7:19 PM
Subject: [cielextreme] idees pour les prochains dossiers speciaux
Salut a tous,
Je cherche une idee d'objet pour le dossier special du n° d'Octobre
2003: il faut que ce soit une galaxie et facile a observer (genre
accessible aux lunettes de 60mm:-)
a vous de m'en suggerer une le plus rapidement possible pour qu'elle
puisse apparaitre a la fin du dossier d'octobre 2002.
NGC 6834 dans CE n°27 en Octobre 2002
Amas ouvert dans le Cygne à 19h52m13s, +29°23'46"
M 53 dans CE n°28 en Janvier 2003
Amas globulaire dans la Chevelure à 13h12m55s, +18°10'07"
Jones-Emberson 1 dans CE n°29 en Avril 2003
Nébuleuse planétaire dans le Lynx à 07h57m54s, +53°25'20"
PG 1634+706 dans CE n°30 en Juillet 2003
Quasar de mv=14.8 dans le Dragon à 16h34m29.0s, +70°31'33"
????? dans CE n°31 en Octobre 2003
--
Carpe noctem, Yann.
Yann Pothier
11 impasse Canart, 75012 PARIS, FRANCE
yann.pothier@...http://www.astrosurf.com/cielextreme
Pour vous désinscrire de ce groupe, envoyez un e-mail à :
cielextreme-unsubscribe@...
L'utilisation du service Yahoo! Groupes est soumise à l'acceptation des
Conditions d'utilisation et de la Charte sur la vie privée, disponibles
respectivement sur http://fr.docs.yahoo.com/info/utos.html et
http://fr.docs.yahoo.com/info/privacy.html
NGC 6207 est perceptible à la L150 dans un site correct mais je ne pense pas
effectivement qu'elle le soit à la L60.
>>> bmauclaire@... 10/09/02 10:12:31 >>>
On Tue, 10 Sep 2002 09:41:04 +0200
"JEAN DALLA TORRE" <dalla.torre@...> wrote:
>
>
> Je pense à la galaxie nichée à côté de M 13, je crois 2605 !
Tu veux dire 6207.
JE pense qu'il faille un T150 voir 200 pour la voir.
Mais elle est concentree donc "brillante".
Benji.
~~~~~~~~~~~~~~~~~~~~~/ Handy Book to Science \~~~~~~~~~~~~~~~~~~~~~
If it's green or it wiggles, it's biology. If it stinks, it's chemistry.
If it doesn't work, it's physics. If it's stubborn, it's a computer.
````` This message was made on a Linux Debian raid0 station '''''''
Pour vous désinscrire de ce groupe, envoyez un e-mail à :
cielextreme-unsubscribe@...
L'utilisation du service Yahoo! Groupes est soumise à l'acceptation des
Conditions d'utilisation et de la Charte sur la vie privée, disponibles
respectivement sur http://fr.docs.yahoo.com/info/utos.html et
http://fr.docs.yahoo.com/info/privacy.html
****** Message from InterScan E-Mail VirusWall NT ******
** No virus found in attached file noname.htm
AV/BorderMail un service anti-virus de AIC Network ( www.aic.fr)
***************** End of message ***************
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Ce message a été contrôlé par le service
anti-virus AV/BorderMail.
This mail is checked with AV/BorderMail
A virus scanning Service of
AIC Network - www.central-isp.com
vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
On Tue, 10 Sep 2002 09:41:04 +0200
"JEAN DALLA TORRE" <dalla.torre@...> wrote:
>
>
> Je pense à la galaxie nichée à côté de M 13, je crois 2605 !
Tu veux dire 6207.
JE pense qu'il faille un T150 voir 200 pour la voir.
Mais elle est concentree donc "brillante".
Benji.
~~~~~~~~~~~~~~~~~~~~~/ Handy Book to Science \~~~~~~~~~~~~~~~~~~~~~
If it's green or it wiggles, it's biology. If it stinks, it's chemistry.
If it doesn't work, it's physics. If it's stubborn, it's a computer.
````` This message was made on a Linux Debian raid0 station '''''''
Salut,
Je pense à la galaxie nichée à côté de M 13, je crois 2605 !
A +
Jean DT
----- Original Message -----
From: "bertrandlaville" <bertrand.laville@...>
To: <cielextreme@...>
Sent: Monday, September 09, 2002 9:51 PM
Subject: [cielextreme] Re : idees pour les prochains dossiers speciaux
> --- Dans cielextreme@y..., Yann POTHIER <yann.pothier@f...> a écrit
> > Salut a tous,
> >
> > Je cherche une idee d'objet pour le dossier special du n° d'Octobre
> > 2003: il faut que ce soit une galaxie et facile a observer (genre
> > accessible aux lunettes de 60mm:-)
> > a vous de m'en suggerer une le plus rapidement possible pour
> qu'elle
> > puisse apparaitre a la fin du dossier d'octobre 2002.
> >
> >
> > NGC 6834 dans CE n°27 en Octobre 2002
> > Amas ouvert dans le Cygne à 19h52m13s, +29°23'46"
> >
> > M 53 dans CE n°28 en Janvier 2003
> > Amas globulaire dans la Chevelure à 13h12m55s, +18°10'07"
> >
> > Jones-Emberson 1 dans CE n°29 en Avril 2003
> > Nébuleuse planétaire dans le Lynx à 07h57m54s, +53°25'20"
> >
> > PG 1634+706 dans CE n°30 en Juillet 2003
> > Quasar de mv=14.8 dans le Dragon à 16h34m29.0s, +70°31'33"
> >
> > ????? dans CE n°31 en Octobre 2003
> >
> >
> > --
> >
> > Carpe noctem, Yann.
> >
> > Yann Pothier
> > 11 impasse Canart, 75012 PARIS, FRANCE
> > yann.pothier@f...
> > http://www.astrosurf.com/cielextreme
>
>
> Salut Yann, salut à tous,
>
> Le fichier Excel du Nsog est parfaitement adapté à la question que tu
> as posé, concernant le dossier spécial de CE pour Octobre 2003.
> Il suffit de mettre en oeuvre les filtres automatiques:
> 1) il faut que la galaxie soit observable en été. Donc RA comprise
> entre 17h 30m et 24h 00m
> 2) pour quelle soit visible dans une L60, il faut mv<11.0, et SB<13.0
> 3) il faut qu'elle soit efficacement observable au transit, donc
> dec> -30 /35°
> 4) et bien sur, que ce soit une galaxie :-))
> Avec ces filtres, le fichier montre qu'il n'y a que 6 objets qui
> répondent à ces critères.
> En les visualisant avec Guide 8, on constate que:
> - NGC 7507 est une elliptique, quasiment ronde, sans caractère
> particulier, et donc de peu d'intérêt.
> - NGC 6643 et NGC 7217 sont faibles pour les petits diamêtres.
>
> Le choix devrait donc se faire entre NGC 7331, NGC 7727, et NGC 7793
> - NGC 7331 a toutes les qualités: facile pour les petits diamêtres,
> et 4 compagnons faibles pour les gros diamêtres . Mais elle est archi-
> connue, et les articles, de tous niveaux, s'y rapportant abondent. Il
> me semble que CE n'a rien à gagner à se lancer dans l'aventure.
> Enfin, le dossier aurait un air de famille avec le quintette, dont le
> dossier spécial est tout récent.
> - NGC 7727 n'est pas très brillante, et elle a un compagnon faible,
> NGC 7724, pour les T200 et plus. Mais à part çà, elle n'a rien de
> particulièrement intéressant.
> - NGC 7793, dans Scl, est brillante, large, complêxe. Mais elle est
> basse sur l'horizon.
>
> En conclusion, aucun objet ne me semble suceptible de faire
> l'unanimité.
> Celà provient aussi de ce qu'il faut choisir une galaxie "d'été",
> alors qu'avec les mêmes critères, il y aurait plus de 100 galaxies de
> printemps, pour un CE de Juillet.
> Alors je suggère la réflexion suivante: après 7 années d'existence,
> pourquoi CE ne ferai pas un dossier spécial sur une étoile "double
> multiple"?
> Avec les composants A et B, bien lumineux, avec un beau contraste de
> couleurs, un déséquilibre des mv à estimer, et facilement séparables
> dans les petits diamêtres, et les composants B et C (et D, et E...)
> constituant une orbitabe beaucoup plus sérrée, avec AP à mesurer. On
> peut même trouver des multiples avec des composants éloignés de m13,
> 14v, et plus.
> Je précise qu'il ne s'agit que d'une idée, une piste de rélexion, et
> qu'au final, c'est Yann qui décide.
>
> Amitiés à tous
> Bertrand
>
>
>
> Pour vous désinscrire de ce groupe, envoyez un e-mail à :
> cielextreme-unsubscribe@...
>
>
>
> L'utilisation du service Yahoo! Groupes est soumise à l'acceptation des
> Conditions d'utilisation et de la Charte sur la vie privée, disponibles
> respectivement sur http://fr.docs.yahoo.com/info/utos.html et
> http://fr.docs.yahoo.com/info/privacy.html
>
>
>
>
--- Dans cielextreme@y..., Yann POTHIER <yann.pothier@f...> a écrit
> Salut a tous,
>
> Je cherche une idee d'objet pour le dossier special du n° d'Octobre
> 2003: il faut que ce soit une galaxie et facile a observer (genre
> accessible aux lunettes de 60mm:-)
> a vous de m'en suggerer une le plus rapidement possible pour
qu'elle
> puisse apparaitre a la fin du dossier d'octobre 2002.
>
>
> NGC 6834 dans CE n°27 en Octobre 2002
> Amas ouvert dans le Cygne à 19h52m13s, +29°23'46"
>
> M 53 dans CE n°28 en Janvier 2003
> Amas globulaire dans la Chevelure à 13h12m55s, +18°10'07"
>
> Jones-Emberson 1 dans CE n°29 en Avril 2003
> Nébuleuse planétaire dans le Lynx à 07h57m54s, +53°25'20"
>
> PG 1634+706 dans CE n°30 en Juillet 2003
> Quasar de mv=14.8 dans le Dragon à 16h34m29.0s, +70°31'33"
>
> ????? dans CE n°31 en Octobre 2003
>
>
> --
>
> Carpe noctem, Yann.
>
> Yann Pothier
> 11 impasse Canart, 75012 PARIS, FRANCE
> yann.pothier@f...
> http://www.astrosurf.com/cielextreme
Salut Yann, salut à tous,
Le fichier Excel du Nsog est parfaitement adapté à la question que tu
as posé, concernant le dossier spécial de CE pour Octobre 2003.
Il suffit de mettre en oeuvre les filtres automatiques:
1) il faut que la galaxie soit observable en été. Donc RA comprise
entre 17h 30m et 24h 00m
2) pour quelle soit visible dans une L60, il faut mv<11.0, et SB<13.0
3) il faut qu'elle soit efficacement observable au transit, donc
dec> -30 /35°
4) et bien sur, que ce soit une galaxie :-))
Avec ces filtres, le fichier montre qu'il n'y a que 6 objets qui
répondent à ces critères.
En les visualisant avec Guide 8, on constate que:
- NGC 7507 est une elliptique, quasiment ronde, sans caractère
particulier, et donc de peu d'intérêt.
- NGC 6643 et NGC 7217 sont faibles pour les petits diamêtres.
Le choix devrait donc se faire entre NGC 7331, NGC 7727, et NGC 7793
- NGC 7331 a toutes les qualités: facile pour les petits diamêtres,
et 4 compagnons faibles pour les gros diamêtres . Mais elle est archi-
connue, et les articles, de tous niveaux, s'y rapportant abondent. Il
me semble que CE n'a rien à gagner à se lancer dans l'aventure.
Enfin, le dossier aurait un air de famille avec le quintette, dont le
dossier spécial est tout récent.
- NGC 7727 n'est pas très brillante, et elle a un compagnon faible,
NGC 7724, pour les T200 et plus. Mais à part çà, elle n'a rien de
particulièrement intéressant.
- NGC 7793, dans Scl, est brillante, large, complêxe. Mais elle est
basse sur l'horizon.
En conclusion, aucun objet ne me semble suceptible de faire
l'unanimité.
Celà provient aussi de ce qu'il faut choisir une galaxie "d'été",
alors qu'avec les mêmes critères, il y aurait plus de 100 galaxies de
printemps, pour un CE de Juillet.
Alors je suggère la réflexion suivante: après 7 années d'existence,
pourquoi CE ne ferai pas un dossier spécial sur une étoile "double
multiple"?
Avec les composants A et B, bien lumineux, avec un beau contraste de
couleurs, un déséquilibre des mv à estimer, et facilement séparables
dans les petits diamêtres, et les composants B et C (et D, et E...)
constituant une orbitabe beaucoup plus sérrée, avec AP à mesurer. On
peut même trouver des multiples avec des composants éloignés de m13,
14v, et plus.
Je précise qu'il ne s'agit que d'une idée, une piste de rélexion, et
qu'au final, c'est Yann qui décide.
Amitiés à tous
Bertrand
Salut a tous,
Je cherche une idee d'objet pour le dossier special du n° d'Octobre
2003: il faut que ce soit une galaxie et facile a observer (genre
accessible aux lunettes de 60mm:-)
a vous de m'en suggerer une le plus rapidement possible pour qu'elle
puisse apparaitre a la fin du dossier d'octobre 2002.
NGC 6834 dans CE n°27 en Octobre 2002
Amas ouvert dans le Cygne à 19h52m13s, +29°23'46"
M 53 dans CE n°28 en Janvier 2003
Amas globulaire dans la Chevelure à 13h12m55s, +18°10'07"
Jones-Emberson 1 dans CE n°29 en Avril 2003
Nébuleuse planétaire dans le Lynx à 07h57m54s, +53°25'20"
PG 1634+706 dans CE n°30 en Juillet 2003
Quasar de mv=14.8 dans le Dragon à 16h34m29.0s, +70°31'33"
????? dans CE n°31 en Octobre 2003
--
Carpe noctem, Yann.
Yann Pothier
11 impasse Canart, 75012 PARIS, FRANCE
yann.pothier@...http://www.astrosurf.com/cielextreme
Salut à tous,
après le fichier sur le Night Sky Obsever's Guide (à propos, avez
vous trouvé des corrections à apporter), je vous propose aujourd'hui
un fichier sur les étoiles doubles orbitales.
Ce fichier a été publié il y a quelques années par Mel Bartels, et je
n'ai fait qu'essayer d'améliorer sa présentation.
Il est basé sur la 4ème édition du catalogue de Worley et Heintz, et
donc légèrement dépassé puisque nous en sommes à la 5ème édition.
Mais vous verrez qu'il est très convivial, et que les modifications
apportées par la dernière édition reste limitées à une amélioration
de la précision des orbites, et non à des changements importants.
De toutes façons, si vous voulez avoir les dernières valeurs, Guide 8
a un programme spécifique :
1) commutez les données utilisateur
2) choisissez: binaires à orbite connue
3) affichez celle que vous voulez connaitre
4) grossissez avec le niveau max, n° 20
5) mesurez l'angle et la distance entre les deux composantes, pour la
date pour laquelle vous avez paramétré Guide 8.
Pour en revenir au programme Excel que je vous propose, celui ci a le
mérite d'afficher l'ellipse de l'orbite, et les dates correspondant
aux points principaux de l'ellipse. Vous pouvez donc visualiser
immédiatement
- si les mois ou les années à venir rendront l'observation plus ou
moins difficile (ce que ne permet pas Guide, tout au moins
visuellement)
- si donc il est "urgent d'attendre", ou s'il faut vous dépêcher,
- à partir de quelle date (approximativement tout au moins) vous
pouvez avoir une chance de séparer le couple,
- etc...
Plus, bien entendu, tous les tris possibles que permet Excel.
A bientôt pour un prochain message!
Bertrand
Bonsoir à tous,
J'ai lu tradivement mais avec beaucoup d'intérêt le dernier article
relatif aux ANR, écrit par Laurent Ferrero, dans le numéro de juillet
de CE. Dommage pour la découverte, ça sera pour la prochaine fois !
Il se trouve que dans le même temps, B. Laville, avec lequel
j'entretiens une discussion nourrie sur Guide, me parlait d'un
nouveau "plug-in" pour notre logiciel préféré, qui fournit des
données complémentaires sur les amas ouverts non-NGC et non-IC. En
ayant exploré plus en détail ce fichier, j'y ai découvert aussi des
amas Alessi xx, Luginbuhl-skiff xx, BH xx.... Justement, tiens,
tiens , les voilà les nouveaux amas ... Je lance donc GUIDE8 et
constate sans difficultés qu'effectivement, ils sont bien représentés
dans le logiciel et qu'on les trouve par le menu "aller à " et
option "aller à objet.tdf".
Si vous souhaitez donc profiter de ce catalogue plus riche à travers
GUIDE, vous pouvez télécharger le plug-in sur le site de project
pluto (c'est celui qui est daté du 7 août 2002) : www.projectpluto.com
Pour corser le tout , il y a un "bug" dans un fichier , qu'il
faut "écraser" de la façon suivante :
-rapatrier dans votre répertoire Guide les différents fichiers comme
indiqué
-ouvrir avec le bloc-note le fichier OPENCLUSTER.tdf
-la première ligne affiche "file E:\..........\clusters.txt"
-remplacer cette ligne par "file clusters.txt"
-sortir en sauvegardant
Et voilà avec cette modif ça marche !
J'espère que j'ai été clair ! Sinon n'hésitez pas à me poser des
questions.
Philippe LAURENT.
Bonsoir à tous,
J'ai commencé à regarder la liste mise à disposition. Je pense que
c'est une très bonne idée de disposer de ces données.
J'ai commencé par subsituer les . par des , de facon à pouvoir trier
cette liste
Il y a quand meme quelques objets qui ont attirés mon attention:
IC 3355
AND II
Ces deux objets ont une magnitude négative (respectivement -4,9 et -
2,9)
Je pense qu'il doit s'agir d'une erreur ...
A bientot
VSPU
--- Dans cielextreme@y..., "bertrandlaville" <bertrand.laville@f...>
a écrit
> Bonjour à toutes et à tous,
>
> Le NSOG s'est imposé, depuis sa parution en 1998, comme la
référence
> en matière de recueil d'observa tions .
> Comme la Revue des constellations, dans les années 60, ou le
> Burnham's, dans les années 70, il "découpe" le ciel par
> constellation .
> Ceci est très agréable lorsqu'on veut se cantonner à une région
> relativement limitée, que ce soit à la préparation ou pendant la
> phase d'observations .
> Inversement, ce mode de répartition des objets ne permet pas
> d'envisager des objectifs d'observations du genre :
> - comme la turbulence est forte ce soir, je vais axer mes
> observations ssur les nébuleuses brillantes proches du zénith,
> - je voudrais observer les amas ouverts de grand diamêtre, pour
> tester mon nouveau Nagler de 31mm :-)))
> - puisque je suis aux Rap, et que je peux observer dans un Dobson
de
> 600mm, je voudrais me préparer une liste de NP de m14v et plus,
> - et puisque je suis toujours aux Rap, (et qu'il a encore plû hier
> soir !), je vais tenter ma chance, ce soir, sur les galaxies
proches
> de l'horizon sud,
> etc, etc,...
> Pour ce faire, il faudrait avoir tout le NSOG sur un seul fichier,
et
> pouvoir faire des tri à la demande.
> En somme, il faudrait le NSOG sous fichier Excel .
>
> Ca vous plairaît ? Rien de plus simple : allez dans la
> rubrique "fichiers", et téléchargez-le !
> Ne soyez pas étonnés, le plus gros du travail existait déja, un
> tableau de ce genre ayant été publié courant Juillet 2002, dans le
> Groupe de discussion de Skymap Pro 8 .
> Néanmoins, il comportait beaucoup d'erreurs ou d'ommissions: les
> constellations du Dauphin, du Dragon, du Lynx, et du Loup avaient
été
> oubliées .
> Celle de la Licorne ne comportait qu'un seul objet, et Ophiuchus,
> deux .
> 45 des objets Messiers figuraient sous leur numéros NGC, et les 65
> autres sous leur dénomination Messier .
> Le fichier tel qu'il était ( et tel qu'il est toujours sur le site
> de Skymap ) était donc pratiquement inutilisable.
> J'ai essayé de réparer toutes les erreurs, et j'en ai profité pour
> ajouter un tri par saison . Je pense qu'il est plus commode de
> commencer par trier en 4 un fichier de 3000 lignes, et ça permet
> aussi de s'affranchir des objets d'hiver quand on est en été, et
vice
> versa.
> Enfin, j'ai essayé de le rendre plus attrayant et plus
> compréhensible, en améliorant sa présentation
> Néanmoins, c'est un travail assez fastidieux, et j'ai probablement
> oublié certaines erreurs. J'ai même peut être contribué à en
> introduire de nouvelles .
> Ne vous privez donc pas de controler, et de vérifier, et d'avertir
de
> vos découvertes : la liste sert à çà .
>
> Voilà, c'est tout pour aujourd'hui !
> Amitiés à tous
>
> Bertrand
Bonjour à tous !
Fabrice Morat m'a envoyé un article appelé "A fond les Pleiades". J'ai pour
idée de le complèter avec vos dessins ou photos de cet amas (au cas ou ça
déborderait, je le couvrirai sur plusieurs numeros ;-) )
Si vous avez des articles à envoyer pour le numero d'octobre, vous pouvez le
faire jusqu'au 15 septembre.
A bientôt,
Jean-Raphaël
Bonjour,
Ci-joint une petite liste bien interessante.
Benjamin.
-----FW: <NEBBLJAOGLFIGDHKGLDMCEDLCKAA.FJKraljic@...>-----
Date: Sun, 1 Sep 2002 22:56:01 -0700
To: Planetary_Nebulae@yahoogroups.com
Subject: RE: [Planetary_Nebulae] Shells, Crowns, and Halos
Ted--
I don't know if there is a difference between crowns and outer shells.
Unless someone distinguishes otherwise, I think both are one of the same.
Of course, this is not to say a planetary cannot exhibit multiple shells
within its structure, as in the case of NGC 6543.
Examples in no particular order:
Crowns include:
NGC 2392
NGC 1535
NGC 2022
NGC 6804
NGC 7662 (has a crown and outer halo)
NGC 3242 (has a crown and outer halo)*
NGC 6826 (has a crown and outer halo)
*Curious, would the outer ring structure of NGC 3242 be classified as a
crown?
Outer halos include (use an OIII filter and don't get confused with eyepiece
condensation):
NGC 3242
NGC 6543 / IC 4677
NGC 7662
NGC 2371/72
NGC 6826
IC 418
NGC 6210
M 76
There are many more examples, but these are some of the best. In the next
month or so, I hope to post a list of roughly under thirty PNe with
observable outer halos.
You'll notice, outer halos are a diffuse glow surrounding the planetary
usually twice the diameter of the disc, whereas crowns are shells associated
with the disc. For example, compare NGC 6543 with NGC 1535, and you'll see
the difference. By the way, IC 4677 is a bright knot in NGC 6543's outer
halo 40" west of the planetary.
-FRANK
-----Original Message-----
From: twforte@... [mailto:twforte@...]
Sent: Sunday, September 01, 2002 7:15 AM
To: Planetary_Nebulae@yahoogroups.com
Subject: [Planetary_Nebulae] Shells, Crowns, and Halos
I am seeking recommendations for examples of planetary nebulae with
(observable) 1. Outer shells 2. Crowns 3. Halos. In particular, I would
like
to identify objects that emphasize the distinction between these
structures,
sort of prototypical examples of each, if there are any.
To be useful to me, the objects would have to be visible from my latitude
of
36 degrees and at my aperture of 45 cm. But I would be happy to see
descriptions of objects outside of those parameters as well. Thanks.
Ted Forte
Virginia Beach, Virginia
Yahoo! Groups Sponsor
ADVERTISEMENT
To unsubscribe from this group, send an email to:
Planetary_Nebulae-unsubscribe@egroups.com
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
To unsubscribe from this group, send an email to:
Planetary_Nebulae-unsubscribe@egroups.com
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
--------------End of forwarded message-------------------------
~~~~~~~~~~~~~~~~~~~/ Handy Book to Science \~~~~~~~~~~~~~~~~~~~~~~~
If it's green or it wiggles, it's biology. If it stinks, it's chemistry.
If it doesn't work, it's physics. If it's stubborn, it's a computer.
~~~~~~~~ This message was sent by XFMail on a Linux station ~~~~~~~~
Bonjour à toutes et à tous,
Le NSOG s'est imposé, depuis sa parution en 1998, comme la référence
en matière de recueil d'observa tions .
Comme la Revue des constellations, dans les années 60, ou le
Burnham's, dans les années 70, il "découpe" le ciel par
constellation .
Ceci est très agréable lorsqu'on veut se cantonner à une région
relativement limitée, que ce soit à la préparation ou pendant la
phase d'observations .
Inversement, ce mode de répartition des objets ne permet pas
d'envisager des objectifs d'observations du genre :
- comme la turbulence est forte ce soir, je vais axer mes
observations ssur les nébuleuses brillantes proches du zénith,
- je voudrais observer les amas ouverts de grand diamêtre, pour
tester mon nouveau Nagler de 31mm :-)))
- puisque je suis aux Rap, et que je peux observer dans un Dobson de
600mm, je voudrais me préparer une liste de NP de m14v et plus,
- et puisque je suis toujours aux Rap, (et qu'il a encore plû hier
soir !), je vais tenter ma chance, ce soir, sur les galaxies proches
de l'horizon sud,
etc, etc,...
Pour ce faire, il faudrait avoir tout le NSOG sur un seul fichier, et
pouvoir faire des tri à la demande.
En somme, il faudrait le NSOG sous fichier Excel .
Ca vous plairaît ? Rien de plus simple : allez dans la
rubrique "fichiers", et téléchargez-le !
Ne soyez pas étonnés, le plus gros du travail existait déja, un
tableau de ce genre ayant été publié courant Juillet 2002, dans le
Groupe de discussion de Skymap Pro 8 .
Néanmoins, il comportait beaucoup d'erreurs ou d'ommissions: les
constellations du Dauphin, du Dragon, du Lynx, et du Loup avaient été
oubliées .
Celle de la Licorne ne comportait qu'un seul objet, et Ophiuchus,
deux .
45 des objets Messiers figuraient sous leur numéros NGC, et les 65
autres sous leur dénomination Messier .
Le fichier tel qu'il était ( et tel qu'il est toujours sur le site
de Skymap ) était donc pratiquement inutilisable.
J'ai essayé de réparer toutes les erreurs, et j'en ai profité pour
ajouter un tri par saison . Je pense qu'il est plus commode de
commencer par trier en 4 un fichier de 3000 lignes, et ça permet
aussi de s'affranchir des objets d'hiver quand on est en été, et vice
versa.
Enfin, j'ai essayé de le rendre plus attrayant et plus
compréhensible, en améliorant sa présentation
Néanmoins, c'est un travail assez fastidieux, et j'ai probablement
oublié certaines erreurs. J'ai même peut être contribué à en
introduire de nouvelles .
Ne vous privez donc pas de controler, et de vérifier, et d'avertir de
vos découvertes : la liste sert à çà .
Voilà, c'est tout pour aujourd'hui !
Amitiés à tous
Bertrand
On 29-Aug-2002 bertrandlaville wrote:
> On an other hand, I have not read any answer to the question I wrote
> on the list, some weeks ago :
> is it posible to display visual magnitudes for deep sky objects, as
> you did, successfully, for stars ?
>
Pour les NP, j'ai ce qu'il faut.
En effet, j'ai mis en ligne une base de donnees [Youpi Yann ;))]
permettant d'acceder a moultes renseignements tels que le magv lorsqu'elle est
definie, la SB (surface brightness), les obs positives ou negatives de Kent
Wallace, Steve Gottlieb, Jack Marling, la ref aux pages des atals et un tas
d'autres infos. Utile pour preparer ses plans d'observations.
L'url est : http://bmauclaire.free.fr/Astronomie/Npdb
Faites-moi part de vos remarques si vous en avez sachant que pour l'instant la
presentation reste sobre.
Par ailleurs, j'edite un CDROM contenant tout ce catalogue bien sur, mais
chaque lignes possedent en plus les liens vers les images des NP contenues sur
le CD, les dessins des observateurs, carte de cahmp lorsque la NP est delicate
et donnees spectroscopiques (intensites des raies) [en cours d'integration]
ainsi que beaucoup d'autres donnees : articles de recherches sur la
modelisation 3D, evolution stellaire, etc.
Pour voir la page de pilotage du CD :
http://bmauclaire.free.fr/Astronomie/Les_NP/CD_NP
Clear sky,
Benjamin.
~~~~~~~~~~~~~~~~~~~/ Handy Book to Science \~~~~~~~~~~~~~~~~~~~~~~~
If it's green or it wiggles, it's biology. If it stinks, it's chemistry.
If it doesn't work, it's physics. If it's stubborn, it's a computer.
~~~~~~~~ This message was sent by XFMail on a Linux station ~~~~~~~~
Bonjour à toutes et à tous,
j'espère que je ne vous ennuie pas avec tous ces messages, mais j'ai
encore quelque chose à vous dire, ce soir !
A la suite de mon appel à l'aide pour vos commentaires sur Guide 8,
j'ai reçu une étude très intéressante et détaillée de Philippe
Laurent .
Mon analyse, ajoutée à la sienne m'a permis d'envoyer un message, sur
la liste des Utilisateurs de Guide, à Bill Gray, son concepteur .
Ceux d'entre vous qui parlent la langue ce Shakespeare pourront être
intéressés par son objet, et surtout par la response de Bil Gray .
Les voici :
Object: Steve Coe's observations
Hello Bill,
with some friends of Ciel Extrême, the french association of deep sky
observers, it seems we have pointed at some problems concerning the
way Steve Coe's observations are displayed .
No problems when you ask for more infos of a NGC/IC DSO.
Unfortunately, it's not the same for other objects .
Here are few examples:
Basel 6, BD +30 3639, Berk 86, Biur 2, Collinder 419, Collinder 421,
DoDz 11, M1-92, and MGC +8-36-3 are not displayed when you go to
them, but you read the Steve Coe's notes of all all them, in one way,
when you display IC 5146, the last IC object preceding them in the
Steve Coe's notes folder in the CD .
Notes stop when they meet the ones of PK 68+1.2, but these are not
displayed with this PK .
Same problem with UGC 2034, PK 110-12.1, Abell 347, and also all the
double stars, as, for example, STF 3042 .
Thaks in advance for what you will be able to do.
On an other hand, I have not read any answer to the question I wrote
on the list, some weeks ago :
is it posible to display visual magnitudes for deep sky objects, as
you did, successfully, for stars ?
All these questions must not hide what really Guide is : Ciel Extrême
is preparing a detailed article concerning Guide, the title of wich
will be "Fantastic Guide 8" !
Réponse de Bill J Gray <pluto@p...>
Date: Thu Aug 29, 2002 7:10 pm
Subject: Steve Coe notes
A late reply to Bertrand Laville's bug report: he had found that
"more info" for IC 5146 gave you Steve Coe's observations of this
object,
but also gave comments from the same source for several additional,
unrelated objects. I've fixed this.
Bertrand also pointed out that Steve Coe's data gives observational
notes for many non-NGC/IC objects, but that Guide doesn't make use of
this. This is true; I've yet to rig up Guide to take advantage of
those notes.
(note de BL : to rig up => installer, mettre en service [un
équipement])
Ouf, j'espère que vous avez tout compris !
A bientôt
Bertrand
OK,
Dès que j'aurais fait la version word "imprimable" facilement, je le mettrai
sur le forum.
Par contre, ce ne sera pas avant fin septembre, vacances oblige...
Je vous ferai signe quand ce sera mis.
Raphaël Guinamard
----- Original Message -----
From: phlaurent2002 <apilaure@...>
To: <cielextreme@...>
Sent: Wednesday, August 28, 2002 10:09 PM
Subject: [cielextreme] Re : Correspondance N° d'objet NGC/N° de carte
des atlas courants.
Bonsoir Raphaël.
Ton fichier (dans la forme réduite que tu proposes) m'intéresse
beaucoup, mais devant l'ampleur de la macro que tu as écrite, mon
naturel "ramier" prend le dessus : peux-tu le poster tout fait sur le
forum, comme Bertrand son fichier relatif aux étoiles doubles ?
Je pense qu'il doit être volumineux, mais nous avons 20MO d'espace
dans cette zone et ça doit rentrer. Il pourra être effacé par la
suite, le temps que les personnes intéressées le récupère.
En te remerciant par avance, cordialement, Philippe.
--- Dans cielextreme@y..., Raphaël Guinamard <rguinamard@i...> a écrit
> J'avais envoyé sur la liste éclipsia il y a quelques mois un
message (voir
> ci dessous) avec une
> macro trouvant quel était le n° de carte Sky atlas et Urano(s) en
fonction
> des coordonnées d'un objet NGC ou IC (14000 objets).
> J'ai maintenant enrichi la macro pour avoir aussi le n° de page sur
le
> millénium star atlas.
> On a donc dans un ficher excel quelque chose du genre
> N°NGC infosdiverses sky atlas Uranometria ed 1 Uranometria
ed 2
> Millenium star atlas
>
> NGC 1 xxxxxxxxxxx 4,D,SE Vol I,n°125; NO Vol I,n°
63,G,NE
> Vol I,n°150,SE
> NGC 2 xxxxxxxxxxx 4,D,SE Vol I,n°125; NO Vol I,n°
63,G,NE
> Vol I,n°150,SE
> etc
> Avec pour notation : n°carte; G ou D (page de G ou D); n° de
volume ;
> NE/NO/SE/SO (dans la page, s'il est en NordEst, NO, SO ou
> SE).
>
> Bien sur, il y a plein d'autres infos au milieu, que j'ai symbolisé
en
> xxxxxx.
> Reste maintenant à imprimer cela en format A3 pour avoir un listing
et
> trouver facilement le n° de carte de son atlas préféré à partir du
n°
> d'objet que l'on recherche. Je vais m'y ateler dans les prochains
jours,
> mais en ne mettant que le n° de l'objet, sa mag, son type et les n°
de carte
> pour ne pas alourdir le tout. Ceux qui sont intéressé par un tel
fichier
> (word) à imprimer, peuvent m'écrire (rguinamard@i...).
> Voici donc mon message du 16/02/2002 avec la macro réactualisé en
dessous:
>
>
> Il y a quelques semaines, je cherchais une correspondance entre le
N°
> d'objet NGC et le n° de la carte correspondante du sky atlas 2000
et de
> l'uranometria (1er et derniere edition d'octobre 2001).
> Quelque chose du genre
> N°NGC sky atlas Uranometria ed 1 Uranometria ed 2
>
> NGC 1 2 225 105
> NGC 2 4 125
85
> etc
>
> J'ai finalement trouve un fichier excel avec toutes les coordonees
des
> objets NGC et IC: http://www.astrosurf.com/lombry/download.htm
> On m'a aussi donne un programme type pour ce genre de choset
> http://www.skypub.com/resources/software/basic/programs/chart.bas
> et je l'ai modifie pour qu'il soit operationnel sur ce fichier
excel (en
> visual basic).
> J'en ai profite pour ajouter 2-3 amelioration: l'endroit de la
carte ou est
> situe l'objet: page de G ou D, et, dans la page, s'il est en NE,
NO, SO ou
> SE.
> J'ai aussi ajoute les n° de carte de la nouvelle edition de
l'uranometria
> (sortie en octobre).
> Donc pour avoir pour chacun des 14000 objets de ce fichier les n°
de carte
> du sky atlas 2000 Urano "1er" et derniere edition et millénium,
vous devez:
> 1) telecharger le fichier excel a
> http://www.astrosurf.com/lombry/download.htm
> 2) Dans Excel (le mien est en office 97...), dans le menu
outil/macro
> cliquer sur visual basic editor
> 3) Dans la fenetre visual basic qui s'ouvre alors, dans le
menu "insertion"
> cliquer sur module
> 4) coller le programme ci dessous
> 5) fermer visual basic
> 6) Dans Excel, dans le menu outil/macro cliquer sur macro puis
selectionner
> la macro Ncarte et executez la.
> La macro prend a peu pres 1 minute (sur mon pentium III, 500 MHZ)
pour
> s'executer et ecrit dans les colonnes AJ, AK, AL, AM les n° de
cartes pour
> chacun des 14000 objets de la feuille excel.
> En esperant que cela puisse vous servir
> Raphael Guinamard
> Programme a copier:
>
>
> Sub NCarte()
> Dim RA, Decl, MidDecl, TestOrientation, AjoutHemSud As Single
> Dim ligne As Object
> Dim NSkyAtlas, NUranoV1, NuranoV2, NMillenium As Variant
> Dim OrientSA, OrientU1, OrientU2, OrientMil As String
> '
> ' mise en place des titres de colonnes
> '
> Range("AJ2").Select
> ActiveCell.FormulaR1C1 = "Sky atlas 2000"
> Range("AK2").Select
> ActiveCell.FormulaR1C1 = "Uranometria Ed avant 2002"
>
> Range("AL2").Select
> ActiveCell.FormulaR1C1 = "Uranometria Ed après 2002"
> Range("AJ2:AL2").Select
>
> Range("Am2").Select
> ActiveCell.FormulaR1C1 = "Millenium star atlas"
> Range("AJ2:Am2").Select
> With Selection
> .WrapText = True
> End With
> Columns("AJ:Am").Select
> Range("AJ2").Activate
> Selection.ColumnWidth = 12
> Range("AJ2").Select
>
> '
> 'pour toutes les lignes de la région courante en ayant descendu de
2 lignes
> For Each ligne In Range("A3").CurrentRegion.Offset(2, 0).Rows
> 'teste si on est pas sur une ligne sans coordonnées
> If ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value + ligne.Cells
(1,
> 10).Value = 0 Then
> GoTo 10
> End If
> 'variable de position dans la carte NE, SE, NO ou SO à réinitialiser
> OrientSA = ""
> OrientU1 = ""
> OrientU2 = ""
> 'calcul de RA
> RA = ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value / 60 +
ligne.Cells(1,
> 10).Value / 3600
> 'calcul de decl
> If ligne.Cells(1, 12).Value >= 0 Then
> Decl = ligne.Cells(1, 12).Value + ligne.Cells(1, 14).Value / 60
+
> ligne.Cells(1, 16).Value / 3600
>
> Else
> Decl = ligne.Cells(1, 12).Value - ligne.Cells(1, 14).Value /
60 -
> ligne.Cells(1, 16).Value / 3600
>
> End If '
>
>
> ' N° carte skyatlas 2000
>
> Call skyatlas(ligne, RA, Decl)
>
> ' N° carte Uranometria 1ere édition (avant nov 2001)
>
> Call Urano1erEd(ligne, RA, Decl)
>
> ' N° carte Uranometria 2eme édition (après nov 2001)
>
> Call Urano2emeEd(ligne, RA, Decl)
>
> ' N° carte Millénium
>
> Call Millenium(ligne, RA, Decl)
>
> 10 Next ligne
>
> End Sub
> Sub skyatlas(ligne, RA, Decl)
> '
> ' N° carte skyatlas 2000
> '
> '
> Select Case Abs(Decl)
> Case 0 To 20
> NSkyAtlas = 9 + Int((RA + 2.5) / 3)
> If NSkyAtlas = 9 Then NSkyAtlas = 17
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > 0 Then OrientSA = "N" Else OrientSA = "S"
> '
> If Decl < 0 Then
> If OrientSA = "N" Then OrientSA = "S" Else OrientSA
= "N"
> End If
> '
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientSA, (RA + 2.5) / 3 - Int((RA +
2.5) / 3))
> '
> Case 20.001 To 50
> NSkyAtlas = 4 + Int(RA / 4)
> If Decl < 0 Then NSkyAtlas = NSkyAtlas + 14
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > 35 Then OrientSA = "N" Else OrientSA = "S"
> '
> If Decl < 0 Then
> If OrientSA = "N" Then OrientSA = "S" Else OrientSA
= "N"
> End If
> '
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientSA, RA / 4 - Int(RA / 4))
>
> Case Else '50 à 90
> NSkyAtlas = 1 + Int(RA / 8)
> If Decl < 0 Then NSkyAtlas = NSkyAtlas + 23
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > 70 Then OrientSA = "N" Else OrientSA = "S"
> '
> If Decl < 0 Then
> If OrientSA = "N" Then OrientSA = "S" Else OrientSA
= "N"
> End If
> '
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientSA, RA / 8 - Int(RA / 8))
>
> End Select
> ligne.Cells(1, 36).Value = NSkyAtlas & OrientSA
>
> End Sub
>
> Sub Urano1erEd(ligne, RA, Decl)
>
> '
> '
> ' N° carte Uranometria 1ere édition (avant nov 2001)
> '
> '
> Select Case Abs(Decl)
> Case 0 To 5.5
> 'NUranoV1 = 215 + Int((RA + 16 / 60) * 60 / 32) simplifié en
> NUranoV1 = 215 + Int(RA * 1.875 + 0.5)
> If NUranoV1 = 260 Then NUranoV1 = 215
> 'détermination de la partie de la carte ou se situe l'objet:
> 'orientation N/S
> If Decl > 0 Then OrientU1 = "N" Else OrientU1 = "S"
> ' puis O/E
> If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 5.5001 To 17
> 'NUranoV1 = 170 + Int((RA + 16 / 60) * 60 / 32) simplifié en
> NUranoV1 = 170 + Int(RA * 1.875 + 0.5)
> If NUranoV1 = 215 Then NUranoV1 = 170
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 11.25, NUranoV1, 90, OrientU1)
>
> 'détermination de l'orientation E/O
> If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 17.0001 To 28
> 'NUranoV1 = 125 + Int((RA + 16 / 60) * 60 / 32) simplifié en
> NUranoV1 = 125 + Int(RA * 1.875 + 0.5)
> If NUranoV1 = 170 Then NUranoV1 = 125
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 22.5, NUranoV1, 180, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 28.0001 To 39
> ' NUranoV1 = 89 + Int((RA + 20 / 60) * 60 / 40) simplifié en
> NUranoV1 = 89 + Int(RA * 1.5 + 0.5)
> If NUranoV1 = 125 Then NUranoV1 = 89
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 33.5, NUranoV1, 261, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA * 1.5 + 0.5 - Int(RA * 1.5 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 39.0001 To 50
> ' NUranoV1 = 59 + Int((RA + 24 / 60) * 60 / 48) simplifié en
> NUranoV1 = 59 + Int(RA / 0.8 + 0.5)
> If NUranoV1 = 89 Then NUranoV1 = 59
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 44.5, NUranoV1, 327, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA / 0.8 + 0.5 - Int(RA / 0.8 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 50.0001 To 61
> ' NUranoV1 = 35 + Int((RA + 30 / 60) * 60 / 60) simplifié en
> NUranoV1 = 35 + Int(RA + 0.5)
> If NUranoV1 = 59 Then NUranoV1 = 35
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> Call orientationNS(Decl, 55.5, NUranoV1, 381, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA + 0.5 - Int(RA + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 61.0001 To 72.5
> 'NUranoV1 = 15 + Int((RA + 36 / 60) * 60 / 72) simplifié en
> NUranoV1 = 15 + Int(RA / 1.2 + 0.5)
> If NUranoV1 = 35 Then NUranoV1 = 15
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 66.75, NUranoV1, 425, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 72.5001 To 84.5
> 'NUranoV1 = 3 + Int((RA + 50 / 60) * 60 / 120) simplifié en
> NUranoV1 = 3 + Int(RA / 2 + 1 / 2.4)
> If NUranoV1 = 15 Then NUranoV1 = 3
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 78.5, NUranoV1, 457, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA / 2 + 1 / 2.4 - Int(RA / 2 + 1 / 2.4) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 84.50001 To 90
> NUranoV1 = 1 + Int(RA / 12)
> '
> If RA > 6 And RA < 18 Then OrientU1 = "S" Else OrientU1
= "N"
> If Decl < 0 Then
> NUranoV1 = 474 - NUranoV1
> If OrientU1 = "N" Then OrientU1 = "S" Else OrientU1
= "N"
> End If
> '
> If RA > 0 And RA < 12 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
> '
> Case Else
> MsgBox "Ascension droite >90° pour ligne" & ligne.Row
& "!!!"
> NUranoV1 = "prob: Ascension droite >90°"
>
> End Select
> '
> ' test du n° de vol puis affichage
> '
> If Decl > 5.5 Then
> NUranoV1 = "Vol I,n°" & NUranoV1 & "; " & OrientU1
> ElseIf Decl < -5.5 Then
> NUranoV1 = "Vol II,n°" & NUranoV1 & "; " & OrientU1
> Else
> NUranoV1 = "Vol I&II,n°" & NUranoV1 & "; " & OrientU1
> End If
> ligne.Cells(1, 37).Value = NUranoV1
> End Sub
>
> Sub Urano2emeEd(ligne, RA, Decl)
>
> '
> '
> ' N° carte Uranometria 2ème édition (après nov 2001)
> '
> '
> Select Case Abs(Decl)
> Case 0 To 5.5
> 'NUranoV2 = 121 - Int((RA + 36/ 60) * 60 / 72) simplifié en
> NuranoV2 = 121 - Int(RA / 1.2 + 0.5)
> 'si on est sur la partie droite de la première carte 101,
on tombe
> sur 121...
> If NuranoV2 = 121 Then NuranoV2 = 101
> '
> 'détermination de la partie de la carte ou se situe l'objet:
> 'orientation N/S
> If Decl > 0 Then OrientU2 = "N" Else OrientU2 = "S"
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2
+ 0.5))
>
> Case 5.5001 To 17.5
> 'NUranoV2 = 101 - Int((RA + 36 / 60) * 60 / 72) simplifié en
> NuranoV2 = 101 - Int(RA / 1.2 + 0.5)
> '
> If NuranoV2 = 101 Then NuranoV2 = 81
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 11.5, NuranoV2, 40, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2
+ 0.5))
> '
>
> Case 17.5001 To 29.5
> 'NUranoV2 = 81 - Int((RA + 40 / 60) * 60 / 80) simplifié en
> NuranoV2 = 81 - Int(RA * 0.75 + 0.5)
> If NuranoV2 = 81 Then NuranoV2 = 63
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 23.5, NuranoV2, 78, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA *
0.75 + 0.5))
> '
> '
> Case 29.50001 To 40.5
> ' NUranoV2 = 63 - Int((RA + 40 / 60) * 60 / 80) simplifié en
> NuranoV2 = 63 - Int(RA * 0.75 + 0.5)
> If NuranoV2 = 63 Then NuranoV2 = 45
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 35, NuranoV2, 114, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA *
0.75 + 0.5))
>
> Case 40.5001 To 51.5
> ' NUranoV2 = 45- Int((RA + 48 / 60) * 60 / 96) simplifié en
> NuranoV2 = 45 - Int(RA / 1.6 + 0.5)
> If NuranoV2 = 45 Then NuranoV2 = 30
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 46, NuranoV2, 147, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 1.6 + 0.5 - Int(RA / 1.6
+ 0.5))
> '
> '
> Case 51.5001 To 62.5
> ' NUranoV2 = 30 - Int((RA + 60 / 60) * 60 / 120) simplifié
en
> NuranoV2 = 30 - Int(RA / 2 + 0.5)
> If NuranoV2 = 30 Then NuranoV2 = 18
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 57, NuranoV2, 174, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 2 + 0.5 - Int(RA / 2 +
0.5))
>
> '
> Case 62.50001 To 73.5
> ' NUranoV2 = 18 - Int((RA + 72 / 60) * 60 / 144) simplifié
en
> NuranoV2 = 18 - Int(RA / 2.4 + 0.5)
> If NuranoV2 = 18 Then NuranoV2 = 8
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 68, NuranoV2, 196, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 2.4 + 0.5 - Int(RA / 2.4
+ 0.5))
> '
> '
> Case 73.5001 To 84.5
> ' NUranoV2 = 8 - Int((RA + 120 / 60) * 60 / 240) simplifié
en
> NuranoV2 = 8 - Int(RA / 4 + 0.5)
> If NuranoV2 = 8 Then NuranoV2 = 2
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 79, NuranoV2, 212, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 4 + 0.5 - Int(RA / 4 +
0.5))
> '
> '
> Case 84.50001 To 90
> NuranoV2 = 1
> If RA > 6 And RA < 18 Then OrientU2 = "N" Else OrientU2
= "S"
> If Decl < 0 Then
> NuranoV2 = 220
> If OrientU2 = "N" Then OrientU2 = "S" Else OrientU2
= "N"
> End If
> '
> If RA > 0 And RA < 12 Then
> OrientU2 = ",G," & OrientU2 & "O"
> Else
> OrientU2 = ",D," & OrientU2 & "E"
> End If
> '
> Case Else
> MsgBox "Ascension droite >90° pour ligne" & ligne.Row
& "!!!"
> NuranoV2 = "prob: Ascension droite >90°"
>
> End Select
> '
> ' test du n° de volume puis affichage
> '
> If Decl > -5.5 Then
> NuranoV2 = "Vol I,n°" & NuranoV2 & OrientU2
> Else
> NuranoV2 = "Vol II,n°" & NuranoV2 & OrientU2
> End If
> ligne.Cells(1, 38).Value = NuranoV2
>
> End Sub
> Sub Millenium(ligne, RA, Decl)
>
> '
> '
> ' N° carte Millénium star atlas
> '
> '
> ' Pour le millénium, on passe par une variable RAMil qui est
> ' le RA -0 , -8 ou -16h selon la partie du ciel ou on est
> If RA > 16 Then
> RAMil = RA - 16
> ElseIf RA > 8 Then
> RAMil = RA - 8
> Else
> RAMil = RA
> End If
>
> Select Case Abs(Decl)
> Case 0 To 3
> 'NMillenium = 270 - Int(RAMil * 60 / 20) simplifié en
> NMillenium = 270 - Int(RAMil * 3)
> '
> 'détermination de la partie de la carte ou se situe l'objet:
> 'orientation N/S
> If Decl > 0 Then OrientMil = "N" Else OrientMil = "S"
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
>
> Case 3.00001 To 9
> 'NMillenium = 246 - Int(RAMil* 60 / 20) simplifié en
> NMillenium = 246 - Int(RAMil * 3)
> '
> Call orientationNS(Decl, 6, NMillenium, 48, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
> '
>
> Case 9.0001 To 15
> NMillenium = 222 - Int(RAMil * 3)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 12, NMillenium, 96, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
> '
> '
> Case 15.0001 To 21
> NMillenium = 198 - Int(RAMil * 3)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 18, NMillenium, 144, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
>
> Case 21.0001 To 27
> NMillenium = 174 - Int(RAMil * 3)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 24, NMillenium, 192, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
> '
> '
> Case 27.0001 To 33
> NMillenium = 150 - Int(RAMil * 60 / 21.8181)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 30, NMillenium, 238, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int
(RAMil *
> 60 / 21.8181))
>
> '
> Case 33.00001 To 39
> NMillenium = 128 - Int(RAMil * 60 / 21.8181)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 36, NMillenium, 282, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int
(RAMil *
> 60 / 21.8181))
> '
> '
> Case 39.0001 To 45
> ' NMillenium = 106 - Int(RAMil * 60 / 24) simplifié en
> NMillenium = 106 - Int(RAMil * 2.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 42, NMillenium, 324, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil *
2.5))
> '
> '
> Case 45.0001 To 51
> ' NMillenium = 86 - Int(RAMil * 60 / 24) simplifié en
> NMillenium = 86 - Int(RAMil * 2.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 48, NMillenium, 364, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil *
2.5))
> '
> '
> Case 51.0001 To 57
> ' NMillenium = 66 - Int(RAMil * 60 / 30) simplifié en
> NMillenium = 66 - Int(RAMil * 2)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 54, NMillenium, 400, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 2 - Int(RAMil * 2))
> '
> '
> Case 57.0001 To 63
> NMillenium = 50 - Int(RAMil * 60 / 34.2857)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 60, NMillenium, 430, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 34.2857 - Int
(RAMil *
> 60 / 34.2857))
> '
> '
> Case 63.0001 To 69
> ' NMillenium = 36 - Int(RAMil * 60 / 40) simplifié en
> NMillenium = 36 - Int(RAMil * 1.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 66, NMillenium, 456, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 1.5 - Int(RAMil *
1.5))
> '
> '
> Case 69.0001 To 75
> ' NMillenium = 24 - Int(RAMil * 60 / 48) simplifié en
> NMillenium = 24 - Int(RAMil * 60 / 48)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 72, NMillenium, 478, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 48 - Int
(RAMil * 60 /
> 48))
> '
> '
> Case 75.0001 To 81
> ' NMillenium = 14 - Int(RAMil * 60 / 60) simplifié en
> NMillenium = 14 - Int(RAMil)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 78, NMillenium, 496, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil - Int(RAMil))
> '
> '
> Case 81.0001 To 86
> ' NMillenium = 6 - Int(RAMil * 60 / 120) simplifié en
> NMillenium = 6 - Int(RAMil * 0.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 83.5, NMillenium, 508, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 0.5 - Int(RAMil *
0.5))
> '
> '
>
> Case 86.00001 To 90
> NMillenium = 1
> If RAMil > 4 And RAMil < 16 Then NMillenium = 2
> If RAMil > 10 And RAMil < 22 Then OrientMil = "N" Else
OrientMil =
> "S"
> If Decl < 0 Then
> NMillenium = NMillenium + 514
> If OrientMil = "N" Then OrientMil = "S" Else OrientMil
= "N"
> End If
> '
> 'If RAMil > 0 And RAMil < 12 Then
> ' OrientMil = ",G," & OrientMil & "O"
> 'Else
> ' OrientMil = ",D," & OrientMil & "E"
> 'End If
> '
> Case Else
> MsgBox "Ascension droite >90° pour ligne" & ligne.Row
& "!!!"
> NMillenium = "prob: Ascension droite >90°"
>
> End Select
> '
> ' test du n° de volume puis affichage
> '
> If RA < 8 Then
> NMillenium = "Vol I,n°" & NMillenium & OrientMil
> ElseIf RA < 16 Then
> NMillenium = "Vol II,n°" & NMillenium + 516 & OrientMil
> Else
> NMillenium = "Vol III,n°" & NMillenium + 1032 & OrientMil
> End If
> ligne.Cells(1, 39).Value = NMillenium
>
> End Sub
> Sub orientationNS(Decl, MidDecl, Nurano, AjoutHemSud, Orient)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > MidDecl Then Orient = "N" Else Orient = "S"
> '
> If Decl < 0 Then
> Nurano = Nurano + AjoutHemSud
> If Orient = "N" Then Orient = "S" Else Orient = "N"
> End If
>
> End Sub
> Sub orientationEO(Orient, TestOrientation)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Select Case TestOrientation
> Case 0 To 0.25
> Orient = ",D," & Orient & "E"
> Case 0.25 To 0.5
> Orient = ",D," & Orient & "O"
> Case 0.5 To 0.75
> Orient = ",G," & Orient & "E"
> Case 0.75 To 1
> Orient = ",G," & Orient & "O"
> End Select
> End Sub
> Sub orientationEOMil(Orient, TestOrientation)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Select Case TestOrientation
> Case 0 To 0.5
> Orient = "," & Orient & "E"
> Case 0.5 To 1
> Orient = "," & Orient & "O"
> End Select
> End Sub
Pour vous désinscrire de ce groupe, envoyez un e-mail à :
cielextreme-unsubscribe@...
L'utilisation du service Yahoo! Groupes est soumise à l'acceptation des
Conditions d'utilisation et de la Charte sur la vie privée, disponibles
respectivement sur http://fr.docs.yahoo.com/info/utos.html et
http://fr.docs.yahoo.com/info/privacy.html
Bonjour à tous et à toutes (c'est à dire à Carine Souplet !)
Je confirme les valeurs du tableau de séparations des doubles
serrées, d'abord parceque les calculs sont tirés des données de Paul
Couteau, ce qui est, quand même une référence, ensuite parce mes
observations sont en accord avec ces valeurs .
Avec mon LX200/254, les Naglers 4.8 et 7mm, et lorsque la turbulence
le permet, évidemment, je sépare complètement des couples équilibrés
avec rhô = 0.55", et je mets en évidence des olives, donc des
duplicités, jusqu'à 0.35" à 0.32" .
Ci après, trois compte-rendus à titre de détails .
72 Peg / BU 720 / ADS 16836, m4.97/6.13v, rhô = 0.53", AP = 96°
(1998.6)
14 08 1998 Chabottes (05), Alt 1050m
T3, P4 (pleine lune, c'est pourquoi j'observe des étoiles doubles),
S3/363 4/530
Note: je ne connais pas le rhô quand j'observe
x363 et 530 les deux observations sont identiques, et
constituent, à ce jour, la
meilleure observ. d'un couple sérré et entièrement
séparé: l'exemple du livre!
Couple séparé et bien séparé.
composantes égales, séparées par un très mince filet
noir. C'est LA limite
pour une séparation complète et non tangente
L'observation est faite avec un S un peu fort, mais
elle est parfaite et
certaine. Il n'y a pas d'applatissement significatif
des disques.
Elle peut servir de test pour le T254
Il est clair qu'avec 1/100ème de seconde de moins, les
disques seraient
tangents ou sécants
Note le 30 07 2002 : l'application du tableau de Paul Couteau,
pour l'image des disques en fonction de rhô,
donne pour un T254, et pour une séparation complète => 0.55" !
72 Peg, rhô = 0.53", AP = 99° (2002.6)
02 08 2002 Chabottes
mvlonUMi 6.0, T2, P1.5, S4/530
x530 C'est superbe !
Et je confirme pleinement mon souvenir de 1998 .
Couple entièrement séparé, par un très mince filet bien noir .
delta mv~0.5 à 0.7, et PA 95°
Couple brillant .
Principale jaune, compagnon jaune légèrement verdâtre .
Beau couple, beau spectacle, belle séparation !
Note : attention à bien avoir la tête la ligne des yeux
perpendiculaire au tube.
J'ai mesuré 3 fois le PA à 75°,
avant de m'apercevoir que je regardais avec la tête en oblique à 20° !
HD 188753 / HO 581 / ADS 13125, m7.41/8.72v, rhô = 0.34", AP = 101°
(2002.6)
20 01 2002, Chabottes
T2, P2, S3-4/363 4-5/530
lune 141°
x363 et mieux x530 Duplicité soupçonnée,
mon dessin est représentatif .
Compagnon estimé en PA 101°, sans le connaitre (!),
ce qui valide l'observation
Delta mv~0.5 à 1
Note le lendemain à la mise au propre :
mon dessin montre que si le compagnon était de même mv que la
principale,
l'allongement serait de 1.5,
et Couteau donne dans ce cas, pour le LX254, 0.355" !
Intéressante observation !
Pour ce qui est de la collimation, Yann est le grand spécialiste !
Amitiés
Bertrand
Bonsoir à tous,
J'ai posté une image de M104 dans l'album photo du groupe pour
l'inaugurer !
Il s'agit d'une image que j'ai obtenue avec deux amis il y a bien 10
ans de cela (ça nous rajeunit pas !) avec le T520 de Puymichel (20
min. de pose sur TP2415 hyper) .
Je l'ai comparé avec un dessin qui se trouve page 47 d'Astronomie du
ciel profond de S. Brunier (édition 88). Il se trouve que quelques
faibles objets , que j'avais cru être de simples étoiles, seraient en
fait des amas globulaires de M104. Néanmoins, S. Brunier ne cite pas
d'où il tient cette information... Ce sont les objets situés dans les
rectangles noirs.
La magnitude limite à partir des étoiles du cliché semble être un peu
au delà de 18, toujours d'après le bouquin de SB.
Je me dis que vu la distance de M104 il faudrait qu'ils soient
monstrueux pour les détecter ! Qu'en pensez vous ?
Avez vous trouvé des informations à ce sujet quelque part , internet
ou autre qui puisse permettre de valider (ou pas) cette hypothèse ?
Merci de votre aide !
Bonsoir Raphaël.
Ton fichier (dans la forme réduite que tu proposes) m'intéresse
beaucoup, mais devant l'ampleur de la macro que tu as écrite, mon
naturel "ramier" prend le dessus : peux-tu le poster tout fait sur le
forum, comme Bertrand son fichier relatif aux étoiles doubles ?
Je pense qu'il doit être volumineux, mais nous avons 20MO d'espace
dans cette zone et ça doit rentrer. Il pourra être effacé par la
suite, le temps que les personnes intéressées le récupère.
En te remerciant par avance, cordialement, Philippe.
--- Dans cielextreme@y..., Raphaël Guinamard <rguinamard@i...> a écrit
> J'avais envoyé sur la liste éclipsia il y a quelques mois un
message (voir
> ci dessous) avec une
> macro trouvant quel était le n° de carte Sky atlas et Urano(s) en
fonction
> des coordonnées d'un objet NGC ou IC (14000 objets).
> J'ai maintenant enrichi la macro pour avoir aussi le n° de page sur
le
> millénium star atlas.
> On a donc dans un ficher excel quelque chose du genre
> N°NGC infosdiverses sky atlas Uranometria ed 1 Uranometria
ed 2
> Millenium star atlas
>
> NGC 1 xxxxxxxxxxx 4,D,SE Vol I,n°125; NO Vol I,n°
63,G,NE
> Vol I,n°150,SE
> NGC 2 xxxxxxxxxxx 4,D,SE Vol I,n°125; NO Vol I,n°
63,G,NE
> Vol I,n°150,SE
> etc
> Avec pour notation : n°carte; G ou D (page de G ou D); n° de
volume ;
> NE/NO/SE/SO (dans la page, s'il est en NordEst, NO, SO ou
> SE).
>
> Bien sur, il y a plein d'autres infos au milieu, que j'ai symbolisé
en
> xxxxxx.
> Reste maintenant à imprimer cela en format A3 pour avoir un listing
et
> trouver facilement le n° de carte de son atlas préféré à partir du
n°
> d'objet que l'on recherche. Je vais m'y ateler dans les prochains
jours,
> mais en ne mettant que le n° de l'objet, sa mag, son type et les n°
de carte
> pour ne pas alourdir le tout. Ceux qui sont intéressé par un tel
fichier
> (word) à imprimer, peuvent m'écrire (rguinamard@i...).
> Voici donc mon message du 16/02/2002 avec la macro réactualisé en
dessous:
>
>
> Il y a quelques semaines, je cherchais une correspondance entre le
N°
> d'objet NGC et le n° de la carte correspondante du sky atlas 2000
et de
> l'uranometria (1er et derniere edition d'octobre 2001).
> Quelque chose du genre
> N°NGC sky atlas Uranometria ed 1 Uranometria ed 2
>
> NGC 1 2 225 105
> NGC 2 4 125
85
> etc
>
> J'ai finalement trouve un fichier excel avec toutes les coordonees
des
> objets NGC et IC: http://www.astrosurf.com/lombry/download.htm
> On m'a aussi donne un programme type pour ce genre de choset
> http://www.skypub.com/resources/software/basic/programs/chart.bas
> et je l'ai modifie pour qu'il soit operationnel sur ce fichier
excel (en
> visual basic).
> J'en ai profite pour ajouter 2-3 amelioration: l'endroit de la
carte ou est
> situe l'objet: page de G ou D, et, dans la page, s'il est en NE,
NO, SO ou
> SE.
> J'ai aussi ajoute les n° de carte de la nouvelle edition de
l'uranometria
> (sortie en octobre).
> Donc pour avoir pour chacun des 14000 objets de ce fichier les n°
de carte
> du sky atlas 2000 Urano "1er" et derniere edition et millénium,
vous devez:
> 1) telecharger le fichier excel a
> http://www.astrosurf.com/lombry/download.htm
> 2) Dans Excel (le mien est en office 97...), dans le menu
outil/macro
> cliquer sur visual basic editor
> 3) Dans la fenetre visual basic qui s'ouvre alors, dans le
menu "insertion"
> cliquer sur module
> 4) coller le programme ci dessous
> 5) fermer visual basic
> 6) Dans Excel, dans le menu outil/macro cliquer sur macro puis
selectionner
> la macro Ncarte et executez la.
> La macro prend a peu pres 1 minute (sur mon pentium III, 500 MHZ)
pour
> s'executer et ecrit dans les colonnes AJ, AK, AL, AM les n° de
cartes pour
> chacun des 14000 objets de la feuille excel.
> En esperant que cela puisse vous servir
> Raphael Guinamard
> Programme a copier:
>
>
> Sub NCarte()
> Dim RA, Decl, MidDecl, TestOrientation, AjoutHemSud As Single
> Dim ligne As Object
> Dim NSkyAtlas, NUranoV1, NuranoV2, NMillenium As Variant
> Dim OrientSA, OrientU1, OrientU2, OrientMil As String
> '
> ' mise en place des titres de colonnes
> '
> Range("AJ2").Select
> ActiveCell.FormulaR1C1 = "Sky atlas 2000"
> Range("AK2").Select
> ActiveCell.FormulaR1C1 = "Uranometria Ed avant 2002"
>
> Range("AL2").Select
> ActiveCell.FormulaR1C1 = "Uranometria Ed après 2002"
> Range("AJ2:AL2").Select
>
> Range("Am2").Select
> ActiveCell.FormulaR1C1 = "Millenium star atlas"
> Range("AJ2:Am2").Select
> With Selection
> .WrapText = True
> End With
> Columns("AJ:Am").Select
> Range("AJ2").Activate
> Selection.ColumnWidth = 12
> Range("AJ2").Select
>
> '
> 'pour toutes les lignes de la région courante en ayant descendu de
2 lignes
> For Each ligne In Range("A3").CurrentRegion.Offset(2, 0).Rows
> 'teste si on est pas sur une ligne sans coordonnées
> If ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value + ligne.Cells
(1,
> 10).Value = 0 Then
> GoTo 10
> End If
> 'variable de position dans la carte NE, SE, NO ou SO à réinitialiser
> OrientSA = ""
> OrientU1 = ""
> OrientU2 = ""
> 'calcul de RA
> RA = ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value / 60 +
ligne.Cells(1,
> 10).Value / 3600
> 'calcul de decl
> If ligne.Cells(1, 12).Value >= 0 Then
> Decl = ligne.Cells(1, 12).Value + ligne.Cells(1, 14).Value / 60
+
> ligne.Cells(1, 16).Value / 3600
>
> Else
> Decl = ligne.Cells(1, 12).Value - ligne.Cells(1, 14).Value /
60 -
> ligne.Cells(1, 16).Value / 3600
>
> End If '
>
>
> ' N° carte skyatlas 2000
>
> Call skyatlas(ligne, RA, Decl)
>
> ' N° carte Uranometria 1ere édition (avant nov 2001)
>
> Call Urano1erEd(ligne, RA, Decl)
>
> ' N° carte Uranometria 2eme édition (après nov 2001)
>
> Call Urano2emeEd(ligne, RA, Decl)
>
> ' N° carte Millénium
>
> Call Millenium(ligne, RA, Decl)
>
> 10 Next ligne
>
> End Sub
> Sub skyatlas(ligne, RA, Decl)
> '
> ' N° carte skyatlas 2000
> '
> '
> Select Case Abs(Decl)
> Case 0 To 20
> NSkyAtlas = 9 + Int((RA + 2.5) / 3)
> If NSkyAtlas = 9 Then NSkyAtlas = 17
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > 0 Then OrientSA = "N" Else OrientSA = "S"
> '
> If Decl < 0 Then
> If OrientSA = "N" Then OrientSA = "S" Else OrientSA
= "N"
> End If
> '
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientSA, (RA + 2.5) / 3 - Int((RA +
2.5) / 3))
> '
> Case 20.001 To 50
> NSkyAtlas = 4 + Int(RA / 4)
> If Decl < 0 Then NSkyAtlas = NSkyAtlas + 14
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > 35 Then OrientSA = "N" Else OrientSA = "S"
> '
> If Decl < 0 Then
> If OrientSA = "N" Then OrientSA = "S" Else OrientSA
= "N"
> End If
> '
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientSA, RA / 4 - Int(RA / 4))
>
> Case Else '50 à 90
> NSkyAtlas = 1 + Int(RA / 8)
> If Decl < 0 Then NSkyAtlas = NSkyAtlas + 23
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > 70 Then OrientSA = "N" Else OrientSA = "S"
> '
> If Decl < 0 Then
> If OrientSA = "N" Then OrientSA = "S" Else OrientSA
= "N"
> End If
> '
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientSA, RA / 8 - Int(RA / 8))
>
> End Select
> ligne.Cells(1, 36).Value = NSkyAtlas & OrientSA
>
> End Sub
>
> Sub Urano1erEd(ligne, RA, Decl)
>
> '
> '
> ' N° carte Uranometria 1ere édition (avant nov 2001)
> '
> '
> Select Case Abs(Decl)
> Case 0 To 5.5
> 'NUranoV1 = 215 + Int((RA + 16 / 60) * 60 / 32) simplifié en
> NUranoV1 = 215 + Int(RA * 1.875 + 0.5)
> If NUranoV1 = 260 Then NUranoV1 = 215
> 'détermination de la partie de la carte ou se situe l'objet:
> 'orientation N/S
> If Decl > 0 Then OrientU1 = "N" Else OrientU1 = "S"
> ' puis O/E
> If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 5.5001 To 17
> 'NUranoV1 = 170 + Int((RA + 16 / 60) * 60 / 32) simplifié en
> NUranoV1 = 170 + Int(RA * 1.875 + 0.5)
> If NUranoV1 = 215 Then NUranoV1 = 170
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 11.25, NUranoV1, 90, OrientU1)
>
> 'détermination de l'orientation E/O
> If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 17.0001 To 28
> 'NUranoV1 = 125 + Int((RA + 16 / 60) * 60 / 32) simplifié en
> NUranoV1 = 125 + Int(RA * 1.875 + 0.5)
> If NUranoV1 = 170 Then NUranoV1 = 125
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 22.5, NUranoV1, 180, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 28.0001 To 39
> ' NUranoV1 = 89 + Int((RA + 20 / 60) * 60 / 40) simplifié en
> NUranoV1 = 89 + Int(RA * 1.5 + 0.5)
> If NUranoV1 = 125 Then NUranoV1 = 89
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 33.5, NUranoV1, 261, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA * 1.5 + 0.5 - Int(RA * 1.5 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 39.0001 To 50
> ' NUranoV1 = 59 + Int((RA + 24 / 60) * 60 / 48) simplifié en
> NUranoV1 = 59 + Int(RA / 0.8 + 0.5)
> If NUranoV1 = 89 Then NUranoV1 = 59
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 44.5, NUranoV1, 327, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA / 0.8 + 0.5 - Int(RA / 0.8 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 50.0001 To 61
> ' NUranoV1 = 35 + Int((RA + 30 / 60) * 60 / 60) simplifié en
> NUranoV1 = 35 + Int(RA + 0.5)
> If NUranoV1 = 59 Then NUranoV1 = 35
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> Call orientationNS(Decl, 55.5, NUranoV1, 381, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA + 0.5 - Int(RA + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 61.0001 To 72.5
> 'NUranoV1 = 15 + Int((RA + 36 / 60) * 60 / 72) simplifié en
> NUranoV1 = 15 + Int(RA / 1.2 + 0.5)
> If NUranoV1 = 35 Then NUranoV1 = 15
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 66.75, NUranoV1, 425, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 72.5001 To 84.5
> 'NUranoV1 = 3 + Int((RA + 50 / 60) * 60 / 120) simplifié en
> NUranoV1 = 3 + Int(RA / 2 + 1 / 2.4)
> If NUranoV1 = 15 Then NUranoV1 = 3
> '
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 78.5, NUranoV1, 457, OrientU1)
>
> 'détermination de l'orientation E/O
> '
> If RA / 2 + 1 / 2.4 - Int(RA / 2 + 1 / 2.4) > 0.5 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
>
> Case 84.50001 To 90
> NUranoV1 = 1 + Int(RA / 12)
> '
> If RA > 6 And RA < 18 Then OrientU1 = "S" Else OrientU1
= "N"
> If Decl < 0 Then
> NUranoV1 = 474 - NUranoV1
> If OrientU1 = "N" Then OrientU1 = "S" Else OrientU1
= "N"
> End If
> '
> If RA > 0 And RA < 12 Then
> OrientU1 = OrientU1 & "O"
> Else
> OrientU1 = OrientU1 & "E"
> End If
> '
> Case Else
> MsgBox "Ascension droite >90° pour ligne" & ligne.Row
& "!!!"
> NUranoV1 = "prob: Ascension droite >90°"
>
> End Select
> '
> ' test du n° de vol puis affichage
> '
> If Decl > 5.5 Then
> NUranoV1 = "Vol I,n°" & NUranoV1 & "; " & OrientU1
> ElseIf Decl < -5.5 Then
> NUranoV1 = "Vol II,n°" & NUranoV1 & "; " & OrientU1
> Else
> NUranoV1 = "Vol I&II,n°" & NUranoV1 & "; " & OrientU1
> End If
> ligne.Cells(1, 37).Value = NUranoV1
> End Sub
>
> Sub Urano2emeEd(ligne, RA, Decl)
>
> '
> '
> ' N° carte Uranometria 2ème édition (après nov 2001)
> '
> '
> Select Case Abs(Decl)
> Case 0 To 5.5
> 'NUranoV2 = 121 - Int((RA + 36/ 60) * 60 / 72) simplifié en
> NuranoV2 = 121 - Int(RA / 1.2 + 0.5)
> 'si on est sur la partie droite de la première carte 101,
on tombe
> sur 121...
> If NuranoV2 = 121 Then NuranoV2 = 101
> '
> 'détermination de la partie de la carte ou se situe l'objet:
> 'orientation N/S
> If Decl > 0 Then OrientU2 = "N" Else OrientU2 = "S"
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2
+ 0.5))
>
> Case 5.5001 To 17.5
> 'NUranoV2 = 101 - Int((RA + 36 / 60) * 60 / 72) simplifié en
> NuranoV2 = 101 - Int(RA / 1.2 + 0.5)
> '
> If NuranoV2 = 101 Then NuranoV2 = 81
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 11.5, NuranoV2, 40, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2
+ 0.5))
> '
>
> Case 17.5001 To 29.5
> 'NUranoV2 = 81 - Int((RA + 40 / 60) * 60 / 80) simplifié en
> NuranoV2 = 81 - Int(RA * 0.75 + 0.5)
> If NuranoV2 = 81 Then NuranoV2 = 63
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 23.5, NuranoV2, 78, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA *
0.75 + 0.5))
> '
> '
> Case 29.50001 To 40.5
> ' NUranoV2 = 63 - Int((RA + 40 / 60) * 60 / 80) simplifié en
> NuranoV2 = 63 - Int(RA * 0.75 + 0.5)
> If NuranoV2 = 63 Then NuranoV2 = 45
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 35, NuranoV2, 114, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA *
0.75 + 0.5))
>
> Case 40.5001 To 51.5
> ' NUranoV2 = 45- Int((RA + 48 / 60) * 60 / 96) simplifié en
> NuranoV2 = 45 - Int(RA / 1.6 + 0.5)
> If NuranoV2 = 45 Then NuranoV2 = 30
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 46, NuranoV2, 147, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 1.6 + 0.5 - Int(RA / 1.6
+ 0.5))
> '
> '
> Case 51.5001 To 62.5
> ' NUranoV2 = 30 - Int((RA + 60 / 60) * 60 / 120) simplifié
en
> NuranoV2 = 30 - Int(RA / 2 + 0.5)
> If NuranoV2 = 30 Then NuranoV2 = 18
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 57, NuranoV2, 174, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 2 + 0.5 - Int(RA / 2 +
0.5))
>
> '
> Case 62.50001 To 73.5
> ' NUranoV2 = 18 - Int((RA + 72 / 60) * 60 / 144) simplifié
en
> NuranoV2 = 18 - Int(RA / 2.4 + 0.5)
> If NuranoV2 = 18 Then NuranoV2 = 8
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 68, NuranoV2, 196, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 2.4 + 0.5 - Int(RA / 2.4
+ 0.5))
> '
> '
> Case 73.5001 To 84.5
> ' NUranoV2 = 8 - Int((RA + 120 / 60) * 60 / 240) simplifié
en
> NuranoV2 = 8 - Int(RA / 4 + 0.5)
> If NuranoV2 = 8 Then NuranoV2 = 2
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 79, NuranoV2, 212, OrientU2)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEO(OrientU2, RA / 4 + 0.5 - Int(RA / 4 +
0.5))
> '
> '
> Case 84.50001 To 90
> NuranoV2 = 1
> If RA > 6 And RA < 18 Then OrientU2 = "N" Else OrientU2
= "S"
> If Decl < 0 Then
> NuranoV2 = 220
> If OrientU2 = "N" Then OrientU2 = "S" Else OrientU2
= "N"
> End If
> '
> If RA > 0 And RA < 12 Then
> OrientU2 = ",G," & OrientU2 & "O"
> Else
> OrientU2 = ",D," & OrientU2 & "E"
> End If
> '
> Case Else
> MsgBox "Ascension droite >90° pour ligne" & ligne.Row
& "!!!"
> NuranoV2 = "prob: Ascension droite >90°"
>
> End Select
> '
> ' test du n° de volume puis affichage
> '
> If Decl > -5.5 Then
> NuranoV2 = "Vol I,n°" & NuranoV2 & OrientU2
> Else
> NuranoV2 = "Vol II,n°" & NuranoV2 & OrientU2
> End If
> ligne.Cells(1, 38).Value = NuranoV2
>
> End Sub
> Sub Millenium(ligne, RA, Decl)
>
> '
> '
> ' N° carte Millénium star atlas
> '
> '
> ' Pour le millénium, on passe par une variable RAMil qui est
> ' le RA -0 , -8 ou -16h selon la partie du ciel ou on est
> If RA > 16 Then
> RAMil = RA - 16
> ElseIf RA > 8 Then
> RAMil = RA - 8
> Else
> RAMil = RA
> End If
>
> Select Case Abs(Decl)
> Case 0 To 3
> 'NMillenium = 270 - Int(RAMil * 60 / 20) simplifié en
> NMillenium = 270 - Int(RAMil * 3)
> '
> 'détermination de la partie de la carte ou se situe l'objet:
> 'orientation N/S
> If Decl > 0 Then OrientMil = "N" Else OrientMil = "S"
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
>
> Case 3.00001 To 9
> 'NMillenium = 246 - Int(RAMil* 60 / 20) simplifié en
> NMillenium = 246 - Int(RAMil * 3)
> '
> Call orientationNS(Decl, 6, NMillenium, 48, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
> '
>
> Case 9.0001 To 15
> NMillenium = 222 - Int(RAMil * 3)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 12, NMillenium, 96, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
> '
> '
> Case 15.0001 To 21
> NMillenium = 198 - Int(RAMil * 3)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 18, NMillenium, 144, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
>
> Case 21.0001 To 27
> NMillenium = 174 - Int(RAMil * 3)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 24, NMillenium, 192, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
> '
> '
> Case 27.0001 To 33
> NMillenium = 150 - Int(RAMil * 60 / 21.8181)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 30, NMillenium, 238, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int
(RAMil *
> 60 / 21.8181))
>
> '
> Case 33.00001 To 39
> NMillenium = 128 - Int(RAMil * 60 / 21.8181)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 36, NMillenium, 282, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int
(RAMil *
> 60 / 21.8181))
> '
> '
> Case 39.0001 To 45
> ' NMillenium = 106 - Int(RAMil * 60 / 24) simplifié en
> NMillenium = 106 - Int(RAMil * 2.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 42, NMillenium, 324, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil *
2.5))
> '
> '
> Case 45.0001 To 51
> ' NMillenium = 86 - Int(RAMil * 60 / 24) simplifié en
> NMillenium = 86 - Int(RAMil * 2.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 48, NMillenium, 364, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil *
2.5))
> '
> '
> Case 51.0001 To 57
> ' NMillenium = 66 - Int(RAMil * 60 / 30) simplifié en
> NMillenium = 66 - Int(RAMil * 2)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 54, NMillenium, 400, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 2 - Int(RAMil * 2))
> '
> '
> Case 57.0001 To 63
> NMillenium = 50 - Int(RAMil * 60 / 34.2857)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 60, NMillenium, 430, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 34.2857 - Int
(RAMil *
> 60 / 34.2857))
> '
> '
> Case 63.0001 To 69
> ' NMillenium = 36 - Int(RAMil * 60 / 40) simplifié en
> NMillenium = 36 - Int(RAMil * 1.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 66, NMillenium, 456, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 1.5 - Int(RAMil *
1.5))
> '
> '
> Case 69.0001 To 75
> ' NMillenium = 24 - Int(RAMil * 60 / 48) simplifié en
> NMillenium = 24 - Int(RAMil * 60 / 48)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 72, NMillenium, 478, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 60 / 48 - Int
(RAMil * 60 /
> 48))
> '
> '
> Case 75.0001 To 81
> ' NMillenium = 14 - Int(RAMil * 60 / 60) simplifié en
> NMillenium = 14 - Int(RAMil)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 78, NMillenium, 496, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil - Int(RAMil))
> '
> '
> Case 81.0001 To 86
> ' NMillenium = 6 - Int(RAMil * 60 / 120) simplifié en
> NMillenium = 6 - Int(RAMil * 0.5)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> Call orientationNS(Decl, 83.5, NMillenium, 508, OrientMil)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Call orientationEOMil(OrientMil, RAMil * 0.5 - Int(RAMil *
0.5))
> '
> '
>
> Case 86.00001 To 90
> NMillenium = 1
> If RAMil > 4 And RAMil < 16 Then NMillenium = 2
> If RAMil > 10 And RAMil < 22 Then OrientMil = "N" Else
OrientMil =
> "S"
> If Decl < 0 Then
> NMillenium = NMillenium + 514
> If OrientMil = "N" Then OrientMil = "S" Else OrientMil
= "N"
> End If
> '
> 'If RAMil > 0 And RAMil < 12 Then
> ' OrientMil = ",G," & OrientMil & "O"
> 'Else
> ' OrientMil = ",D," & OrientMil & "E"
> 'End If
> '
> Case Else
> MsgBox "Ascension droite >90° pour ligne" & ligne.Row
& "!!!"
> NMillenium = "prob: Ascension droite >90°"
>
> End Select
> '
> ' test du n° de volume puis affichage
> '
> If RA < 8 Then
> NMillenium = "Vol I,n°" & NMillenium & OrientMil
> ElseIf RA < 16 Then
> NMillenium = "Vol II,n°" & NMillenium + 516 & OrientMil
> Else
> NMillenium = "Vol III,n°" & NMillenium + 1032 & OrientMil
> End If
> ligne.Cells(1, 39).Value = NMillenium
>
> End Sub
> Sub orientationNS(Decl, MidDecl, Nurano, AjoutHemSud, Orient)
> 'détermination de l'orientation N/S pour l'hemisphere N.
> 'on renversera après pour hémis. sud
> If Abs(Decl) > MidDecl Then Orient = "N" Else Orient = "S"
> '
> If Decl < 0 Then
> Nurano = Nurano + AjoutHemSud
> If Orient = "N" Then Orient = "S" Else Orient = "N"
> End If
>
> End Sub
> Sub orientationEO(Orient, TestOrientation)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Select Case TestOrientation
> Case 0 To 0.25
> Orient = ",D," & Orient & "E"
> Case 0.25 To 0.5
> Orient = ",D," & Orient & "O"
> Case 0.5 To 0.75
> Orient = ",G," & Orient & "E"
> Case 0.75 To 1
> Orient = ",G," & Orient & "O"
> End Select
> End Sub
> Sub orientationEOMil(Orient, TestOrientation)
> ' puis de quel coté de la page g/d et dans ce coté quel
orientation
> O/E
> Select Case TestOrientation
> Case 0 To 0.5
> Orient = "," & Orient & "E"
> Case 0.5 To 1
> Orient = "," & Orient & "O"
> End Select
> End Sub
Bonjour à tous
Bon je me lance je vais peut être dire des bêtises .
après visualisation du tableau de Bertrand pour un 250 la séparation de
0.56 me parait difficile à atteindre elle serait plutôt de 0.94 par bon ciel
sans turbulence alors pour étalonner mon LX que me conseillez vous ?
-----Message d'origine-----
De : bertrandlaville [mailto:bertrand.laville@...]
Envoyé : dimanche 25 août 2002 13:31
À : cielextreme@...
Objet : [cielextreme] Etoiles doubles serrées
Bonjour à toutes et à tous
ce message pour vous indiquer que j'ai créé un fichier sur l'aspect
de limage de séparation des couples d'étoiles doubles serrées .
Il a été établi à partir des données de Paul Couteau, dans son
livre "L'observation des étoiles doubles visuelles", page 45 .
Ce fichier devrait vous permettre d'étalonner votre instrument, et
peut être de vérifier la collimation, si vos résultats ne
correspondent pas au tableau !
Il devrait aussi succiter des articles dans Ciel extrême sur les
étoiles doubles, qui sont les grandes oubliées de la revue .
Pour vous désinscrire de ce groupe, envoyez un e-mail à :
cielextreme-unsubscribe@...
L'utilisation du service Yahoo! Groupes est soumise à l'acceptation des
Conditions d'utilisation et de la Charte sur la vie privée, disponibles
respectivement sur http://fr.docs.yahoo.com/info/utos.html et
http://fr.docs.yahoo.com/info/privacy.html
J'avais envoyé sur la liste éclipsia il y a quelques mois un message (voir
ci dessous) avec une
macro trouvant quel était le n° de carte Sky atlas et Urano(s) en fonction
des coordonnées d'un objet NGC ou IC (14000 objets).
J'ai maintenant enrichi la macro pour avoir aussi le n° de page sur le
millénium star atlas.
On a donc dans un ficher excel quelque chose du genre
N°NGC infosdiverses sky atlas Uranometria ed 1 Uranometria ed 2
Millenium star atlas
NGC 1 xxxxxxxxxxx 4,D,SE Vol I,n°125; NO Vol I,n°63,G,NE
Vol I,n°150,SE
NGC 2 xxxxxxxxxxx 4,D,SE Vol I,n°125; NO Vol I,n°63,G,NE
Vol I,n°150,SE
etc
Avec pour notation : n°carte; G ou D (page de G ou D); n° de volume ;
NE/NO/SE/SO (dans la page, s'il est en NordEst, NO, SO ou
SE).
Bien sur, il y a plein d'autres infos au milieu, que j'ai symbolisé en
xxxxxx.
Reste maintenant à imprimer cela en format A3 pour avoir un listing et
trouver facilement le n° de carte de son atlas préféré à partir du n°
d'objet que l'on recherche. Je vais m'y ateler dans les prochains jours,
mais en ne mettant que le n° de l'objet, sa mag, son type et les n° de carte
pour ne pas alourdir le tout. Ceux qui sont intéressé par un tel fichier
(word) à imprimer, peuvent m'écrire (rguinamard@...).
Voici donc mon message du 16/02/2002 avec la macro réactualisé en dessous:
Il y a quelques semaines, je cherchais une correspondance entre le N°
d'objet NGC et le n° de la carte correspondante du sky atlas 2000 et de
l'uranometria (1er et derniere edition d'octobre 2001).
Quelque chose du genre
N°NGC sky atlas Uranometria ed 1 Uranometria ed 2
NGC 1 2 225 105
NGC 2 4 125 85
etc
J'ai finalement trouve un fichier excel avec toutes les coordonees des
objets NGC et IC: http://www.astrosurf.com/lombry/download.htm
On m'a aussi donne un programme type pour ce genre de choset
http://www.skypub.com/resources/software/basic/programs/chart.bas
et je l'ai modifie pour qu'il soit operationnel sur ce fichier excel (en
visual basic).
J'en ai profite pour ajouter 2-3 amelioration: l'endroit de la carte ou est
situe l'objet: page de G ou D, et, dans la page, s'il est en NE, NO, SO ou
SE.
J'ai aussi ajoute les n° de carte de la nouvelle edition de l'uranometria
(sortie en octobre).
Donc pour avoir pour chacun des 14000 objets de ce fichier les n° de carte
du sky atlas 2000 Urano "1er" et derniere edition et millénium, vous devez:
1) telecharger le fichier excel a
http://www.astrosurf.com/lombry/download.htm
2) Dans Excel (le mien est en office 97...), dans le menu outil/macro
cliquer sur visual basic editor
3) Dans la fenetre visual basic qui s'ouvre alors, dans le menu "insertion"
cliquer sur module
4) coller le programme ci dessous
5) fermer visual basic
6) Dans Excel, dans le menu outil/macro cliquer sur macro puis selectionner
la macro Ncarte et executez la.
La macro prend a peu pres 1 minute (sur mon pentium III, 500 MHZ) pour
s'executer et ecrit dans les colonnes AJ, AK, AL, AM les n° de cartes pour
chacun des 14000 objets de la feuille excel.
En esperant que cela puisse vous servir
Raphael Guinamard
Programme a copier:
Sub NCarte()
Dim RA, Decl, MidDecl, TestOrientation, AjoutHemSud As Single
Dim ligne As Object
Dim NSkyAtlas, NUranoV1, NuranoV2, NMillenium As Variant
Dim OrientSA, OrientU1, OrientU2, OrientMil As String
'
' mise en place des titres de colonnes
'
Range("AJ2").Select
ActiveCell.FormulaR1C1 = "Sky atlas 2000"
Range("AK2").Select
ActiveCell.FormulaR1C1 = "Uranometria Ed avant 2002"
Range("AL2").Select
ActiveCell.FormulaR1C1 = "Uranometria Ed après 2002"
Range("AJ2:AL2").Select
Range("Am2").Select
ActiveCell.FormulaR1C1 = "Millenium star atlas"
Range("AJ2:Am2").Select
With Selection
.WrapText = True
End With
Columns("AJ:Am").Select
Range("AJ2").Activate
Selection.ColumnWidth = 12
Range("AJ2").Select
'
'pour toutes les lignes de la région courante en ayant descendu de 2 lignes
For Each ligne In Range("A3").CurrentRegion.Offset(2, 0).Rows
'teste si on est pas sur une ligne sans coordonnées
If ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value + ligne.Cells(1,
10).Value = 0 Then
GoTo 10
End If
'variable de position dans la carte NE, SE, NO ou SO à réinitialiser
OrientSA = ""
OrientU1 = ""
OrientU2 = ""
'calcul de RA
RA = ligne.Cells(1, 6).Value + ligne.Cells(1, 8).Value / 60 + ligne.Cells(1,
10).Value / 3600
'calcul de decl
If ligne.Cells(1, 12).Value >= 0 Then
Decl = ligne.Cells(1, 12).Value + ligne.Cells(1, 14).Value / 60 +
ligne.Cells(1, 16).Value / 3600
Else
Decl = ligne.Cells(1, 12).Value - ligne.Cells(1, 14).Value / 60 -
ligne.Cells(1, 16).Value / 3600
End If '
' N° carte skyatlas 2000
Call skyatlas(ligne, RA, Decl)
' N° carte Uranometria 1ere édition (avant nov 2001)
Call Urano1erEd(ligne, RA, Decl)
' N° carte Uranometria 2eme édition (après nov 2001)
Call Urano2emeEd(ligne, RA, Decl)
' N° carte Millénium
Call Millenium(ligne, RA, Decl)
10 Next ligne
End Sub
Sub skyatlas(ligne, RA, Decl)
'
' N° carte skyatlas 2000
'
'
Select Case Abs(Decl)
Case 0 To 20
NSkyAtlas = 9 + Int((RA + 2.5) / 3)
If NSkyAtlas = 9 Then NSkyAtlas = 17
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > 0 Then OrientSA = "N" Else OrientSA = "S"
'
If Decl < 0 Then
If OrientSA = "N" Then OrientSA = "S" Else OrientSA = "N"
End If
'
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientSA, (RA + 2.5) / 3 - Int((RA + 2.5) / 3))
'
Case 20.001 To 50
NSkyAtlas = 4 + Int(RA / 4)
If Decl < 0 Then NSkyAtlas = NSkyAtlas + 14
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > 35 Then OrientSA = "N" Else OrientSA = "S"
'
If Decl < 0 Then
If OrientSA = "N" Then OrientSA = "S" Else OrientSA = "N"
End If
'
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientSA, RA / 4 - Int(RA / 4))
Case Else '50 à 90
NSkyAtlas = 1 + Int(RA / 8)
If Decl < 0 Then NSkyAtlas = NSkyAtlas + 23
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > 70 Then OrientSA = "N" Else OrientSA = "S"
'
If Decl < 0 Then
If OrientSA = "N" Then OrientSA = "S" Else OrientSA = "N"
End If
'
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientSA, RA / 8 - Int(RA / 8))
End Select
ligne.Cells(1, 36).Value = NSkyAtlas & OrientSA
End Sub
Sub Urano1erEd(ligne, RA, Decl)
'
'
' N° carte Uranometria 1ere édition (avant nov 2001)
'
'
Select Case Abs(Decl)
Case 0 To 5.5
'NUranoV1 = 215 + Int((RA + 16 / 60) * 60 / 32) simplifié en
NUranoV1 = 215 + Int(RA * 1.875 + 0.5)
If NUranoV1 = 260 Then NUranoV1 = 215
'détermination de la partie de la carte ou se situe l'objet:
'orientation N/S
If Decl > 0 Then OrientU1 = "N" Else OrientU1 = "S"
' puis O/E
If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 5.5001 To 17
'NUranoV1 = 170 + Int((RA + 16 / 60) * 60 / 32) simplifié en
NUranoV1 = 170 + Int(RA * 1.875 + 0.5)
If NUranoV1 = 215 Then NUranoV1 = 170
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 11.25, NUranoV1, 90, OrientU1)
'détermination de l'orientation E/O
If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 17.0001 To 28
'NUranoV1 = 125 + Int((RA + 16 / 60) * 60 / 32) simplifié en
NUranoV1 = 125 + Int(RA * 1.875 + 0.5)
If NUranoV1 = 170 Then NUranoV1 = 125
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 22.5, NUranoV1, 180, OrientU1)
'détermination de l'orientation E/O
'
If RA * 1.875 + 0.5 - Int(RA * 1.875 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 28.0001 To 39
' NUranoV1 = 89 + Int((RA + 20 / 60) * 60 / 40) simplifié en
NUranoV1 = 89 + Int(RA * 1.5 + 0.5)
If NUranoV1 = 125 Then NUranoV1 = 89
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 33.5, NUranoV1, 261, OrientU1)
'détermination de l'orientation E/O
'
If RA * 1.5 + 0.5 - Int(RA * 1.5 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 39.0001 To 50
' NUranoV1 = 59 + Int((RA + 24 / 60) * 60 / 48) simplifié en
NUranoV1 = 59 + Int(RA / 0.8 + 0.5)
If NUranoV1 = 89 Then NUranoV1 = 59
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 44.5, NUranoV1, 327, OrientU1)
'détermination de l'orientation E/O
'
If RA / 0.8 + 0.5 - Int(RA / 0.8 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 50.0001 To 61
' NUranoV1 = 35 + Int((RA + 30 / 60) * 60 / 60) simplifié en
NUranoV1 = 35 + Int(RA + 0.5)
If NUranoV1 = 59 Then NUranoV1 = 35
'
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
Call orientationNS(Decl, 55.5, NUranoV1, 381, OrientU1)
'détermination de l'orientation E/O
'
If RA + 0.5 - Int(RA + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 61.0001 To 72.5
'NUranoV1 = 15 + Int((RA + 36 / 60) * 60 / 72) simplifié en
NUranoV1 = 15 + Int(RA / 1.2 + 0.5)
If NUranoV1 = 35 Then NUranoV1 = 15
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 66.75, NUranoV1, 425, OrientU1)
'détermination de l'orientation E/O
'
If RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 72.5001 To 84.5
'NUranoV1 = 3 + Int((RA + 50 / 60) * 60 / 120) simplifié en
NUranoV1 = 3 + Int(RA / 2 + 1 / 2.4)
If NUranoV1 = 15 Then NUranoV1 = 3
'
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 78.5, NUranoV1, 457, OrientU1)
'détermination de l'orientation E/O
'
If RA / 2 + 1 / 2.4 - Int(RA / 2 + 1 / 2.4) > 0.5 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
Case 84.50001 To 90
NUranoV1 = 1 + Int(RA / 12)
'
If RA > 6 And RA < 18 Then OrientU1 = "S" Else OrientU1 = "N"
If Decl < 0 Then
NUranoV1 = 474 - NUranoV1
If OrientU1 = "N" Then OrientU1 = "S" Else OrientU1 = "N"
End If
'
If RA > 0 And RA < 12 Then
OrientU1 = OrientU1 & "O"
Else
OrientU1 = OrientU1 & "E"
End If
'
Case Else
MsgBox "Ascension droite >90° pour ligne" & ligne.Row & "!!!"
NUranoV1 = "prob: Ascension droite >90°"
End Select
'
' test du n° de vol puis affichage
'
If Decl > 5.5 Then
NUranoV1 = "Vol I,n°" & NUranoV1 & "; " & OrientU1
ElseIf Decl < -5.5 Then
NUranoV1 = "Vol II,n°" & NUranoV1 & "; " & OrientU1
Else
NUranoV1 = "Vol I&II,n°" & NUranoV1 & "; " & OrientU1
End If
ligne.Cells(1, 37).Value = NUranoV1
End Sub
Sub Urano2emeEd(ligne, RA, Decl)
'
'
' N° carte Uranometria 2ème édition (après nov 2001)
'
'
Select Case Abs(Decl)
Case 0 To 5.5
'NUranoV2 = 121 - Int((RA + 36/ 60) * 60 / 72) simplifié en
NuranoV2 = 121 - Int(RA / 1.2 + 0.5)
'si on est sur la partie droite de la première carte 101, on tombe
sur 121...
If NuranoV2 = 121 Then NuranoV2 = 101
'
'détermination de la partie de la carte ou se situe l'objet:
'orientation N/S
If Decl > 0 Then OrientU2 = "N" Else OrientU2 = "S"
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5))
Case 5.5001 To 17.5
'NUranoV2 = 101 - Int((RA + 36 / 60) * 60 / 72) simplifié en
NuranoV2 = 101 - Int(RA / 1.2 + 0.5)
'
If NuranoV2 = 101 Then NuranoV2 = 81
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 11.5, NuranoV2, 40, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA / 1.2 + 0.5 - Int(RA / 1.2 + 0.5))
'
Case 17.5001 To 29.5
'NUranoV2 = 81 - Int((RA + 40 / 60) * 60 / 80) simplifié en
NuranoV2 = 81 - Int(RA * 0.75 + 0.5)
If NuranoV2 = 81 Then NuranoV2 = 63
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 23.5, NuranoV2, 78, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA * 0.75 + 0.5))
'
'
Case 29.50001 To 40.5
' NUranoV2 = 63 - Int((RA + 40 / 60) * 60 / 80) simplifié en
NuranoV2 = 63 - Int(RA * 0.75 + 0.5)
If NuranoV2 = 63 Then NuranoV2 = 45
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 35, NuranoV2, 114, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA * 0.75 + 0.5 - Int(RA * 0.75 + 0.5))
Case 40.5001 To 51.5
' NUranoV2 = 45- Int((RA + 48 / 60) * 60 / 96) simplifié en
NuranoV2 = 45 - Int(RA / 1.6 + 0.5)
If NuranoV2 = 45 Then NuranoV2 = 30
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 46, NuranoV2, 147, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA / 1.6 + 0.5 - Int(RA / 1.6 + 0.5))
'
'
Case 51.5001 To 62.5
' NUranoV2 = 30 - Int((RA + 60 / 60) * 60 / 120) simplifié en
NuranoV2 = 30 - Int(RA / 2 + 0.5)
If NuranoV2 = 30 Then NuranoV2 = 18
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 57, NuranoV2, 174, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA / 2 + 0.5 - Int(RA / 2 + 0.5))
'
Case 62.50001 To 73.5
' NUranoV2 = 18 - Int((RA + 72 / 60) * 60 / 144) simplifié en
NuranoV2 = 18 - Int(RA / 2.4 + 0.5)
If NuranoV2 = 18 Then NuranoV2 = 8
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 68, NuranoV2, 196, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA / 2.4 + 0.5 - Int(RA / 2.4 + 0.5))
'
'
Case 73.5001 To 84.5
' NUranoV2 = 8 - Int((RA + 120 / 60) * 60 / 240) simplifié en
NuranoV2 = 8 - Int(RA / 4 + 0.5)
If NuranoV2 = 8 Then NuranoV2 = 2
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 79, NuranoV2, 212, OrientU2)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEO(OrientU2, RA / 4 + 0.5 - Int(RA / 4 + 0.5))
'
'
Case 84.50001 To 90
NuranoV2 = 1
If RA > 6 And RA < 18 Then OrientU2 = "N" Else OrientU2 = "S"
If Decl < 0 Then
NuranoV2 = 220
If OrientU2 = "N" Then OrientU2 = "S" Else OrientU2 = "N"
End If
'
If RA > 0 And RA < 12 Then
OrientU2 = ",G," & OrientU2 & "O"
Else
OrientU2 = ",D," & OrientU2 & "E"
End If
'
Case Else
MsgBox "Ascension droite >90° pour ligne" & ligne.Row & "!!!"
NuranoV2 = "prob: Ascension droite >90°"
End Select
'
' test du n° de volume puis affichage
'
If Decl > -5.5 Then
NuranoV2 = "Vol I,n°" & NuranoV2 & OrientU2
Else
NuranoV2 = "Vol II,n°" & NuranoV2 & OrientU2
End If
ligne.Cells(1, 38).Value = NuranoV2
End Sub
Sub Millenium(ligne, RA, Decl)
'
'
' N° carte Millénium star atlas
'
'
' Pour le millénium, on passe par une variable RAMil qui est
' le RA -0 , -8 ou -16h selon la partie du ciel ou on est
If RA > 16 Then
RAMil = RA - 16
ElseIf RA > 8 Then
RAMil = RA - 8
Else
RAMil = RA
End If
Select Case Abs(Decl)
Case 0 To 3
'NMillenium = 270 - Int(RAMil * 60 / 20) simplifié en
NMillenium = 270 - Int(RAMil * 3)
'
'détermination de la partie de la carte ou se situe l'objet:
'orientation N/S
If Decl > 0 Then OrientMil = "N" Else OrientMil = "S"
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
Case 3.00001 To 9
'NMillenium = 246 - Int(RAMil* 60 / 20) simplifié en
NMillenium = 246 - Int(RAMil * 3)
'
Call orientationNS(Decl, 6, NMillenium, 48, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
'
Case 9.0001 To 15
NMillenium = 222 - Int(RAMil * 3)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 12, NMillenium, 96, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
'
'
Case 15.0001 To 21
NMillenium = 198 - Int(RAMil * 3)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 18, NMillenium, 144, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
Case 21.0001 To 27
NMillenium = 174 - Int(RAMil * 3)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 24, NMillenium, 192, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 3 - Int(RAMil * 3))
'
'
Case 27.0001 To 33
NMillenium = 150 - Int(RAMil * 60 / 21.8181)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 30, NMillenium, 238, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int(RAMil *
60 / 21.8181))
'
Case 33.00001 To 39
NMillenium = 128 - Int(RAMil * 60 / 21.8181)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 36, NMillenium, 282, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 21.8181 - Int(RAMil *
60 / 21.8181))
'
'
Case 39.0001 To 45
' NMillenium = 106 - Int(RAMil * 60 / 24) simplifié en
NMillenium = 106 - Int(RAMil * 2.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 42, NMillenium, 324, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil * 2.5))
'
'
Case 45.0001 To 51
' NMillenium = 86 - Int(RAMil * 60 / 24) simplifié en
NMillenium = 86 - Int(RAMil * 2.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 48, NMillenium, 364, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 2.5 - Int(RAMil * 2.5))
'
'
Case 51.0001 To 57
' NMillenium = 66 - Int(RAMil * 60 / 30) simplifié en
NMillenium = 66 - Int(RAMil * 2)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 54, NMillenium, 400, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 2 - Int(RAMil * 2))
'
'
Case 57.0001 To 63
NMillenium = 50 - Int(RAMil * 60 / 34.2857)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 60, NMillenium, 430, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 34.2857 - Int(RAMil *
60 / 34.2857))
'
'
Case 63.0001 To 69
' NMillenium = 36 - Int(RAMil * 60 / 40) simplifié en
NMillenium = 36 - Int(RAMil * 1.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 66, NMillenium, 456, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 1.5 - Int(RAMil * 1.5))
'
'
Case 69.0001 To 75
' NMillenium = 24 - Int(RAMil * 60 / 48) simplifié en
NMillenium = 24 - Int(RAMil * 60 / 48)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 72, NMillenium, 478, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 60 / 48 - Int(RAMil * 60 /
48))
'
'
Case 75.0001 To 81
' NMillenium = 14 - Int(RAMil * 60 / 60) simplifié en
NMillenium = 14 - Int(RAMil)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 78, NMillenium, 496, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil - Int(RAMil))
'
'
Case 81.0001 To 86
' NMillenium = 6 - Int(RAMil * 60 / 120) simplifié en
NMillenium = 6 - Int(RAMil * 0.5)
'détermination de l'orientation N/S pour l'hemisphere N.
Call orientationNS(Decl, 83.5, NMillenium, 508, OrientMil)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Call orientationEOMil(OrientMil, RAMil * 0.5 - Int(RAMil * 0.5))
'
'
Case 86.00001 To 90
NMillenium = 1
If RAMil > 4 And RAMil < 16 Then NMillenium = 2
If RAMil > 10 And RAMil < 22 Then OrientMil = "N" Else OrientMil =
"S"
If Decl < 0 Then
NMillenium = NMillenium + 514
If OrientMil = "N" Then OrientMil = "S" Else OrientMil = "N"
End If
'
'If RAMil > 0 And RAMil < 12 Then
' OrientMil = ",G," & OrientMil & "O"
'Else
' OrientMil = ",D," & OrientMil & "E"
'End If
'
Case Else
MsgBox "Ascension droite >90° pour ligne" & ligne.Row & "!!!"
NMillenium = "prob: Ascension droite >90°"
End Select
'
' test du n° de volume puis affichage
'
If RA < 8 Then
NMillenium = "Vol I,n°" & NMillenium & OrientMil
ElseIf RA < 16 Then
NMillenium = "Vol II,n°" & NMillenium + 516 & OrientMil
Else
NMillenium = "Vol III,n°" & NMillenium + 1032 & OrientMil
End If
ligne.Cells(1, 39).Value = NMillenium
End Sub
Sub orientationNS(Decl, MidDecl, Nurano, AjoutHemSud, Orient)
'détermination de l'orientation N/S pour l'hemisphere N.
'on renversera après pour hémis. sud
If Abs(Decl) > MidDecl Then Orient = "N" Else Orient = "S"
'
If Decl < 0 Then
Nurano = Nurano + AjoutHemSud
If Orient = "N" Then Orient = "S" Else Orient = "N"
End If
End Sub
Sub orientationEO(Orient, TestOrientation)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Select Case TestOrientation
Case 0 To 0.25
Orient = ",D," & Orient & "E"
Case 0.25 To 0.5
Orient = ",D," & Orient & "O"
Case 0.5 To 0.75
Orient = ",G," & Orient & "E"
Case 0.75 To 1
Orient = ",G," & Orient & "O"
End Select
End Sub
Sub orientationEOMil(Orient, TestOrientation)
' puis de quel coté de la page g/d et dans ce coté quel orientation
O/E
Select Case TestOrientation
Case 0 To 0.5
Orient = "," & Orient & "E"
Case 0.5 To 1
Orient = "," & Orient & "O"
End Select
End Sub
Bonjour à toutes et à tous
ce message pour vous indiquer que j'ai créé un fichier sur l'aspect
de limage de séparation des couples d'étoiles doubles serrées .
Il a été établi à partir des données de Paul Couteau, dans son
livre "L'observation des étoiles doubles visuelles", page 45 .
Ce fichier devrait vous permettre d'étalonner votre instrument, et
peut être de vérifier la collimation, si vos résultats ne
correspondent pas au tableau !
Il devrait aussi succiter des articles dans Ciel extrême sur les
étoiles doubles, qui sont les grandes oubliées de la revue .
Bonjour à tous, et à toute (s?)
En accord avec Jean-Raphaêl Gilis, je prépare un article pour le
prochain numéro de CE, qui traitera de Guide 8 .
Il s'agira de détailler les nouvelles fonctionalités que cette
version de Guide, et des évolutions qu'il est possible de
télécharger, apportent pour l'observation du ciel profond.
On peut lister, à titre d'exemple :
- magnitudes visuelles,
- photos DSS sur disque,
- faciliter de télécharger des données DSS, USNO, et GSC,
etc ..
Si certains d'entre vous utilisent déjà Guide 8, et ont des points
particuliers qu'ils souhaiteraient voir développer ( ou critiquer ),
merci de me les indiquer, pour que je puisse en tenir compte dans
l'article en question .
Bon ciel,
Bertrand Laville
Messenger 
Envoyer un message
